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(515, 835)
Me.MaximizeBox = False
Dim blist As Button(,) = New Button(16, 5) {}
Dim list As String(,) = {
{"あア", "いイ", "うウ", "えエ", "おオ"},
{"かカ", "きキ", "くク", "けケ", "こコ"},
{"がガ", "ぎギ", "ぐグ", "げゲ", "ごゴ"},
{"さサ", "しシ", "すス", "せセ", "そソ"},
{"ざザ", "じジ", "ずズ", "ぜゼ", "ぞゾ"},
{"たタ", "ちチ", "つツ", "てテ", "とト"},
{"だダ", "ぢヂ", "づヅ", "でデ", "どド"},
{"なナ", "にニ", "ぬヌ", "ねネ", "のノ"},
{"はハ", "ひヒ", "ふフ", "へヘ", "ほホ"},
{"ばバ", "びビ", "ぶブ", "べベ", "ぼボ"},
{"ぱパ", "ぴピ", "ぷプ", "ぺペ", "ぽポ"},
{"まマ", "みミ", "むム", "めメ", "もモ"},
{"やヤ", "いイ", "ゆユ", "えエ", "よヨ"},
{"らラ", "りリ", "るル", "れレ", "ろロ"},
{"わワ", "いイ", "うウ", "えエ", "をヲ"},
{"んン", Nothing, Nothing, Nothing, Nothing}
}
For i As Integer = 0 To 15
For j As Integer = 0 To 4
If list(i, j) = Nothing Then
Exit For
End If
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)
Next j
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
VB.net版日文五十音。
最新推荐文章于 2019-01-29 08:41:57 发布