UC知道子函数未定义
来源：百度知道 编辑：UC知道 时间：2024/06/28 12:54:12
我照着http://www.cndw.com/tech/program/2006051873754.asp这个网站做MP3播放器 但是提示子函数未定义
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError = True
.Filter = "音乐文件|*.mp3;*.wav;*.mid"
.Flags = cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action = 1
stopplay_Click '停止按钮同时可以设备初始化
mfn = .FileName '这个程序中文件名一定不能带空格
Form1.Caption = .FileName
Play.Enabled = True
End With
play_Click
Exit Sub
err:
End Sub
提示stopplay_Click这句子函数未定义 各位告诉帮帮忙啊 或者哪位收徒弟的教教我 小弟正在初学VB6.0
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError = True
.Filter = "音乐文件|*.mp3;*.wav;*.mid"
.Flags = cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action = 1
stopplay_Click '停止按钮同时可以设备初始化
mfn = .FileName '这个程序中文件名一定不能带空格
Form1.Caption = .FileName
Play.Enabled = True
End With
play_Click
Exit Sub
err:
End Sub
提示stopplay_Click这句子函数未定义 各位告诉帮帮忙啊 或者哪位收徒弟的教教我 小弟正在初学VB6.0
'stopplay_Click
'应该是一个点击事件，stopplay是控件名字，你没有修改吧
'上面的不要了
我刚看了下那个网页，它的代码是不完整的，所以会有错误