[djelloul]

السلام عليكم ورحمة الله تعالى وبركاته
السادة الكرام 

هل أستطيع أن أجد لديكم مكتبة DLL لعمل ملصقات الباركود
ألف شكر لكم مسبقا
تحياتي

[فراس الغزي]

اخي  العزيز  استخدم  هذه  المكتبه فهية سهلة  وسريعة  انا استهخدمها شخصيا  

MessagingToolkit.Barcode.dll

[djelloul]

ألف شكر لك 
أنا فعلا أستخدم هذه المكتبة لكن وجدت فيها صعوبة نوعا ما في حفظ صورة الباركود داخل قاعدة البيانات بعد تحويلها إلى بايتات
كود التحويل الذي أستخدمه هو :

كود :

   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

فإن كان لديك أي اقتراح أكون ممتنا
شكرا لك مرة أخرى

[فراس الغزي]

اخي  اعطني  الصفحة الخاصة بالاضافة  وانا اقوم بها  ان شاء الله  تعالى

[djelloul]

عفوا ليست الإضافة فقد كنت مخطئا فبدل أن أجعل الحفظ يأخذ من PicturBox  جعلته عن غير قصد يأخذ من textBox لكن هناك أمر مهم أخر أحتاج لأن أجعل خاصية resolution للـ generator الخاص بالكود بار لأنه يكون داخل PicturBox غير واضح وبالتالي عند طباعة الملصقات تكون غير واضحة تماما فهل لديك فكرة؟

[فراس الغزي]

تفضل  اخي  هسى  ان ينفعك  هذا الكود  

كود :

 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

[djelloul]

شكرا لك
لكني هذا ما قمت به وزيادة ولكن عند الطباعة تظهر الملصقات بدقة رديئة جدا لا يستطيع قارئ الباركود قرائتها

كود :

 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))

[فراس الغزي]

اخي العزيز  انا بالنسبة  الي استخدم الكود الي في  الاعلى  والحمد لله  ماشي  تمام  ويشتغل  عندي  على  كثير برامج  والباركو  تمام يقراه  وبسهلة  ومن  دون  تأخير  ابدا  انت  حاول  تجرب  تكتب  الكود المختصر  الي  ارسلته لي  وان شاء الله  تضبط  معاك  يارب

[djelloul]

إن شاء الله   ألف شكر لك 
فقط سؤال أخير هل قمت بطباعة الملصقات على طابعة خاصة بها ؟

[فراس الغزي]

العفو  اخي  لا  طابعة  عادية  كانون  ورق  A4 طبيعي  ومن ثم لسقت الورق  على  الاجهزة و اشتغل  تمام  والحمد لله