25-04-18, 07:20 PM
السلام عليكم ورحمة الله تعالى وبركاته
السادة الكرام
هل أستطيع أن أجد لديكم مكتبة DLL لعمل ملصقات الباركود
ألف شكر لكم مسبقا
تحياتي
السادة الكرام
هل أستطيع أن أجد لديكم مكتبة DLL لعمل ملصقات الباركود
ألف شكر لكم مسبقا
تحياتي
الصفحات : 1 2
25-04-18, 07:20 PM
25-04-18, 09:52 PM
اخي العزيز استخدم هذه المكتبه فهية سهلة وسريعة انا استهخدمها شخصيا
MessagingToolkit.Barcode.dll
MessagingToolkit.Barcode.dll
25-04-18, 10:17 PM
ألف شكر لك
أنا فعلا أستخدم هذه المكتبة لكن وجدت فيها صعوبة نوعا ما في حفظ صورة الباركود داخل قاعدة البيانات بعد تحويلها إلى بايتات
كود التحويل الذي أستخدمه هو :
فإن كان لديك أي اقتراح أكون ممتنا
شكرا لك مرة أخرى
أنا فعلا أستخدم هذه المكتبة لكن وجدت فيها صعوبة نوعا ما في حفظ صورة الباركود داخل قاعدة البيانات بعد تحويلها إلى بايتات
كود التحويل الذي أستخدمه هو :
كود :
Public Function ConvertToData(ByVal MyImage As Image) As Byte()
Dim ms As New MemoryStream()
PicBarCode.BackgroundImage.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Dim mybyte(ms.Length - 1) As Byte
ms.Position = 0
ms.Read(mybyte, 0, ms.Length)
MsgBox(mybyte)
Return mybyte
End Functionفإن كان لديك أي اقتراح أكون ممتنا
شكرا لك مرة أخرى
25-04-18, 11:41 PM
اخي اعطني الصفحة الخاصة بالاضافة وانا اقوم بها ان شاء الله تعالى
25-04-18, 11:48 PM
عفوا ليست الإضافة فقد كنت مخطئا فبدل أن أجعل الحفظ يأخذ من PicturBox جعلته عن غير قصد يأخذ من textBox لكن هناك أمر مهم أخر أحتاج لأن أجعل خاصية resolution للـ generator الخاص بالكود بار لأنه يكون داخل PicturBox غير واضح وبالتالي عند طباعة الملصقات تكون غير واضحة تماما فهل لديك فكرة؟
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 Sub26-04-18, 12:59 AM
شكرا لك
لكني هذا ما قمت به وزيادة ولكن عند الطباعة تظهر الملصقات بدقة رديئة جدا لا يستطيع قارئ الباركود قرائتها
لكني هذا ما قمت به وزيادة ولكن عند الطباعة تظهر الملصقات بدقة رديئة جدا لا يستطيع قارئ الباركود قرائتها
كود :
Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
'Dim br As String = txt_N_Lot.Text & txtCBR.Text
Generator.IncludeLabel = True
Generator.CustomLabel = txt_N_Lot.Text & " " & txtCBR.Text
Generator.Height = 50
Generator.Margin = 0
Generator.MarginSize = 0
Generator.RotateFlipType = RotateFlipType.RotateNoneFlipNone
Generator.LabelPosition = MessagingToolkit.Barcode.LabelPositions.BottomCenter
Generator.LabelFont = New Font("Arial", 9.9F, Drawing.FontStyle.Regular)
Generator.Alignment = MessagingToolkit.Barcode.AlignmentPositions.Left
'HorizontalResolution = HorizontalResolution(90)
'Generator.ProcessTilde = True
'Barcode Size Related Settings
'barcode.Resolution = 96
'PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code39, TextBox1.Text))
PicBarCode.BackgroundImage = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, txt_N_Lot.Text & " " & txtCBR.Text))26-04-18, 01:02 AM
اخي العزيز انا بالنسبة الي استخدم الكود الي في الاعلى والحمد لله ماشي تمام ويشتغل عندي على كثير برامج والباركو تمام يقراه وبسهلة ومن دون تأخير ابدا انت حاول تجرب تكتب الكود المختصر الي ارسلته لي وان شاء الله تضبط معاك يارب
26-04-18, 01:05 AM
إن شاء الله ألف شكر لك
فقط سؤال أخير هل قمت بطباعة الملصقات على طابعة خاصة بها ؟
فقط سؤال أخير هل قمت بطباعة الملصقات على طابعة خاصة بها ؟
26-04-18, 01:08 AM
العفو اخي لا طابعة عادية كانون ورق A4 طبيعي ومن ثم لسقت الورق على الاجهزة و اشتغل تمام والحمد لله
الصفحات : 1 2