Buscar en el Blog

miércoles, 7 de diciembre de 2011

Generar codigo de barras en vb.net

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


  1. Imports System.Drawing.Text
  2. Partial Public Class MainForm
  3. Dim fuente As Font
  4. Public Sub New()
  5. ' The Me.InitializeComponent call is required for Windows Forms designer support.
  6. Me.InitializeComponent()
  7. ' TODO : Add constructor code after InitializeComponents
  8. Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs)
  9. End Sub
  10. Public Sub cargarfuente()
  11. Dim pfc As PrivateFontCollection = New PrivateFontCollection()
  12. Dim fontFamily As FontFamily
  13. 'Obtenemos la fuente que se encuentra en el directorio de la aplicacion
  14. 'y la cargamos
  15. pfc.AddFontFile(my.Application.Info.DirectoryPath & "\BARCODE.TTF")
  16. fontFamily = pfc.Families(0)
  17. fuente = New Font(fontFamily, 50)
  18. End Sub
  19. Public Function FormatoCodigoBarras(ByVal code As String) As String
  20. Dim barcode As String = String.Empty
  21. barcode = String.Format("{0}", code)
  22. Return barcode
  23. End Function
  24. Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
  25. cargarfuente()
  26. lblCodigo.Font = fuente
  27. lblCodigo.Text = FormatoCodigoBarras(txtCodigo.Text)
  28. End Sub
  29. End Class
  30.  



    3 comentarios: