在VB.NET开发中使用二维码本地生成

由于在漫展售票系统的本地开发上需要使用二维码进行检票入场的需求,因此在票务系统上使用了二维码生成。

原先在没有使用本地生成的时候用的是外部链接,把链接后半段替换成内容并且打开。

目前最新版本使用了本地DLL

具体的生成代码如下

 

Private Sub CodeShow_Paint(sender As Object, e As PaintEventArgs) Handles CodeShow.Paint
‘此语句只能放在此事件中,因为要后面的e.Graphics其它事件中没有
If _flag = 1 Then
_DotNetBar.Type = DotNetBarcode.Types.QRCode
_DotNetBar.WriteBar(TextBox2.Text, 0, 0, Me.CodeShow.Size.Width, Me.CodeShow.Size.Height, e.Graphics) ‘画出条码
Dim PathUserData As String = Application.StartupPath & “\Data\Log\SysLog.Dat”
Dim _CreateBmpLog As System.IO.StreamWriter = New System.IO.StreamWriter(PathUserData, True, System.Text.Encoding.UTF8)
_CreateBmpLog.Write(Now().Year.ToString + “-” + Now().Month.ToString + “-” + Now().Day.ToString + ” ” + Now().ToLongTimeString + “–” + “Ticket_No_” + TextBox2.Text + “…Code_Picture…Making…Done!” + vbCrLf)
_CreateBmpLog.Close()
End If
End Sub

使用的外部DLL名称为DotNetBarcode.DLL
我觉得搜一下应该会有www

发表评论

电子邮件地址不会被公开。 必填项已用*标注