[الطالب]

سلام


انشاء ترميز باركود من نوع QR عن طريق موقع جوجل

تحتاج زر ومربع نص ومربع صوره

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   PictureBox1.Image = QRCodeGeneratorOnline(TextBox1.Text)
End Sub

Private Function QRCodeGeneratorOnline(ByVal txt As String) As Image
   On Error Resume Next
   Dim data As Array = New System.Net.WebClient().DownloadData("http://chart.apis.google.com/chart?cht=qr&chs=200x200&chl=" & txt)
   Return Image.FromStream(New IO.MemoryStream(TryCast(data, Array)))
End Function

موفقين