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