السوبر

اهلا بكم في منتدي السوبر
 
الرئيسيةالبوابةمكتبة الصوربحـثالمجموعاتالتسجيلدخول

دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر

شاطر | 
 

 كيفية عمل متصفح في الفيجوال بيسك

اذهب الى الأسفل 
كاتب الموضوعرسالة
samer
المدير
المدير


عدد المساهمات : 3
تاريخ التسجيل : 12/07/2016

مُساهمةموضوع: كيفية عمل متصفح في الفيجوال بيسك   الخميس يوليو 21, 2016 8:48 pm

السلام عليكم اليوم هنتعلم كيف نعمل متصفح علي الفيجوال بيسك

سعيد

اولا افتح مشروع جديد


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]


وهكذا يكون الدرس انتها
سعيد
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
كيفية عمل متصفح في الفيجوال بيسك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
السوبر :: برمجة :: Visual Basic-
انتقل الى: