VB.NET版日语五十音

版权声明： https://blog.csdn.net/eds124/article/details/82795284

Imports System.Media

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(0, 0)
        Me.Size = New Size(525, 835)
        Me.MaximizeBox = False

        Dim blist As Button(,) = New Button(15, 4) {}
        Dim list As String(,) = {
            {"あア", "いイ", "うウ", "えエ", "おオ"},
            {"かカ", "きキ", "くク", "けケ", "こコ"},
            {"がガ", "ぎギ", "ぐグ", "げゲ", "ごゴ"},
            {"さサ", "しシ", "すス", "せセ", "そソ"},
            {"ざザ", "じジ", "ずズ", "ぜゼ", "ぞゾ"},
            {"たタ", "ちチ", "つツ", "てテ", "とト"},
            {"だダ", "ぢヂ", "づヅ", "でデ", "どド"},
            {"なナ", "にニ", "ぬヌ", "ねネ", "のノ"},
            {"はハ", "ひヒ", "ふフ", "へヘ", "ほホ"},
            {"ばバ", "びビ", "ぶブ", "べベ", "ぼボ"},
            {"ぱパ", "ぴピ", "ぷプ", "ぺペ", "ぽポ"},
            {"まマ", "みミ", "むム", "めメ", "もモ"},
            {"やヤ", "いイ", "ゆユ", "えエ", "よヨ"},
            {"らラ", "りリ", "るル", "れレ", "ろロ"},
            {"わワ", "いイ", "うウ", "えエ", "をヲ"},
            {"んン", Nothing, Nothing, Nothing, Nothing}
        }

        For i As Integer = 0 To list.GetLength(0) - 1
            For j As Integer = 0 To list.GetLength(1) - 1
                If list(i, j) = Nothing Then
                    Exit For
                Else
                    blist(i, j) = New Button()
                    blist(i, j).Text = list(i, j)
                    blist(i, j).Location = New Point(j * 100, i * 50)
                    blist(i, j).Size = New Size(100, 50)
                    blist(i, j).Font = New Font("微软雅黑", 20)
                    Me.Controls.Add(blist(i, j))
                    AddHandler blist(i, j).Click, New EventHandler(AddressOf Me.button_click)
                End If
            Next
        Next i

    End Sub

    Private Sub button_click(ByVal o As Object, ByVal ea As EventArgs)
        Dim b_name As String = (CType(o, Button)).Text
        Try
            Using sp As SoundPlayer = New SoundPlayer("read/" & b_name & ".wav")
                sp.Load()
                sp.Play()
            End Using
        Catch e As Exception
            MessageBox.Show(e.Message)
        End Try
    End Sub
End Class