02-09-15, 03:54 PM
سلام
انشاء ترميز باركود من نوع QR عن طريق موقع جوجل
تحتاج زر ومربع نص ومربع صوره
موفقين
انشاء ترميز باركود من نوع 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
موفقين
متغيب