منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

دي اكواد انشاء متصفح انترنت 
دعوه حلوه الله يكرمكم 


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
دام الله لكم البشر والفرح واسرور اخواني الكرام 

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

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

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

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

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

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

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

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

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

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

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

وان اتفق مع  sendbad100

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

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

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

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

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

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