السلام عليكم اليوم هنتعلم كيف نعمل متصفح علي الفيجوال بيسك
اولا افتح مشروع جديد
2- نضيف 6 زر
بعد كده عيزين 1 TextBox1
بعد كده عيزين 1 WebBrowser1 و StatusStrip1
في سهم هيكون نازل من StatusStrip1 نضيف منه ToolStripProgressBar1
الاكواد
اضغط مرتين علي >
وضع فيه :
- الكود:
-
WebBrowser1.GoBack()
اضغط مرتين علي <
وضع فيه :
- الكود:
-
WebBrowser1.GoForward()
اضغط مرتين علي Refresh
وضع فيه :
- الكود:
-
WebBrowser1.Refresh()
اضغط مرتين علي Go
وضع فيه :
- الكود:
-
WebBrowser1.Navigate(ComboBox1.Text)
اضغط مرتين علي Stop
وضع فيه :
- الكود:
-
WebBrowser1.Stop()
اضغط مرتين علي Home
وضع فيه :
- الكود:
-
WebBrowser1.Navigate("www.google.com")
اضغط مرتين علي WebBrowser1
وضع فيه :
- الكود:
-
[center][/center]
[center] ToolStripProgressBar1.Visible = False[/center]
[center] ComboBox1.Text = WebBrowser1.Document.Url.AbsoluteUri()[/center]
ضع هذا الكود في اي مكان من الفورم
- الكود:
-
[center][/center]
[center] Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)[/center]
[center] ToolStripProgressBar1.Visible = True[/center]
[center] With ToolStripProgressBar1[/center]
[center] .Minimum = 0[/center]
[center] .Maximum = 50[/center]
[center] .Step = 5[/center]
[center] End With[/center]
[center] For index As Integer = 0 To 50 Step 5[/center]
[center] ToolStripProgressBar1.Value = index[/center]
[center] System.Threading.Thread.Sleep(35)[/center]
[center] Next[/center]
[center] End Sub[/center]
[center][/center]
وهكذا يكون الدرس انتها
الخميس يوليو 21, 2016 8:48 pm
