前提・実現したいこと
DotNetBarcodeを使用して作成したQRCodeをPictureBoxに表示しています。
PictureBoxに表示されているQRコードをバイナリデータとして取得したいのですが
作成されたQRCodeはImageで取得できないのか
思ったように動きません。
どのようにすれば取得できますでしょうか。
該当のソースコード
VB
1Public Class Form1 2 3 Dim bc1 As System.DotNetBarcode = New System.DotNetBarcode 4 5 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 6 7 bc1.Type = System.DotNetBarcode.Types.QRCode 8 bc1.PrintCheckDigitChar = True 9 10 End Sub 11 12 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 13 14 Me.PictureBox1.Refresh() 15 16 End Sub 17 18 Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint 19 20 bc1.WriteBar(Me.TextBox1.Text, 0, 0, Me.PictureBox1.Size.Width, Me.PictureBox1.Size.Height, e.Graphics) 21 22 End Sub 23 24 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 25 26 Dim img As Image 27 28 29 img = PictureBox1.Image '←変数の中身はnothing 30 31 ImgtoByte(img) 32 33 End Sub 34 35 Private Function ImgtoByte(ByVal img As Image) As Byte() 36 37 Dim b As Byte() 38 Dim imgconv As New ImageConverter 39 40 b = CType(imgconv.ConvertTo(img, GetType(Byte())), Byte()) 41 42 Return b 43 44 End Function 45 46End Class
補足情報(FW/ツールのバージョンなど)
開発
Visual Studio2019
VB.net
回答欄に移動しました。
質問者さん、無言ですが、回答がついてますのでそれらに対するフィードバックを返してください。役に立った/立たなかったぐらいはすぐにでも返せるのでは? 役に立たなかったならどこがダメだったかを書くとより期待に近い回答が出てくるかも。とにかく無言は NG です。
回答2件
あなたの回答
tips
プレビュー