二维码嵌入文字如何换?
直接上代码:
Me。Text1。Text = "批次:1408M1" & Chr(10) & "图号:M01-01-001"
Me。QRmaker1。InputData = Me。Text1。 Text '读取支持换行的文本框
Me。QRmaker1。Refresh
Picture1。Picture = Me。QRmaker1。Picture
SavePicture Picture1。 Image, App。Path & "\二维码。bmp" '生成二维码图片。
直接上代码:
Me。Text1。Text = "批次:1408M1" & Chr(10) & "图号:M01-01-001"
Me。QRmaker1。InputData = Me。Text1。
Text '读取支持换行的文本框
Me。QRmaker1。Refresh
Picture1。Picture = Me。QRmaker1。Picture
SavePicture Picture1。
Image, App。Path & "\二维码。bmp" '生成二维码图片。收起