[FONT="Trebuchet MS"][COLOR="LemonChiffon"][SIZE="2"]Ich glaube das hat meine und eure Befürchtung weit übertroffen.
Das anzeige was dieser "Browser" mit Flyff zu tun hat das "FLYFF" groß im Header steht.
Selbst programmiert:
Alles anzeigen
[/SIZE][/COLOR][/FONT]
Das anzeige was dieser "Browser" mit Flyff zu tun hat das "FLYFF" groß im Header steht.
Selbst programmiert:
Quellcode
- 1 ' Fig. 23.8: FrmBrowser.vb
- 2 ' WebBrowser class example.
- 3
- 4 Public Class FrmBrowser
- 5 ' navigate back one page
- 6 Private Sub btnBack_Click(ByVal sender As System.Object, _
- 7 ByVal e As System.EventArgs) Handles btnBack.Click
- 8
- 9 webBrowser.GoBack()
- 10 End Sub ' btnBack_Click
- 11
- 12 ' navigate forward one page
- 13 Private Sub btnForward_Click(ByVal sender As System.Object, _
- 14 ByVal e As System.EventArgs) Handles btnForward.Click
- 15
- 16 webBrowser.GoForward()
- 17 End Sub ' btnForward_Click
- 18
- 19 ' stop loading the current page
- 20 Private Sub btnStop_Click(ByVal sender As System.Object, _
- 21 ByVal e As System.EventArgs) Handles btnStop.Click
- 22
- 23 webBrowser.Stop()
- 24 End Sub ' btnStop_Click
- 25
- 26 ' reload the current page
- 27 Private Sub btnReload_Click(ByVal sender As System.Object, _
- 28 ByVal e As System.EventArgs) Handles btnReload.Click
- 29
- 30 webBrowser.Refresh()
- 31 End Sub ' btnReload_Click
- 32
- 33 ' navigate to the user's home page
- 34 Private Sub btnHome_Click(ByVal sender As System.Object, _
- 35 ByVal e As System.EventArgs) Handles btnHome.Click
- 36
- 37 webBrowser.GoHome()
- 38 End Sub ' btnHome_Click
- 39
- 40 ' if the user pressed enter, navigate to the specified URL
- 41 Private Sub txtNavigation_KeyDown(ByVal sender As System.Object, _
- 42 ByVal e As System.Windows.Forms.KeyEventArgs) _
- 43 Handles txtNavigation.KeyDown
- 44
- 45 If e.KeyCode = Keys.Enter Then
- 46 webBrowser.Navigate(txtNavigation.Text)
- 47 End If
- 48 End Sub ' txtNavigation_KeyDown
- 49
- 50 ' enable btnStop while the current page is loading
- 51 Private Sub webBrowser_Navigating(ByVal sender As System.Object, _
- 52 ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) _
- 53 Handles webBrowser.Navigating
- 54
- 55 btnStop.Enabled = True
- 56 End Sub ' webBrowser_Navigating
- 57
- 58 ' update the status text
- 59 Private Sub webBrowser_StatusTextChanged( _
- 60 ByVal sender As System.Object, ByVal e As System.EventArgs) _
- 61 Handles webBrowser.StatusTextChanged
- 62
- 63 txtStatus.Text = webBrowser.StatusText
- 64 End Sub ' webBrowser_StatusTextChanged
- 65
- 66 ' update the ProgressBar for how much of the page has been loaded
- 67 Private Sub webBrowser_ProgressChanged( _
- 68 ByVal sender As System.Object, ByVal e As _
- 69 System.Windows.Forms.WebBrowserProgressChangedEventArgs) _
- 70 Handles webBrowser.ProgressChanged
- 71 ' Check if e.MaximumProgress is 0 or
- 72 ' if e.MaximumProgress is less than e.CurrentProgress
- 73 If e.MaximumProgress <> 0 And _
- 74 e.MaximumProgress >= e.CurrentProgress Then
- 75
- 76 prgPage.Value = Convert.ToInt32( _
- 77 100 * e.CurrentProgress / e.MaximumProgress)
- 78 End If
- 79 End Sub ' webBrowser_ProgressChanged
- 80
- 81 ' update the web browser's controls appropriately
- 82 Private Sub webBrowser_DocumentCompleted( _
- 83 ByVal sender As System.Object, ByVal e As _
- 84 System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
- 85 Handles webBrowser.DocumentCompleted
- 86 ' set the text in txtNavigation to the current page's URL
- 87 txtNavigation.Text = webBrowser.Url.ToString()
- 88
- 89 ' enable or disable btnBack and btnForward
- 90 btnBack.Enabled = webBrowser.CanGoBack
- 91 btnForward.Enabled = webBrowser.CanGoForward
- 92
- 93 ' disable btnStop
- 94 btnStop.Enabled = False
- 95
- 96 ' clear the prgPage
- 97 prgPage.Value = 0
- 98 End Sub ' webBrowser_DocumentCompleted
- 99
- 100 ' update the title of the Browser
- 101 Private Sub webBrowser_DocumentTitleChanged( _
- 102 ByVal sender As System.Object, ByVal e As System.EventArgs) _
- 103 Handles webBrowser.DocumentTitleChanged
- 104
- 105 Me.Text = webBrowser.DocumentTitle & " - Browser"
- 106 End Sub ' webBrowser_DocumentTitleChanged
- 107 End Class ' FrmBrowser
[/SIZE][/COLOR][/FONT]