名刺用QRコードジェネレーター（初心者向けガイド）

<?xml version="1.0" encoding="utf-8" ?>
<ContentPage xmlns="___PROTECTED_URL_44___"
             xmlns:x="___PROTECTED_URL_45___"
             x:Class="QR_Code_Business_Card.MainPage"
             Title="vCard QR Generator">
    <Grid Padding="20" RowDefinitions="*,Auto" ColumnDefinitions="*,Auto,*">

        <ScrollView Grid.Column="0">
            <VerticalStackLayout Spacing="15">

                <Entry x:Name="FirstNameEntry" 
                       Placeholder="First Name*" 
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="LastNameEntry" 
                       Placeholder="Last Name*"
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="EmailEntry" 
                       Placeholder="Email*" 
                       Keyboard="Email"
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="PhoneEntry" 
                       Placeholder="Phone*" 
                       Keyboard="Telephone"
                       TextColor="Black"
                       PlaceholderColor="Gray" />

                <Entry x:Name="CompanyEntry" 
                       Placeholder="Company"
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="TitleEntry" 
                       Placeholder="Job Title"
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="WebsiteEntry" 
                       Placeholder="Website" 
                       Keyboard="Url"
                       TextColor="Black"
                       PlaceholderColor="Gray" />
                <Entry x:Name="AddressEntry" 
                       Placeholder="Address"
                       TextColor="Black"
                       PlaceholderColor="Gray"
                       Margin="0,0,0,10" />

                <Button x:Name="GenerateButton" 
                        Text="Generate QR Code"
                        Clicked="OnGenerateButtonClicked"
                        HorizontalOptions="Fill"
                        BackgroundColor="#8E24AA"
                        TextColor="White"
                        CornerRadius="5"
                        HeightRequest="50"
                        Margin="0,10,0,0" />
            </VerticalStackLayout>
        </ScrollView>

        <BoxView Grid.Column="1" 
                 WidthRequest="1" 
                 Color="LightGray" 
                 Margin="10,0" />

        <VerticalStackLayout Grid.Column="2" Spacing="15">
            <Image x:Name="QrCodeImage"
                   HeightRequest="200"
                   WidthRequest="200"
                   Aspect="AspectFit"
                   Source="___PROTECTED_URL_46___" />
            <Button x:Name="SaveQRButton" 
                    Text="Save QR Code"
                    Clicked="OnSaveQRButtonClicked"
                    IsEnabled="False"
                    HorizontalOptions="Fill"
                    BackgroundColor="#7B1FA2"
                    TextColor="White"
                    CornerRadius="5"
                    HeightRequest="45" />
        </VerticalStackLayout>
    </Grid>
</ContentPage>

using IronQr;
using IronSoftware.Drawing;
using System.Text.RegularExpressions;

namespace QR_Code_Business_Card
{
    public partial class MainPage : ContentPage
    {
        private AnyBitmap qrImage;

        public MainPage()
        {
            // Set your IronQR license key here
            // Learn more: ___PROTECTED_URL_47___
            License.LicenseKey = "License"; 
            InitializeComponent();
        }

        private async void OnGenerateButtonClicked(object sender, EventArgs e)
        {
            // Validate all required fields are filled
            if (!ValidateInputs())
            {
                await DisplayAlert("Validation Error", 
                    "Please fill in all required fields correctly.", "OK");
                return;
            }

            try
            {
                // Generate vCard data from user inputs
                string vCardData = GenerateVCardData();

                // Create a QR Code object using IronQR
                // For advanced styling: ___PROTECTED_URL_48___
                QrCode myQr = QrWriter.Write(vCardData);

                // Save QR Code as a Bitmap
                qrImage = myQr.Save();

                // Display QR Code image in the UI
                string tempFileName = Path.Combine(FileSystem.CacheDirectory, "temp_qr.png");
                qrImage.SaveAs(tempFileName);
                QrCodeImage.Source = ImageSource.FromFile(tempFileName);

                // Enable save button once QR code is generated
                SaveQRButton.IsEnabled = true;
                await DisplayAlert("Success", "Generated QR code is ready!", "OK");
            }
            catch (Exception ex)
            {
                await DisplayAlert("Error", 
                    $"Failed to generate QR code: {ex.Message}", "OK");
            }
        }

