心血来潮用vb写-音标发音小程序

小程序界面：

 

实现功能：

                   1.单击按钮播放一次 

                   2.长按按钮循环播放 

                   3.切换界面

关键代码：

利用3个事件：单击、鼠标按下、鼠标弹起

Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public num As String

Private Sub Form_DblClick()
    Form1.Hide      '界面切换
    Form2.Show
    
End Sub


Private Sub Timer1_Timer()
   'Form1.Print "hello" '测试文字
    'Label1.Caption = num
    wav (num) '计时器每隔1s播放一次音频 在timer1里设置间隔为1000ms
End Sub

Private Function wav(num)
    Label1.Caption = num
    SoundFile = App.Path & "\wav\" + num + ".wav" '相对路径调用工程下wav文件夹的1.wav
    Result = sndPlaySound(SoundFile, 1)
End Function

Private Sub Command1_Click()
    num = 1           '根据按钮编号对应音频文件名
    wav (num)
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    num = 1 '音频顺序名
    Timer1.Enabled = True  '按下按钮开启计时器
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Timer1.Enabled = False  '按下按钮关闭计时器
End Sub

文末附上小程序：https://download.csdn.net/download/u010746293/11741064