Okay.. sorry.
Dann könnt ihr evtl hier helfen. Ich habe diesen hier programmiert, aber wie bekomme ich hier Tabs rein? Ich weiß, ich soll erst mal die Grundlagen lernen, da bin ich auch schon bei, aber im Moment hakt es hier noch.
PHP-Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(ComboBox1.Text)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Combobox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If e.KeyData = Keys.Enter Then
Button1.PerformClick()
e.SuppressKeyPress = True
End If
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
Dim Tx As String = WebBrowser1.Url.ToString
ComboBox1.Text = Tx
Dim index As Integer
index = ComboBox1.FindString(Tx)
If index > -1 Then
Else
ComboBox1.Items.Add(Tx)
End If
Me.Cursor = Cursors.Arrow
End Sub
Dim inNewWindow As Boolean = False
Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
ComboBox1.Text = WebBrowser1.Url.ToString
ProgressBar1.Visible = True
With ProgressBar1
.Minimum = 0
.Maximum = 50
.Step = 5
End With
For index As Integer = 0 To 50 Step 5
ProgressBar1.Value = index
System.Threading.Thread.Sleep(35)
Next
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
My.Settings.Bookmarks.Add(ComboBox1.Text)
Favs.DropDownItems.Add(ComboBox1.Text)
My.Settings.Save()
Timer1.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
For Each item As String In My.Settings.Bookmarks
Favs.DropDownItems.Add(item)
Next
Me.WindowState = FormWindowState.Maximized
WebBrowser1.Navigate("www.alice.aol.de")
End Sub
Private Sub Favs_DropDownItemsClickes(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles Favs.DropDownItemClicked
Dim clicked As ToolStripItem = e.ClickedItem
Dim i As String = e.ClickedItem.Name
If Not i = "[Deine Lesezeichen]" Then
WebBrowser1.Navigate(e.ClickedItem.Text, inNewWindow)
End If
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
ProgressBar1.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Navigate("www.alice.aol.de")
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim neueurl As String = WebBrowser1.StatusText
e.Cancel = True
WebBrowser1.Navigate(neueurl)
End Sub