منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عرض الكود بار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله تعالى وبركاته

يا أساتذة رجاءا هل عناك أداة معينة لعرض الباركود كشيفرة هل أستعمل PictureBox أم TextBox أم هناك أداة معينة لدلك أرجوا الإفادة من فضلكم وربي يجازيكم خيرا
هل تقصد عمل QR كود ؟

Generate Compatible QR Code Barcode

كود :
Dim qr_code As New QRCode()

  ' Set QR Code barcode data
  qr_code.Data = "(6221)06789900799"

  ' Set QR Code data mode
  qr_code.DataMode = QRCodeDataMode.Auto

  ' Set QR Code to be GS1 Compatible
  qr_code.FNC1 = FNC1.FNC1_1ST_POS

  ' Set QR Code barcode size;
  qr_code.UOM = UnitOfMeasure.PIXEL
  qr_code.X = 4
  qr_code.LeftMargin = 16
  qr_code.RightMargin = 16
  qr_code.TopMargin = 16
  qr_code.BottomMargin = 16

  ' Save created QR Code to png file format
  qr_code.ImageFormat = System.Drawing.Imaging.ImageFormat.Png
  qr_code.drawBarcode("C:\vb-net_qr_code.png")
السلام عليكم ورحمة الله تعالى وبركاته
شكرا لكم أخي الكريم على تفاعلكم وردكم السريع فقط لو تتكرم وتتفضل بشرح الكود
ألف شكر لكم