Visual Basic 2010 | Radio Player [Release]

Hallo liebe Leute,

Ich m�chte euch mein kleinen simplen Radio-Player vorstellen :)
Ich habe ihn einfach mal BassPlayer genannt :P

Also fangen wir mal an:

-Ich habe ihn mit Visual Basic 2010 erstellt.
-Er enth�lt 6 Radios.
-Er ist auf Techno, Electronic geregelt :).
-Alles Radios sind von [Only registered and activated users can see links. Click Here To Register...]
-Hier mal alle Radios aufgelistet:

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

*Ihr k�nnt mir bei Skype gerne weitere Radios senden*

Da dieser Player nicht wirklich was besonderes ist, release ich den Source-Code, damit ihr ihn nachmachen k�nnt :)

Code:

Public Class Form1


    Private Sub tb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb.Click
        technobase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.technobase.fm/dsl.asx"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        hardbase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.hardbase.fm/dsl.asx"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        coretime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.coretime.fm/dsl.asx"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        trancebase.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.trancebase.fm/dsl.asx"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        housetime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.housetime.fm/dsl.asx"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        clubtime.Checked = True
        AxWindowsMediaPlayer1.URL = "http://listen.clubtime.fm/dsl.asx"
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AxWindowsMediaPlayer1.close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

Wen ihr meinen Player downloadet, dann k�nnt ihr sehen wie viele Buttons etc ihr ben�tigt.

Ich hoffe ich konnte euch etwas weiterhelfen, und w�rde mich �ber nen Thanks freuen *__*

Downloads:

Bass-Player v1.0: [Only registered and activated users can see links. Click Here To Register...]

LG

Stanox(.de) :'D