Webbrowser

Gestart doorMeez7 reacties27 weergaven

8 berichten · pagina 1 van 1

Meez

Lid · Topicstarter

Berichten
390
Reputatie
0
Punten
0,00
Lid sinds
Laatst gezien
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:

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
0
Berichten
4.214
Reputatie
0
Punten
0,00
Lid sinds
Laatst gezien
*nee je maakt geen webbrowser je simuleert IE in een frame
0
Berichten
4.013
Reputatie
0
Punten
0,00
Lid sinds
Laatst gezien
Dit moet eerder in Webwereld biggrinDit is om offtopic dingen te vertellen, etc..
Dit is hulp vragen met codes emo
0
Berichten
93.699
Reputatie
0
Punten
1,27
Lid sinds
Laatst gezien
Timmie schreef:
*nee je maakt geen webbrowser je simuleert IE in een frame
Zoals Timmie al zei, indd! wink
0
Berichten
93.699
Reputatie
0
Punten
1,27
Lid sinds
Laatst gezien
En als je een browser maakt (emo!)
Gebruik dan C# emo
0
Berichten
3.314
Reputatie
0
Punten
0,00
Lid sinds
Laatst gezien
Nielsie schreef:
En als je een browser maakt (emo!)
Gebruik dan C# emo
Ehm ja want dat is bij uitstek de beste programmeertaalemo (oh god ga ik die emoticon ook al gebruiken)
0
Berichten
7.179
Reputatie
1
Punten
3,01
Lid sinds
Laatst gezien
Hij heeft het al gevonden yummie
0
Meez

Lid · Topicstarter

Berichten
390
Reputatie
0
Punten
0,00
Lid sinds
Laatst gezien
Alleen commentaar, maar geen oplossingenyummie
0

Jouw reactie

Deel je idee, stel een vraag of help een ander verder.

Editor laden…

Praat mee met de One2xs-community.

Inloggen om te reageren