26-04-18, 12:56 AM
تفضل اخي هسى ان ينفعك هذا الكود
كود :
Private Sub Butcaret_Click(sender As Object, e As EventArgs) Handles Butcaret.Click
Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
Generator.IncludeLabel = True
Generator.CustomLabel = Textcod.Text
Try
PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, Textcod.Text))
Catch ex As Exception
End Try
End Sub