VB.NET版日语五十音

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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值