Hallo Community,
Ich habe mich mal daran begeben einen QR-Code-Generator zu basteln un bin soweit gekommen
Ich habe nur das Problem das er diesen Teil nicht annehmen will und ich kann mir nicht erklären warum
Kann mir wer helfen?
Ich habe mich mal daran begeben einen QR-Code-Generator zu basteln un bin soweit gekommen
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- PictureBox1.Image = QRCode(TextBox1.Text, New Size(256, 256))
- End Sub
- Private Function QRCode(Data As String, Size As Size)
- Dim web As New System.Net.WebClient
- Dim url As String = "http://chart.googleapis.com/chart?chs="
- url &= Size.Width.ToString() & "x" & Size.Height.ToString()
- url &= "&cht=qr&chl=" & System.Uri.EscapeDataString(Data)
- Dim bytes As Byte() = web.DownloadData(url)
- Dim bmp As Bitmap() = Nothing
- Using mem As New IO.MemoryStream(bytes)
- bmp = Bitmap.FromStream(mem)
- End Using
- Return bmp
- End Function
- End Class
Ich habe nur das Problem das er diesen Teil nicht annehmen will und ich kann mir nicht erklären warum
Kann mir wer helfen?