MOHAMED |
04-21-2010 12:19 AM |
التعامل مع الأدوات (WebBrowser) لمبرمجى VB.NET2005
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
التعامل مع الأداة WebBrowser
كود السابق
كود التالى
كود الرئيسية
كود ذهاب إلى
اقتباس:
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
|
)
كود تحديث
كود صفحة البحث
كود لعرض الكود المصدرى لصفحة الإنترنت فى 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
|
هذا حتى الآن وإن تذكرت كود سأضعه ..
والسلام عليكم ورحمة الله وبركاته
|