UC知道VB的check选项求助
来源：百度知道 编辑：UC知道 时间：2024/05/02 13:07:53
我想用一check选项来实现当文件存在时label栏显示"当前正在播放",如果mp3文件不存在则显示"背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘",请问该怎么写这段程序呢？我以下的哪里需要修改呢？希望各位高手前辈能指导小弟，谢谢！
If Check1.value = 1 Then
WMP1.URL = "C:\canon.mp3"
label1.Caption = "当前正在播放Canon.mp3"
Else
WMP1.URL = ""
label1.Caption = "背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘"
End If
End Sub
不是用按钮来实现,要补充的重点是当检测不到文件存在时提示"背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘",如果复选项框为空选的话就提示"音乐已关闭",谢谢！
If Check1.value = 1 Then
WMP1.URL = "C:\canon.mp3"
label1.Caption = "当前正在播放Canon.mp3"
Else
WMP1.URL = ""
label1.Caption = "背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘"
End If
End Sub
不是用按钮来实现,要补充的重点是当检测不到文件存在时提示"背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘",如果复选项框为空选的话就提示"音乐已关闭",谢谢！
你写代码是：
如果复选框被选中则…………
而不是如果文件存在则……
正确写法：
Private Sub Command1_Click()
On Error GoTo errhandler
WMP1.URL = "C:\canon.mp3"'这句是否正确我不敢保证
Label1.Caption = "当前正在播放Canon.mp3"
Exit Sub
errhandler:
Label1.Caption = "背景音乐文件不存在,请复制一首以canon为名的mp3文件到C盘"
End Sub