        private async void OnSaveQRButtonClicked(object sender, EventArgs e)
        {
            if (qrImage == null)
            {
                await DisplayAlert("Error", "Please generate a QR code first!", "OK");
                return;
            }

            try
            {
                // Save QR code to app data directory
                string fileName = Path.Combine(FileSystem.AppDataDirectory, 
                    $"vcard_qr_{DateTime.Now:yyyyMMddHHmmss}.png");
                qrImage.SaveAs(fileName);

                // Optionally share the QR code
                await ShareQRCode(fileName);

                await DisplayAlert("Success", 
                    $"QR Code saved successfully!", "OK");
            }
            catch (Exception ex)
            {
                await DisplayAlert("Error", 
                    $"Failed to save QR code: {ex.Message}", "OK");
            }
        }

        private async Task ShareQRCode(string filePath)
        {
            await Share.RequestAsync(new ShareFileRequest
            {
                Title = "Share Business Card QR Code",
                File = new ShareFile(filePath)
            });
        }

        private bool ValidateInputs()
        {
            // Check required fields
            if (string.IsNullOrWhiteSpace(FirstNameEntry.Text) ||
                string.IsNullOrWhiteSpace(LastNameEntry.Text) ||
                string.IsNullOrWhiteSpace(PhoneEntry.Text))
            {
                return false;
            }

            // Basic email validation using regex
            if (string.IsNullOrWhiteSpace(EmailEntry.Text) || 
                !Regex.IsMatch(EmailEntry.Text, @"^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$"))
            {
                return false;
            }

            // Validate phone number format (basic validation)
            if (!Regex.IsMatch(PhoneEntry.Text, @"^[\d\s\-\+\(\)]+$"))
            {
                return false;
            }

            // Validate website URL if provided
            if (!string.IsNullOrWhiteSpace(WebsiteEntry.Text) &&
                !Uri.IsWellFormedUriString(WebsiteEntry.Text, UriKind.Absolute))
            {
                return false;
            }

            return true;
        }

        private string GenerateVCardData()
        {
            // Generate vCard 3.0 format data
            // Learn about supported formats: ___PROTECTED_URL_49___
            var vCard = new System.Text.StringBuilder();
            vCard.AppendLine("BEGIN:VCARD");
            vCard.AppendLine("VERSION:3.0");
            vCard.AppendLine($"N:{LastNameEntry.Text};{FirstNameEntry.Text}");
            vCard.AppendLine($"FN:{FirstNameEntry.Text} {LastNameEntry.Text}");

            if (!string.IsNullOrWhiteSpace(CompanyEntry.Text))
                vCard.AppendLine($"ORG:{CompanyEntry.Text}");

            if (!string.IsNullOrWhiteSpace(TitleEntry.Text))
                vCard.AppendLine($"TITLE:{TitleEntry.Text}");

            vCard.AppendLine($"TEL;TYPE=WORK,VOICE:{PhoneEntry.Text}");
            vCard.AppendLine($"EMAIL:{EmailEntry.Text}");

            if (!string.IsNullOrWhiteSpace(WebsiteEntry.Text))
                vCard.AppendLine($"URL:{WebsiteEntry.Text}");

            if (!string.IsNullOrWhiteSpace(AddressEntry.Text))
                vCard.AppendLine($"ADR;TYPE=WORK:;;{AddressEntry.Text}");

            vCard.AppendLine("END:VCARD");

            return vCard.ToString();
        }
    }
}

Imports IronQr
Imports IronSoftware.Drawing
Imports System.Text.RegularExpressions

