标签:Case 媒体播放器 URL List1 网络 MediaPlayer1 电视 com Sub
介绍 这是一个基本的互联网电视软件和所有主要软件可在互联网上使用相同的技术,网址变化描述互联网电视所有者。'添加windowsmediaplayer组件 使用的代码 关于如何使用文章或代码的简要描述。类名,方法和属性,任何技巧或提示。 代码块应该像这样设置为“格式化”样式: 隐藏,收缩,复制Code
// // Any source code blocks look like this // '++++++++++++++++++++++++++++++++++++++++++++ 'Sample Created By <a href="http://www.levo-technologies.com/">www.levo-technologies.com</a> <a href="mailto:'balmeet80@gmail.com">'balmeet80@gmail.com</a> 'This is a basic internet TV software and all the main softwares available on internet use same techniqe 'URL changes on descrition of internet tv owner. 'Add component of Windows Media Player '++++++++++++++++++++++++++++++++++++++++++++ Private Sub List1_Click() urlplay End Sub Private Sub urlplay() rr = List1.List(List1.ListIndex) lbl.Caption = "Opening " + rr Select Case rr Case "ANDORRA TV" MediaPlayer1.URL = "<a href="http://wwitv.com/a1/6778.asx">http://wwitv.com/a1/6778.asx</a>" Case "WMTY" MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b2368.asx">http://wwitv.com/a1/b2368.asx</a>" Case "Bullhead city TV" MediaPlayer1.URL = "<a href="http://wwitv.com/a1/7696.asx">http://wwitv.com/a1/7696.asx</a>" Case "RAJ" MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b3210.asx">http://wwitv.com/a1/b3210.asx</a>" Case "XYZ TV" MediaPlayer1.URL = "<a href="http://wwitv.com/a1/b3646.asx">http://wwitv.com/a1/b3646.asx</a>" Case Else MsgBox "Not A Valid Link", vbCritical End Select 'MediaPlayer1.URL = List1.List(List1.ListIndex) End Sub Private Sub MediaPlayer1_OpenStateChange(ByVal NewState As Long) If NewState = 13 Then lbl.Caption = "Connected to " + List1.List(List1.ListIndex) End If End Sub Remember to set the Language of your code snippet using the Language dropdown. Use the "var" button to to wrap Variable or class names in <code> tags like this. <h2>Points of Interest</h2> Did you learn anything interesting/fun/annoying while writing the code? Did you do anything particularly clever or wild or zany? <h2>History</h2> Keep a running update of any changes or improvements you've made here.
本文转载于:http://www.diyabc.com/frontweb/news2470.html
标签:Case,媒体播放器,URL,List1,网络,MediaPlayer1,电视,com,Sub 来源: https://www.cnblogs.com/Dincat/p/13457820.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。