VB生成二维码
Public Function CreateQRCode(ByVal barCode As String, ByVal UserID As String) As String
Dim ImagePath As String = ""
Try
Dim qrCode As ThoughtWorks.QRCode.Codec.QRCodeEncoder = New ThoughtWorks.QRCode.Codec.QRCodeEncoder()
qrCode.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE
qrCode.QRCodeScale = 2
qrCode.QRCodeVersion = 6
qrCode.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M
Dim imgFile As String = UserID + "_" + Guid.NewGuid().ToString() + ".jpg"
Dim imgPath As String = Application.StartupPath() + ("\temp") + "\"
Dim imgCode As System.Drawing.Image = qrCode.Encode(barCode)
Dim fsFile As System.IO.FileStream = New System.IO.FileStream(imgPath + imgFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
imgCode.Save(fsFile, System.Drawing.Imaging.ImageFormat.Jpeg)
fsFile.Close()
imgCode.Dispose()
ImagePath = imgPath + imgFile
Catch ex As Exception
ImagePath = ""
Throw ex
End Try
Return ImagePath
End Function
生成二维码,条形码