UC知道用VB做一个程序的问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 17:30:49
我目前做的一个小程序呢。
是这样的。
打开程序就有一个COMBOBOX的控件
然后呢，这个控件里面有几个选项
点哪个选项就弹出一个player播放器,然后呢，这个播放器会自动链接到一个地址，播放这个地址的视频。
现在，我这个都已经制作完成。
我现在就想加一个功能。
那就是打开player以后，如果链接不到相应的播放地址。就弹出对话框，提示用户，有新版本，请到官网下载更新。
请高手告诉我该怎么写这个代码，谢谢。高分求助！！
可以写出代码吗？
我新手，不是很会，谢谢大家。
是这样的。
打开程序就有一个COMBOBOX的控件
然后呢，这个控件里面有几个选项
点哪个选项就弹出一个player播放器,然后呢，这个播放器会自动链接到一个地址，播放这个地址的视频。
现在，我这个都已经制作完成。
我现在就想加一个功能。
那就是打开player以后，如果链接不到相应的播放地址。就弹出对话框，提示用户，有新版本，请到官网下载更新。
请高手告诉我该怎么写这个代码，谢谢。高分求助！！
可以写出代码吗？
我新手，不是很会，谢谢大家。
If InStr(inet获取的网页内容, Combo1.Text) Then
'这部分内容要你自己来写...因为我不知道你的写法是如何.
MsgBox "有网址"
Else
msgbox " 有新版本，请到官网下载更新"
End If
加个if
if(combox正确,连接地址正确) then
播放器会自动链接到一个地址
else
msgbox(" 有新版本，请到官网下载更新")
end if
汗,没看清楚,打开player以后怎么判断不太清楚....
我只是采鸟..
反对
汗,如果连接不成功,你的播放器肯定会返回一个值的呀.根据这个值选择,不就可以了?
有新版本，是指播放器还是要播放的歌曲？
获得最新版本的版本号，再获得当前版本号，对比如果不一样，就转到官网下载地址，否则播放歌曲
If 播放器名.UEL = "" Then
MsgBox"有新版本，请到官网下载更新。",,"提示"
End if