Private Sub Button1 Click sender As Object e As EventArgs Handles Button1 Click
Dim bc1 As DotNetBarcode New DotNetBarcode DotNetBarcode Types QRCode
bc1 SaveFileType DotNetBarcode SaveFileTypes Gif
bc1 QRSave txtBarcode Text Trim "d: barcode bmp" 4
End Sub">Private Sub Button1 Click sender As Object e As EventArgs Handles Button1 Click
Dim bc1 As DotNetBarcode New DotNetBarcode DotNetBarcode Types QRCode
bc1 SaveFileType DotNetBarcode SaveFileTypes Gif
bc1 QRSave txtBarcode Text Trim "d: barcode bmp" 4
En [更多]
2019-12-21 20:21:43
34KB
二维码
1