Codigo de Barras en Visual Basic
HOLA, LES TENGO UNA PEQUEÑA CONSULTA QUE ME A TENIDO DE CABEZA ESTOS ULTIMOS DIAS; COMO PUEDO HACER QUE MEDIANATE MI APLICACION EN VISUAL BASIC ME PERMITA LEER E IMPRIMIR UN CODIGO DE BARRAS. YO SE QUE ES POSIBLE PORQUE LO HE VISTO, POR FAVOR ORIENTENMENTE. DESDE YA MUCHAS GRACIAS POR SU AYUDA.
Rosa
31 de Marzo del 2006
Hola, ese tema ya se ha discutido bastante en este foro, si buscaras encontrarías muchas respuestas, igual te estoy copiando una de las mías.
Para imprimir códigos de barra, puedes bajar el font 3 de 9 de http://www.idautomation.com/fonts/free/
ubicas el archivo IDAutomationHC39M_Free.ttf que es el font y lo instalas en el panel de control -> fonts
Luego para generar el código puedes usar este ejemplo:
Private Sub cmdImprimir_Click()
txtCodBarra.Text = "*" & txtCodigo.Text & "*" 'Los asteriscos indican el inicio y fin del codigo
'Printer.Print txtCodBarra.Text
End Sub
Private Sub Form_Load()
txtCodBarra.Font = "IDAutomationHC39M"
txtCodBarra.Font.Size = 24
End Sub
Para leer el código de barras no tienes que codificar nada en VB, la lectora o pistola que utilices lo decodifica y lo coloca en la caja de texto que tenga el foco en ese momento.
Espero te sirva.
Para imprimir códigos de barra, puedes bajar el font 3 de 9 de http://www.idautomation.com/fonts/free/
ubicas el archivo IDAutomationHC39M_Free.ttf que es el font y lo instalas en el panel de control -> fonts
Luego para generar el código puedes usar este ejemplo:
Private Sub cmdImprimir_Click()
txtCodBarra.Text = "*" & txtCodigo.Text & "*" 'Los asteriscos indican el inicio y fin del codigo
'Printer.Print txtCodBarra.Text
End Sub
Private Sub Form_Load()
txtCodBarra.Font = "IDAutomationHC39M"
txtCodBarra.Font.Size = 24
End Sub
Para leer el código de barras no tienes que codificar nada en VB, la lectora o pistola que utilices lo decodifica y lo coloca en la caja de texto que tenga el foco en ese momento.
Espero te sirva.