Mein FlyFF Browser Realease

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