تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
اكواد انشاء متصفح
#1
دي اكواد انشاء متصفح انترنت  Smile Smile
دعوه حلوه الله يكرمكم  Heart Heart 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
سبحان الله وبحمده Heart
الرد }}}
#2
شكرا
عندي ملاحضتين اتمنى ان تتقبيلها

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

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

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

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

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

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

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

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

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

وان اتفق مع  sendbad100

حتي تعم الفائدة والله يبارك فيكم ويزيدكم علما نافعا
الرد }}}
#4
بارك الله فيكي آنسة امل 
و اتمنى لك المزيد من التفوق 
تم تقييم الموضوع و اعطاء السمة +1 
و نقل الموضوع الى قسم الاكواد 
شكراً جزيلاً 
الرد }}}
#5
(30-11-17, 05:22 PM)sendbad100 كتب : شكرا  
عندي ملاحضتين   اتمنى ان تتقبيلها  

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

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

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

حاضر ان شاء الله
سبحان الله وبحمده Heart
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , ﻣﺒﺘﺪﺉ
#6
ههههههههه Big Grin

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

لكن بارك الله فيكي ما بيضر Wink
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 0 904 03-09-22, 12:51 AM
آخر رد: سعود
  [VB.NET] اكواد حل معادلتين مع متغيراتها عاجل نجود 6 4,683 08-03-22, 08:32 PM
آخر رد: رمضان272
Thumbs Up [كود] اكواد جديدة Mina Botros 3 3,981 02-03-22, 12:44 PM
آخر رد: fadi1974
  [سلسلة تعليمية] اكواد متنوعة نافعة alfaiz678 2 2,435 05-10-21, 11:08 AM
آخر رد: alfaiz678
  [كود] اكواد جميلة و بسيطة جدا Lema_Syria 0 1,977 13-09-21, 08:33 AM
آخر رد: Lema_Syria
  [VB.NET] اكواد التعامل مع الفورم : خلفية متدرجة للفورم بعدة طرق مختلفة علي بنيان 27 8,117 13-02-20, 01:00 PM
آخر رد: ابراهيم عمر ابراهيم
  مجموعة اكواد جديدة asdsoft 3 4,600 01-11-16, 01:46 AM
آخر رد: kanolov

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


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