C# WindowsアプリケーションでQRコードを生成する方法

using IronBarCode; // Provides functionality for QR and barcode generation
using System; // Contains fundamental classes and base classes that define commonly-used value and reference data types
using System.Drawing; // Provides access to GDI+ basic graphic functionality
using System.Linq; // Provides classes and interfaces that support queries

Imports IronBarCode ' Provides functionality for QR and barcode generation
Imports System ' Contains fundamental classes and base classes that define commonly-used value and reference data types
Imports System.Drawing ' Provides access to GDI+ basic graphic functionality
Imports System.Linq ' Provides classes and interfaces that support queries

// Simple QR Code generation
private void button1_Click(object sender, EventArgs e)
{
    // Generate a QR code from the text provided in the TextBox
    GeneratedBarcode qrCode = QRCodeWriter.CreateQrCode(textBox1.Text);

    // Save the generated QR code as a PNG file
    qrCode.SaveAsPng("QrCode.png");
}

' Simple QR Code generation
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
	' Generate a QR code from the text provided in the TextBox
	Dim qrCode As GeneratedBarcode = QRCodeWriter.CreateQrCode(textBox1.Text)

	' Save the generated QR code as a PNG file
	qrCode.SaveAsPng("QrCode.png")
End Sub

// Open file dialog to select an image
OpenFileDialog open = new OpenFileDialog();
// Set image file filters to ensure valid image types are opened
open.Filter = "Image Files(*.jpg; *.png; *.jpeg; *.gif; *.bmp)|*.jpg; *.png; *.jpeg; *.gif; *.bmp";
if (open.ShowDialog() == DialogResult.OK) {
    // Display image in PictureBox and store file path for later use
    pictureBox1.Image = new Bitmap(open.FileName);
    // Store image file path in class data member
    ImageFileName = open.FileName;
}

' Open file dialog to select an image
Dim open As New OpenFileDialog()
' Set image file filters to ensure valid image types are opened
open.Filter = "Image Files(*.jpg; *.png; *.jpeg; *.gif; *.bmp)|*.jpg; *.png; *.jpeg; *.gif; *.bmp"
If open.ShowDialog() = DialogResult.OK Then
	' Display image in PictureBox and store file path for later use
	pictureBox1.Image = New Bitmap(open.FileName)
	' Store image file path in class data member
	ImageFileName = open.FileName
End If

// Generate a QR code with a logo
GeneratedBarcode qrCode = QRCodeWriter.CreateQrCodeWithLogo(textBox1.Text, ImageFileName, 500);
// Save the generated QR code with logo as a PNG file
qrCode.SaveAsPng("QrCodeWithImage.png");

' Generate a QR code with a logo
Dim qrCode As GeneratedBarcode = QRCodeWriter.CreateQrCodeWithLogo(textBox1.Text, ImageFileName, 500)
' Save the generated QR code with logo as a PNG file
qrCode.SaveAsPng("QrCodeWithImage.png")

// Generate a QR code with a logo
GeneratedBarcode qrCode = QRCodeWriter.CreateQrCodeWithLogo(textBox1.Text, ImageFileName, 500);

// Save the QR code as a PDF file
qrCode.SaveAsPdf("QRWithLogo.pdf");

// Also, save the QR code as an HTML file
qrCode.SaveAsHtmlFile("QRWithLogo.html");

' Generate a QR code with a logo
Dim qrCode As GeneratedBarcode = QRCodeWriter.CreateQrCodeWithLogo(textBox1.Text, ImageFileName, 500)

' Save the QR code as a PDF file
qrCode.SaveAsPdf("QRWithLogo.pdf")

' Also, save the QR code as an HTML file
qrCode.SaveAsHtmlFile("QRWithLogo.html")