[djelloul]

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

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

[boudyonline]

هل تقصد عمل 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")

[djelloul]

السلام عليكم ورحمة الله تعالى وبركاته
شكرا لكم أخي الكريم على تفاعلكم وردكم السريع فقط لو تتكرم وتتفضل بشرح الكود
ألف شكر لكم