Question

vb6有关声音的问题

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'添加一个按钮
Private Sub Command1_Click()
mciSendString "close c:\windows\media\ding.wav", vbNullString, 0, 0
mciSendString "open c:\windows\media\ding.wav", vbNullString, 0, 0
mciSendString "play c:\windows\media\ding.wav", vbNullString, 0, 0

End Sub

为什么用了这种方法后一运行就提示“变量未定义”（Form_Load里用了For循环）？如何修改？

Answer 1

Option Explicit 表示所有变量都要进行定义,不定义就会出错

Answer 2

给你个参考吧，懒的写了

http://hi.baidu.com/yhpp521/blog/item/3d81d7f95ac13259242df21e.html