Der Two und One Media Player von Just 4 You

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von just4you.

    Der Two und One Media Player von Just 4 You

    Habe Heute mal einen Two in One Media Player Programmiert .
    Eine Seite das Radio andere der MP3 Player .
    Die Buttons sind austauschbar für andere Radio Links.


    Hier der Code.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    4. OpenFileDialog1.ShowDialog()
    5. BindingSource1.Add(OpenFileDialog1.FileName)
    7. End Sub
    11. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    12. AxWindowsMediaPlayer2.URL = ListBox1.Text
    13. Timer2.Enabled = True
    14. Button4.Enabled = False
    15. Button3.Enabled = True
    16. End Sub
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. AxWindowsMediaPlayer1.URL = ""
    20. Label9.Text = ""
    21. Button2.Enabled = False
    22. Button3.Enabled = True
    23. Button4.Enabled = True
    24. End Sub
    26. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    27. AxWindowsMediaPlayer2.URL = ""
    28. Timer2.Enabled = False
    29. IstZeit2.Text = "00:00"
    30. Button4.Enabled = True
    31. Button3.Enabled = False
    32. End Sub
    34. Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    35. AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value & "0"
    36. End Sub
    38. Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
    39. AxWindowsMediaPlayer2.settings.volume = TrackBar2.Value & "0"
    40. End Sub
    41. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    42. If AxWindowsMediaPlayer2.URL = "" Then
    43. IstZeit2.Text = "00:00"
    44. Else
    45. IstZeit2.Text = AxWindowsMediaPlayer2.Ctlcontrols.currentPositionString
    47. End If
    48. End Sub
    50. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    51. MC_Media_Player.Visible = True
    53. End Sub
    57. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    58. TrackBar1.Value = 3
    59. TrackBar2.Value = 3
    60. Button2.Enabled = False
    61. Button4.Enabled = True
    62. Button3.Enabled = False
    63. MC_Media_Player.Visible = False
    64. Me.Width = 796
    65. LinkLabel1.Enabled = True
    66. LinkLabel2.Enabled = False
    74. End Sub
    76. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    77. AxWindowsMediaPlayer1.URL = "http://www.wdr.de/wdrlive/media/wdr4.asx"
    78. Label9.Text = "WDR 4"
    79. Button2.Enabled = True
    80. Button3.Enabled = False
    81. Button4.Enabled = False
    83. End Sub
    85. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    86. AxWindowsMediaPlayer1.URL = "http://www.wdr.de/wdrlive/media/einslive.m3u"
    87. Label9.Text = "1 Live"
    88. Button2.Enabled = True
    89. Button3.Enabled = False
    90. Button4.Enabled = False
    92. End Sub
    94. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    95. AxWindowsMediaPlayer1.URL = "http://www.wdr.de/wdrlive/media/wdr2.asx"
    96. Label9.Text = "WDR 2"
    97. Button2.Enabled = True
    98. Button3.Enabled = False
    99. Button4.Enabled = False
    103. End Sub
    106. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    107. BindingSource1.Clear()
    109. End Sub
    111. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    112. Me.Width = 1044
    113. LinkLabel1.Enabled = False
    114. LinkLabel2.Enabled = True
    115. End Sub
    117. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    120. End Sub
    122. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    123. If TextBox1.Text = "" Then
    125. MsgBox("Bitte gebe den Namen für den Button1 ein")
    127. ElseIf TextBox2.Text = "" Then
    130. MsgBox("Bitte gebe den Link für den Button1 ein")
    131. Else
    134. Button6.Text = TextBox1.Text
    135. AxWindowsMediaPlayer1.URL = TextBox2.Text
    137. End If
    139. End Sub
    141. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    142. If TextBox4.Text = "" Then
    144. MsgBox("Bitte gebe den Namen für den Button1 ein")
    146. ElseIf TextBox3.Text = "" Then
    149. MsgBox("Bitte gebe den Link für den Button1 ein")
    150. Else
    153. Button7.Text = TextBox4.Text
    154. AxWindowsMediaPlayer1.URL = TextBox3.Text
    156. End If
    157. End Sub
    159. Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    160. If TextBox6.Text = "" Then
    162. MsgBox("Bitte gebe den Namen für den Button1 ein")
    164. ElseIf TextBox5.Text = "" Then
    167. MsgBox("Bitte gebe den Link für den Button1 ein")
    168. Else
    171. Button8.Text = TextBox6.Text
    172. AxWindowsMediaPlayer1.URL = TextBox5.Text
    174. End If
    175. End Sub
    177. Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
    178. Me.Width = 796
    179. LinkLabel1.Enabled = True
    180. LinkLabel2.Enabled = False
    181. End Sub
    183. Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
    185. End Sub
    186. End Class

Facebook