<%@ Page language="vb" debug=true %>
<%@ Import NameSpace = "Zxing.Interop.Encoding.BarcodeWriter" %>
<%@ Import NameSpace = "System.IO" %>
<%@ Import NameSpace = "System.Drawing" %>

'-----------------------------------------------'
'QR-Code
'-----------------------------------------------'
Dim ZX As New ZXing.BarcodeWriter
Dim bmp As Bitmap

Zx.Format = ZXing.BarcodeFormat.QR_CODE
Zx.Options.Height = 250
Zx.Options.Width = 250
Zx.Options.Margin = 0.9
Zx.Options.PureBarcode = True
Zx.Format = 2048

bmp = Zx.Write("Test_1234")
bmp.Save("c:inetpubwwwroottesterqrcode.png", Imaging.ImageFormat.Png)
'-----------------------------------------------'

Zx.Options.ErrorCorrection = ErrorCorrectionLevel_H

Zx.ErrorCorrection = ErrorCorrectionLevel_H

ErrorCorrection = ErrorCorrectionLevel_H

Compiler Error Message: BC30456: 'ErrorCorrection' is not a member of 'ZXing.Common.EncodingOptions'.

Filename: zxing.dll
File Description: Zxing.net for 3.5
File Version: 0.16.4.0
Sha256 Hash: e1ed37bb6d376a35a05169a6bad52c6d589eac3bc3d676fc4ed6336e84d59fea

<%@ Page language="vb" debug=true %>
<%@ Import NameSpace = "System.Drawing" %>
<%

'-----------------------------------------------'
'QR-Code
'-----------------------------------------------'
Dim ZX As New ZXing.BarcodeWriter
Dim bmp As Bitmap
Dim options as ZXing.QrCode.QrCodeEncodingOptions

options = New ZXing.QrCode.QrCodeEncodingOptions
options.ErrorCorrection = ZXing.QrCode.Internal.ErrorCorrectionLevel.H
options.Height = 250
options.Width = 250
options.Margin = 0.9
options.PureBarcode = True

Zx.Format = ZXing.BarcodeFormat.QR_CODE
Zx.Options = options

bmp = Zx.Write("Test_1234")
bmp.Save("c:inetpubwwwroottesterqrcode.png", Imaging.ImageFormat.Png)
'-----------------------------------------------'
%>