29-03-20, 03:29 PM
السلام عليكم ورحمت الله وبركته
ديت اكود صنع متصفح
الادوات 1ComboBox
1Timer
9boton
TabControl1
Label2
WebBrowser1
ComboBox1
وحضرتك رتبهم با الطريقه الي انت عيزه
وبعده ضيف الاكود
ديت اكود صنع متصفح
PHP كود :
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)
الادوات 1ComboBox
1Timer
9boton
TabControl1
Label2
WebBrowser1
ComboBox1
وحضرتك رتبهم با الطريقه الي انت عيزه
وبعده ضيف الاكود
قل لن يصيبنا الا ماكتب الله لنا