تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اكود صنع متصفح
#1
السلام عليكم ورحمت الله وبركته 
ديت اكود صنع متصفح
PHP كود :
Dim int As Integer 0

____________________________________________________________________________________________

Private Sub Loading(ByVal sender As ObjectByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)

ToolStripProgressBar1.Maximum e.MaximumProgress

ToolStripProgressBar1
.Value e.CurrentProgress

_____________________________________________________________________________________________

Private Sub Done(ByVal sender As ObjectByVal 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.ProgressChangedAddressOf Loading

AddHandler Browser
.DocumentCompletedAddressOf 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.ProgressChangedAddressOf Loading

AddHandler Browser
.DocumentCompletedAddressOf 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
وحضرتك رتبهم با الطريقه الي انت عيزه
وبعده ضيف الاكود
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اكود متنوع لا الفورم محمد ايمن 0 165 04-03-20, 04:52 AM
آخر رد: محمد ايمن
  برنامج لمعرفة اكود ازرار الكيبورد alshandodi 2 310 03-03-20, 11:41 PM
آخر رد: alshandodi
  مشروع متصفح انترنت malzwy2003 2 1,399 16-10-17, 11:17 PM
آخر رد: malzwy2003
  [مشروع] متصفح بسيط جدا سعود 3 1,454 30-06-16, 06:13 AM
آخر رد: سعود
  [مشروع] متصفح ملفات + جلب معلومات الملفات es5s930 2 1,707 02-04-15, 02:39 PM
آخر رد: es5s930

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم