• Home
 · 
• Sound/MP3
 · 
• tvplayer simple code

tvplayer simple code

tvplayer simple code

Rate tvplayer simple code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

MediaPlayer1.fullScreen = True
End Sub

Private Sub Form_Load()
List1.AddItem "sria"
List1.AddItem "aljazira"
End Sub

Private Sub List1_Click()
If List1.Text = "algeria" Then
MediaPlayer1.URL = "http://www.entv.dz/online/algtv56k.asx"
End If
If List1.Text = "albania" Then
MediaPlayer1.URL = "http://wwitv.com/t_tv/6447.asx"
End If
If List1.Text = "spain1" Then
MediaPlayer1.URL = "http://www.canalgv.com/canalgv/resources/asx_enlaces_externos/canalgv_tvvi.asx"
End If
If List1.Text = "italiya" Then
MediaPlayer1.URL = "mms://82.145.212.24/ktv-5"

End If
If List1.Text = "sria" Then
MediaPlayer1.URL = "http://wwitv.com/tt/7044.asx"
End If
If List1.Text = "aljazira" Then
MediaPlayer1.URL = "http://wwitv.com/tt/b1544.asx"
End If
End Sub

Private Sub MediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub