اكواد انشاء متصفح - نسخة قابلة للطباعة

اكواد انشاء متصفح - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : اكواد انشاء متصفح (/showthread.php?tid=22762)

اكواد انشاء متصفح - محبه البرمجه - 30-11-17

دي اكواد انشاء متصفح انترنت Smile

دعوه حلوه الله يكرمكم Heart

Dim int As Integer = 0
____________________________________________________________________________________________
Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress

_____________________________________________________________________________________________
Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub
______________________________________________________________________________________________
Form1:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

_______________________________________________________________________
NEW PAGE:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

_____________________________________________________________________
CLOSE PAGE:
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
int = int - 1
End If

_______________________________________________________________________________
Propiedades:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()

_________________________________________________________________________________
Timer:
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText

__________________________________________________________________________________
<:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()

__________________________________________________________________________________
>:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()

__________________________________________________________________________________
REFRESH:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

___________________________________________________________________________________
HOME:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

___________________________________________________________________________________
Ir /Go:

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)

____________________________________________________________________________________

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
End Sub
Private Sub PeopriteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()

End Sub

Private Sub ClosePageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
int = int - 1
End If
End Sub
Public Class Form1
Dim int As Integer = 0
Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress

End Sub
Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub

Private Sub EditSnopeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditSnopeToolStripMenuItem.Click
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
TabControl1.SelectTab(int)
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Browser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

End Sub
دام الله لكم البشر والفرح واسرور اخواني الكرام Heart

RE: اكواد انشاء متصفح - sendbad100 - 30-11-17

شكرا
عندي ملاحضتين اتمنى ان تتقبيلها

1- الافضل وضعه في قسم الاكواد .

2- وافضل من ذلك عمل مثال مع الاكواد ووضعه في قسم المشاريع.

الله يعطيك العافية

RE: اكواد انشاء متصفح - khaled12345 - 30-11-17

(30-11-17, 05:22 PM)sendbad100 كتب : شكرا
عندي ملاحضتين اتمنى ان تتقبيلها

1- الافضل وضعه في قسم الاكواد .

2- وافضل من ذلك عمل مثال مع الاكواد ووضعه في قسم المشاريع.

الله يعطيك العافية

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

شغل جميل جدا والله ....

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

وان اتفق مع sendbad100

حتي تعم الفائدة والله يبارك فيكم ويزيدكم علما نافعا

RE: اكواد انشاء متصفح - محبه البرمجه - 30-11-17

(30-11-17, 05:22 PM)sendbad100 كتب : شكرا
عندي ملاحضتين اتمنى ان تتقبيلها

1- الافضل وضعه في قسم الاكواد .

2- وافضل من ذلك عمل مثال مع الاكواد ووضعه في قسم المشاريع.

الله يعطيك العافية

حاضر ان شاء الله

RE: اكواد انشاء متصفح - YousefOkasha - 14-07-18

ههههههههه

حضرتك أخذه الأكواد دي من huhu

لكن بارك الله فيكي ما بيضر Wink