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 :)