السلام عليكم أنا جديد على الموقع

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

أولا عليك وضع الأداة microsoft internet conttrolsاسم 6

اضغط على ctrl+t وبضيف الأداة ثم بضيف على الفورد

وبعدين بضيف الأزرار خلف أمام البدية خروج تحديث توقف وبعدين الأداة

بعد مابتسوي المظهر الخارجي تضع في كمبو بوكس

الأن وقت الكود

تضع في الفورد

Private Sub Form_Load()
WebBrowser1.Navigate "www.yahoo.com"
End Sub

انقر مرتين على زر الخلف لكنابة الكود التالي

Private Sub Command1_Click() WebBrowser1.GoBack End Sub

انقر على زر الامام مرتين واكتب الكود

Private Sub Command2_Click() WebBrowser1.GoForward End Sub

وهذا كود توقف

Private Sub Command3_Click() WebBrowser1.Stop End Sub

Private Sub Command4_Click()
WebBrowser1.GoHome
End Sub

Private Sub Command5_Click()
WebBrowser1.refrish
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate Combo1.Text
End If
End Sub

على أي ستفسار mhmad1992_ss@hotmail.com