سلام
انشاء ترميز باركود من نوع QR عن طريق موقع جوجل
تحتاج زر ومربع نص ومربع صوره
![[صورة مرفقة: 1441194155751.png]](http://store1.up-00.com/2015-09/1441194155751.png)
موفقين
انشاء ترميز باركود من نوع 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![[صورة مرفقة: 1441194155751.png]](http://store1.up-00.com/2015-09/1441194155751.png)
موفقين
متغيب

