MOHAMED
04-21-2010, 12:19 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
التعامل مع الأداة 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
هذا حتى الآن وإن تذكرت كود سأضعه ..
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
التعامل مع الأداة 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
هذا حتى الآن وإن تذكرت كود سأضعه ..
والسلام عليكم ورحمة الله وبركاته