本文介绍如何使用Visual Basic编程，在鼠标悬停于按钮上时触发声音播放功能。通过调用Winmm.dll库中的sndPlaySound函数，并在MoveOver事件中编写相应代码来实现这一效果。
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
Private Sub Cmdplay_Click()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)
End Sub
我想你的意思不是点下按钮会发声
应该是鼠标经过按钮的时候发声对吧？
那就在moveover的事件里写上面的代码：)
Private Sub Cmdplay_Click()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)
End Sub
我想你的意思不是点下按钮会发声
应该是鼠标经过按钮的时候发声对吧？
那就在moveover的事件里写上面的代码：)
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
