Codigo basado en
http://www.elguille.info/colabora/NET2006/Marckys_BarCode.htm
Para esta aplicacion necesitaremos:
1 label llamado lblcodigo
1 textbox llamado txtcodigo
1 boton
codigo fuente completo
http://www.elguille.info/colabora/NET2006/Marckys_BarCode.htm
Para esta aplicacion necesitaremos:
1 label llamado lblcodigo
1 textbox llamado txtcodigo
1 boton
codigo fuente completo
Imports System.Drawing.Text Partial Public Class MainForm Dim fuente As Font Public Sub New() ' The Me.InitializeComponent call is required for Windows Forms designer support. Me.InitializeComponent() ' TODO : Add constructor code after InitializeComponents Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs) End Sub Public Sub cargarfuente() Dim pfc As PrivateFontCollection = New PrivateFontCollection() Dim fontFamily As FontFamily 'Obtenemos la fuente que se encuentra en el directorio de la aplicacion 'y la cargamos pfc.AddFontFile(my.Application.Info.DirectoryPath & "\BARCODE.TTF") fontFamily = pfc.Families(0) fuente = New Font(fontFamily, 50) End Sub Public Function FormatoCodigoBarras(ByVal code As String) As String Dim barcode As String = String.Empty barcode = String.Format("{0}", code) Return barcode End Function Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs) cargarfuente() lblCodigo.Font = fuente lblCodigo.Text = FormatoCodigoBarras(txtCodigo.Text) End Sub End Class
Excelente Gracias.....
ResponderEliminarresube el archivo porfas
ResponderEliminarhttps://drive.google.com/file/d/0BxWr_e1z6MQfNjk4ZmMxYWMtMGM0Yi00Y2M4LTg4NTAtOTAzMzQzOTVlYjdl/view
Eliminar