منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة في تحويل كود من VB6 الى VB.NET - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعدة في تحويل كود من VB6 الى VB.NET (/showthread.php?tid=33294)

ارجو المساعدة في تحويل كود من VB6 الى VB.NET - VB.NET - 04-02-20

السلام عليكم ورحمة الله 
في الفيجوال بيسك 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

RE: ارجو المساعدة في تحويل كود من VB6 الى VB.NET - bidaya - 04-02-20

(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


RE: ارجو المساعدة في تحويل كود من VB6 الى VB.NET - VB.NET - 04-02-20

ارفقت صورة
الاخطاء التالية

RE: ارجو المساعدة في تحويل كود من VB6 الى VB.NET - bidaya - 04-02-20

ارفق مثال صغير لهذه العملية لفيجول 6
 

لتسهيل الامر