Radio: do vb 2005 musis pridat (TOOLBOX) polozku Windows Media Player a potom das tam tlacidla a do tlacidla das prikazpato1abc napísal:veľmi pekné. hlavne ten web... aj rádio je super. Good work
neukázal by si zdroják ? potreboval by som ho pre štúdijné účely.
Kód: Vybrať všetko
WindowsMediaPlayer.URL = "SEM DAS URL ADRESU RADIA"Kód: Vybrať všetko
Public Class FrmBrowser
Private Sub btnBack_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnBack.Click
webBrowser.GoBack()
End Sub
Private Sub btnForward_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnForward.Click
webBrowser.GoForward()
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStop.Click
webBrowser.Stop()
End Sub
Private Sub btnReload_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnReload.Click
webBrowser.Refresh()
End Sub
Private Sub btnHome_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnHome.Click
webBrowser.GoHome()
End Sub
Private Sub txtNavigation_KeyDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles txtNavigation.KeyDown
If e.KeyCode = Keys.Enter Then
webBrowser.Navigate(txtNavigation.Text)
End If
End Sub
Private Sub webBrowser_Navigating(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) _
Handles webBrowser.Navigating
btnStop.Enabled = True
End Sub
Private Sub webBrowser_StatusTextChanged( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles webBrowser.StatusTextChanged
txtStatus.Text = webBrowser.StatusText
End Sub
Private Sub webBrowser_ProgressChanged( _
ByVal sender As System.Object, ByVal e As _
System.Windows.Forms.WebBrowserProgressChangedEventArgs) _
Handles webBrowser.ProgressChanged
If e.MaximumProgress <> 0 And _
e.MaximumProgress >= e.CurrentProgress Then
prgPage.Value = Convert.ToInt32( _
100 * e.CurrentProgress / e.MaximumProgress)
End If
End Sub
Private Sub webBrowser_DocumentCompleted( _
ByVal sender As System.Object, ByVal e As _
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
Handles webBrowser.DocumentCompleted
txtNavigation.Text = webBrowser.Url.ToString()
btnBack.Enabled = webBrowser.CanGoBack
btnForward.Enabled = webBrowser.CanGoForward
btnStop.Enabled = False
prgPage.Value = 0
End Sub
Private Sub webBrowser_DocumentTitleChanged( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles webBrowser.DocumentTitleChanged
Me.Text = webBrowser.DocumentTitle & " - Browser"
End Sub
End Class
Predpokladam, ze vyhodnocovanie vyrazov mas pomocou rekurzie ! 
(z toho tri nevyuzite, cize celkovy kod je 509 bajtov)
...chyby tam nemam skontroloval som...mozno len tie vizualne blbosticky kt este doopravujem 
