hoi,
ik ben een webbrowser aan het maken en ik heb ergens een paar vragen over:
hoe kan ik dat je in de textbox alles selecteerd als je het aanklikt?
hoe kan ik in mijn textbox de url van de webpagina weergeven die ik op dat moment bezoek.
ik werk met tabbladen.
hier is mijn code:
ik ben een webbrowser aan het maken en ik heb ergens een paar vragen over:
hoe kan ik dat je in de textbox alles selecteerd als je het aanklikt?
hoe kan ik in mijn textbox de url van de webpagina weergeven die ik op dat moment bezoek.
ik werk met tabbladen.
hier is mijn code:
Public Class Form1
Dim TheBrowser As WebBrowser
Dim i As Integer = 1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim browse As New WebBrowser
TabControl1.TabPages.Add(i, "pagina" & i)
TabControl1.SelectTab(i - 1)
browse.Name = "wb"
browse.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browse)
i = i + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim browse As New WebBrowser
TabControl1.TabPages.Add(i, "pagina" & i)
TabControl1.SelectTab(i - 1)
browse.Name = "wb"
browse.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browse)
i = i + 1
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.nl")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TabControl1.TabPages.Remove(TabControl1.SelectedTab)
i = i - 1
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyValue = 13 Then
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
Else
End If
End Sub
Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
End Sub
End Class
Dit is om offtopic dingen te vertellen, etc..

