Domaine : tutoriel
Tag : visual studio 2008 express
Aller à l'accueil


TAGS SPECIALISES :

visual basic 2008 express
visual studio c# net
visual 2005 c
visual c# express
c visual studio 2008
visual web developer 2008
visual studio c 2008
visual studio 2008 c
visual studio 2005 express
download visual c 2005
tutorial visual studio 2010
visual c# 2008
crystal visual studio
crystal report visual studio
visual studio crystal reports
visual studio reports
visual studio 2010 crystal report
visual studio crystal
crystal report visual studio 2010
crystal reports visual studio
compilateur visual studio
net visual c
visual basic studio 2008
visual studio c#
visual studio 2008 update
visual studio windows
visual studio 2005 gratuit
update visual studio 2008
visual studio 2008 2010
c visual studio
visual studio 7
visual studio c
windows visual studio
visual c 2008
visual studio tuto
visual c studio
vb visual studio
visual studio 2008 fr
visual studio 2009
visual studio c 2005







This tutorial of Microsoft Visual Basic 2008 Express Edition shows you how to create an Advanced Web Browser.
Coding:

Coding for Visual Basic 2008 Express Edition:
Public Class Form1
Dim int As Integer = 0

Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedE ventArgs)
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End Sub

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

Form1_Load:
Dim Browser As New WebBrowser
TabControl1.TabPages.Add("New Page")
Browser.Name = "Web Browser"
Browser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()

Add Tab:
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(Bro wser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

Remove Tab:
If Not TabControl1.TabPages.Count = 1 Then
TabControl1.TabPages.RemoveAt(TabControl 1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPag es.Count - 1)
int = int - 1
End If

Website Properties:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).ShowPropertiesDialog

Back:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoBack()

Forward:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoForward()

Refresh:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Refresh()

Stop:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Stop()

Home:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).GoHome()

Go:
CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).Navigate(ComboBox1.Text)

Timer1:
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.I tem(0), WebBrowser).StatusText

code pour embarquer la vidéo : >>>    http://www.youtube.com/embed/6fX6QNypfqA    <<<






TAGS GENERAUX :

  vnc tuto  tuto css  html tutoriel  tuto ipad  tuto imovie  tuto vnc  tuto pdf  html tuto  php tutoriel  tutoriel linux