تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في تحويل كود من VB6 الى VB.NET
#1
السلام عليكم ورحمة الله 
في الفيجوال بيسك 6 استخدم طباعة الباركود عن طريق اداة ال BarcodeX
قمت الان بأضافة الاداة الى الفيجوال 2013 ولاكن احتاج طريقة استخدام الكود والكود في الفيجوال 6 كالتالي :


For Each Prt In Printers
   ' Or Prt.DeviceName = "RB2"
  If Prt.DeviceName = "barcode" Then
       SetDefaultPrinter Prt.DeviceName
       DoEvents
       
       DoEvents
   End If

Next


On Error Resume Next
Dim I As Byte
For I = 1 To Val(txt_print_count)
     Printer.CurrentX = Text3.Text
     Printer.CurrentY = Text4.Text
     Printer.Print itm_name
   
     
     
     Printer.CurrentX = Text10.Text
     Printer.CurrentY = Text11.Text
     Printer.Print Namee
     
     Printer.CurrentY = Text9.Text
     Printer.CurrentX = Text8.Text
     Printer.Print com_name
      
     Printer.PaintPicture BarcodeX1.Picture, -Text2.Text, Text5.Text
     Printer.CurrentY = Text6.Text
     Printer.CurrentX = Text7.Text
     Printer.Print "SR " & txt_price; " .00"
     
    Printer.EndDoc
 Next I

Dim Prt As Printer
الرد
تم الشكر بواسطة:
#2
(04-02-20, 09:18 PM)VB.NET كتب : السلام عليكم ورحمة الله 
في الفيجوال بيسك 6 استخدم طباعة الباركود عن طريق اداة ال BarcodeX
قمت الان بأضافة الاداة الى الفيجوال 2013 ولاكن احتاج طريقة استخدام الكود والكود في الفيجوال 6 كالتالي :


For Each Prt In Printers
   ' Or Prt.DeviceName = "RB2"
  If Prt.DeviceName = "barcode" Then
       SetDefaultPrinter Prt.DeviceName
       DoEvents
       
       DoEvents
   End If

Next


On Error Resume Next
Dim I As Byte
For I = 1 To Val(txt_print_count)
     Printer.CurrentX = Text3.Text
     Printer.CurrentY = Text4.Text
     Printer.Print itm_name
   
     
     
     Printer.CurrentX = Text10.Text
     Printer.CurrentY = Text11.Text
     Printer.Print Namee
     
     Printer.CurrentY = Text9.Text
     Printer.CurrentX = Text8.Text
     Printer.Print com_name
      
     Printer.PaintPicture BarcodeX1.Picture, -Text2.Text, Text5.Text
     Printer.CurrentY = Text6.Text
     Printer.CurrentX = Text7.Text
     Printer.Print "SR " & txt_price; " .00"
     
    Printer.EndDoc
 Next I

Dim Prt As Printer


جرب هذه المحاولة اخي

كود :
       For Each Prt In  Printers
           
           If Prt.DeviceName="barcode" Then
               SetDefaultPrinter(Prt.DeviceName)
               Application.DoEvents()

               Application.DoEvents()
           End If

       Next


       On Error Resume Next
       
       Dim I As Byte
       For I = 1 To Math.Truncate(Convert.ToDouble(txt_print_count))
           Printer.CurrentX = Text3.Text
           Printer.CurrentY = Text4.Text
           Printer.Print(itm_name)



           Printer.CurrentX = Text10.Text
           Printer.CurrentY = Text11.Text
           Printer.Print(Namee)

           Printer.CurrentY = Text9.Text
           Printer.CurrentX = Text8.Text
           Printer.Print(com_name)

           Printer.PaintPicture(BarcodeX1.Picture, -Text2.Text, Text5.Text)
           Printer.CurrentY = Text6.Text
           Printer.CurrentX = Text7.Text
           Printer.Print("SR " & txt_price)' .00

           Printer.EndDoc()
       Next I
الرد
تم الشكر بواسطة:
#3
ارفقت صورة

الاخطاء التالية


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة:
#4
ارفق مثال صغير لهذه العملية لفيجول 6
 

لتسهيل الامر
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم