C#自定义二维码

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

生成二维码，条形码