Successfully removed.
Sorry, an error occurred.
|
"@emanuelfilm jag tror den där tjejen som från Matte elr mats elr vad han..."
more
"@emanuelfilm jag tror den där tjejen som från Matte elr mats elr vad han hette på dansen där vill du dansa så sa han stick hon var ju med i gänget tror de var därför sorry min särskrivning"
less
|
|
| |
|
|
"@MussyPagnet vilken låt äre ? monster elr"
|
|
| |
|
|
|
|
| |
|
|
MrXandReggae favorited a video
(5 days ago)
Visual Basic 2008 - Advanced Webbrowser. Just decided to remake my video...
more
Visual Basic 2008 - Advanced Webbrowser. Just decided to remake my video on a very advanced web browser with: Deafult features, Tabs, Progressbar, Status Label ect. You can download the source code from:
http://www.mediaf...
Or you can copy + Paste the codes:
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
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(Browser)
AddHandler Browser.ProgressChanged, AddressOf Loading
AddHandler Browser.DocumentCompleted, AddressOf Done
int = int + 1
CType(TabControl1.SelectedTab.Controls.Item(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(Browser)
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(TabControl1.SelectedIndex)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
int = int - 1
End If
Website Properties:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog
Back:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
Forward:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
Refresh:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
Stop:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
Home:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
Go:
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ComboBox1.Text)
Timer1:
ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
less
|
|
| |
|
|
MrXandReggae favorited a video
(5 days ago)
this is a basic outline on how 2 make a webbrowser with visual basic.
cmn...
more
this is a basic outline on how 2 make a webbrowser with visual basic.
cmnt me 4 more feachures and also if u want me 2 teach u how 2 make something else =D
less
|
|
Bow
Ja det är jag Ramin. du kan see mina klip så ser du :)