[MOHAMED]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
التعامل مع الأداة WebBrowser

كود السابق

اقتباس Me.WebBrowser1.GoBack

كود التالى

اقتباس Me.WebBrowser1.GoForward

كود الرئيسية

اقتباس Me.WebBrowser1.GoHome

كود ذهاب إلى

اقتباس Me.WebBrowser1.Navigate=TextBox1.Text

شرح الكود السابق WebBrowser1.Navigate يعنى التصفح لصفحة معينة = TextBox1.Text النص الموجود فى مرع النص 1
الذى هو TextBox1.Text ..
كود حفظ الصفحة

اقتباس Me.WebBrowser1.ShowSaveAsDialog

كود طباعة

اقتباس Me.WebBrowser1.ShowPrintDialog

كود معاينة

اقتباس Me.WebBrowser1.ShowPreviewDialog

كود إعداد الصفحة

اقتباس Me.WebBrowser1.ShowPageSetupDialog

كود شريط تقدم يتقدم مع تحميل الصفحة

اقتباس ProgressBar1.Visible = True ProgressBar1.Maximum = CType(e.MaximumProgress, Integer) ProgressBar1.Value = CType(e.CurrentProgress, Integer

)
كود تحديث

اقتباس Me.WebBrowser1.Refrech

كود صفحة البحث

اقتباس Me.WebBrowser1.GoSerach

كود لعرض الكود المصدرى لصفحة الإنترنت فى RichTextBox

اقتباس RichTextBox1.Text = Nothing RichTextBox1.Text = WebBrowser1.DocumentText

لتغيير الصفحة الرئيسية

اقتباس Private Sub ChangeIEHomePage(ByVal NewUrl As String) Try Dim Key As String = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" Dim Val As String = "Start Page" My.Computer.Registry.SetValue(Key, Val, NewUrl, Microsoft.Win32.RegistryValueKind.String) Catch ex As Exception MsgBox(ex.Message) End Try End Sub 'مثال: لجعل ياهو هو الصفحة الافتراضية للمتصفح ChangeIEHomePage("www.yahoo.com")

إظهار خصائص الصفحة

اقتباس Me.WebBrowser1.ShowProperaties

هذا حتى الآن وإن تذكرت كود سأضعه ..
والسلام عليكم ورحمة الله وبركاته