tvplayer simple code

by ahmed (1 Submission)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 3^rd February 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate tvplayer simple code



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

Download this snippet Add to My Saved Code

tvplayer simple code Comments

No comments have been posted about tvplayer simple code. Why not be the first to post a comment about tvplayer simple code.

tvplayer simple code

tvplayer simple code Comments

Post your comment

Difficulty