'声明常量 下面是这个函数的dwFlags参数的常用值
Const SND_SYNC = &H0 '声音同步播放
Const SND_ASYNC = &H1 '声音非同步播放
Const SND_NODEFAULT = &H2 '如果声音文件不存在也不产生错误
Const SND_FILENAME = &H20000 '声音是文件类型
r = PlaySound( "D:\示例.wav", 0&, SND_ASYNC Or AND_FILENAME Or SND_NODEFAULT)
写这么明白 应该了解了吧
Controls.Visible = Visible
Controls.settings.Volume = Volume
Controls.URL = File
Controls.Controls.play
End Function
'以上放到模块中
添加一个windowsmediaplayer控件
调用MediaPlayer,方法如下
Private Sub Form_Load()
MediaPlayer WindowsMediaPlayer1, "1.mp3", 100, 0 '控件名,文件路径,音量最大100,0隐藏或1显示控件
End Sub
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Sub Command1_Click()
PlaySound "C:\WINDOWS\Media\ding.wav", 0, SND_ASYNC
End Sub本回答被提问者采纳
用vb怎样实现单击一个按钮触发一个声音文件
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long '声明API函数 '声明常量 下面是这个函数的dwFlags参数的常用值 Const SND_SYNC = &H0 '声音同步播放 Const SND_ASYNC = &H1 ...
VB中如何在单击command按钮时播放一小段声音,类似于按键音的。_百度知...
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Const SND_ASYNC = &H1 Private Const SND_FILENAME = &H20000 Private Sub Command1_Click()PlaySound "e:\\tmp\\2.wav...
请问怎么用VB实现点击一个按钮弹出一个对话框
Private Sub Command1_Click()MsgBox "因为你长的不够帅，所以执行了非法操作， " + Chr(13) + " " + Chr(13) + "此程序即将关闭，" + Chr(10) + " " + Chr(13) + "如果有问题，请与供应商联系。", 19, "系统信息"End Sub ...
VB怎样设置点击一个按钮后弹出另一个窗口
要新建一个窗口 form2在那个按钮上双击，然后输入Private Sub command1_click1()form2.Show End Sub就可以了
如何做单击vb的一个命令按钮打开某一个文件?
用cmd 打开文件：shell "cmd.exe \/c start "+chr(34)+chr(34)+" "+chr(34)+"你的文件路径"+chr(34),vbhide 有效防止shell打不开除exe以外格式的程序。
VB怎样设置点击一个按钮后弹出另一个窗口
首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：Private Sub Command1_Click()Form2.Show\/\/用show方法加载并且显示名为Form2的窗体 End Sub show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。
VB.net中 单击一个按钮,打开已知目录的某个文件,如何通过代码实现
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Process.Start("C:\\1.txt")End Sub
vb中单击命令按钮触发哪些事件
1、在vb中单击命令按钮触发单击事件，即窗体的Click事件。2、在vb中单击命令按钮触发失去焦点事件，当焦点不在按钮上即发生。3、在vb中单击命令按钮触发键盘按下事件，任意按下任意的键盘即可触发事件。4、在vb中单击命令按钮触发鼠标按下事件，当鼠标按下即可触发的事件，无论是左键还是右键。5、在vb...
VB里怎样实现点击一个命令按钮就使Filelistbox里的第一个文件被选中
这个简单：Private Sub Command1_Click() '单击则选中第一个文件 File1.ListIndex = 0 End Sub Private Sub Command2_Click() '单击则选中下一个文件，到最后一个文件后若单击则转到第一个文件 If File1.ListIndex < File1.ListCount - 1 Then File1.ListIndex = File1.ListIndex + ...
VB里怎么实现按一个按钮弹出“打开”对话框,并且复制选中文件地址到文本...
Private Sub Command1_Click()cd1.ShowOpen Text1.Text = cd1.FileName End Sub 上面代码中cd1是common dialog控件，添加方法：在vb6中单击菜单 工程-->部件，在部件对话框中选择microsoft common dialog control6.0 确定