Namespace QR_Code_Business_Card
    Partial Public Class MainPage
        Inherits ContentPage

        Private qrImage As AnyBitmap

        Public Sub New()
            ' Set your IronQR license key here
            ' Learn more: ___PROTECTED_URL_47___
            License.LicenseKey = "License"
            InitializeComponent()
        End Sub

        Private Async Sub OnGenerateButtonClicked(sender As Object, e As EventArgs)
            ' Validate all required fields are filled
            If Not ValidateInputs() Then
                Await DisplayAlert("Validation Error", "Please fill in all required fields correctly.", "OK")
                Return
            End If

            Try
                ' Generate vCard data from user inputs
                Dim vCardData As String = GenerateVCardData()

                ' Create a QR Code object using IronQR
                ' For advanced styling: ___PROTECTED_URL_48___
                Dim myQr As QrCode = QrWriter.Write(vCardData)

                ' Save QR Code as a Bitmap
                qrImage = myQr.Save()

                ' Display QR Code image in the UI
                Dim tempFileName As String = Path.Combine(FileSystem.CacheDirectory, "temp_qr.png")
                qrImage.SaveAs(tempFileName)
                QrCodeImage.Source = ImageSource.FromFile(tempFileName)

                ' Enable save button once QR code is generated
                SaveQRButton.IsEnabled = True
                Await DisplayAlert("Success", "Generated QR code is ready!", "OK")
            Catch ex As Exception
                Await DisplayAlert("Error", $"Failed to generate QR code: {ex.Message}", "OK")
            End Try
        End Sub

        Private Async Sub OnSaveQRButtonClicked(sender As Object, e As EventArgs)
            If qrImage Is Nothing Then
                Await DisplayAlert("Error", "Please generate a QR code first!", "OK")
                Return
            End If

            Try
                ' Save QR code to app data directory
                Dim fileName As String = Path.Combine(FileSystem.AppDataDirectory, $"vcard_qr_{DateTime.Now:yyyyMMddHHmmss}.png")
                qrImage.SaveAs(fileName)

                ' Optionally share the QR code
                Await ShareQRCode(fileName)

                Await DisplayAlert("Success", "QR Code saved successfully!", "OK")
            Catch ex As Exception
                Await DisplayAlert("Error", $"Failed to save QR code: {ex.Message}", "OK")
            End Try
        End Sub

        Private Async Function ShareQRCode(filePath As String) As Task
            Await Share.RequestAsync(New ShareFileRequest With {
                .Title = "Share Business Card QR Code",
                .File = New ShareFile(filePath)
            })
        End Function

        Private Function ValidateInputs() As Boolean
            ' Check required fields
            If String.IsNullOrWhiteSpace(FirstNameEntry.Text) OrElse
               String.IsNullOrWhiteSpace(LastNameEntry.Text) OrElse
               String.IsNullOrWhiteSpace(PhoneEntry.Text) Then
                Return False
            End If

            ' Basic email validation using regex
            If String.IsNullOrWhiteSpace(EmailEntry.Text) OrElse
               Not Regex.IsMatch(EmailEntry.Text, "^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$") Then
                Return False
            End If

            ' Validate phone number format (basic validation)
            If Not Regex.IsMatch(PhoneEntry.Text, "^[\d\s\-\+\(\)]+$") Then
                Return False
            End If

            ' Validate website URL if provided
            If Not String.IsNullOrWhiteSpace(WebsiteEntry.Text) AndAlso
               Not Uri.IsWellFormedUriString(WebsiteEntry.Text, UriKind.Absolute) Then
                Return False
            End If

            Return True
        End Function

        Private Function GenerateVCardData() As String
            ' Generate vCard 3.0 format data
            ' Learn about supported formats: ___PROTECTED_URL_49___
            Dim vCard As New System.Text.StringBuilder()
            vCard.AppendLine("BEGIN:VCARD")
            vCard.AppendLine("VERSION:3.0")
            vCard.AppendLine($"N:{LastNameEntry.Text};{FirstNameEntry.Text}")
            vCard.AppendLine($"FN:{FirstNameEntry.Text} {LastNameEntry.Text}")

            If Not String.IsNullOrWhiteSpace(CompanyEntry.Text) Then
                vCard.AppendLine($"ORG:{CompanyEntry.Text}")
            End If

            If Not String.IsNullOrWhiteSpace(TitleEntry.Text) Then
                vCard.AppendLine($"TITLE:{TitleEntry.Text}")
            End If

            vCard.AppendLine($"TEL;TYPE=WORK,VOICE:{PhoneEntry.Text}")
            vCard.AppendLine($"EMAIL:{EmailEntry.Text}")

            If Not String.IsNullOrWhiteSpace(WebsiteEntry.Text) Then
                vCard.AppendLine($"URL:{WebsiteEntry.Text}")
            End If

            If Not String.IsNullOrWhiteSpace(AddressEntry.Text) Then
                vCard.AppendLine($"ADR;TYPE=WORK:;;{AddressEntry.Text}")
            End If

            vCard.AppendLine("END:VCARD")

            Return vCard.ToString()
        End Function
    End Class
End Namespace