-
7741globe
Hallo Tw,ers
Ik heb net VB een paar dagen geleden gedownload.
Ik ben namelijk bezig met een webbrowser, net zoals renssies.
Alleen werkt de zoekbalk niet, ik heb een knop, een zoekbalk en een browser, maar hij werkt niet.
Ik heb niet echt veel verstand van VB, dus kan iemand mij helpen.
Ik heb al contactgehad met renssies, maar die wist het ook niet.
Groetjes,
7741globe
www.dlwwebbrowser.tk
[size=8][color=blue]Admin: [/color][color=black] Oke, zo is het goed... [/color][/size]
02 april 2008 14:25
-
blacksorcerer
Uhm... moet je daar dan niet wat code achter plakken?
Indien je code hebt geklopt, wat heb je dan, want hier kunnen we eigenlijk helemaal niets mee ;)
02 april 2008 16:22
-
7741globe
Hier is de code:
Public Class Welkom
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Zoeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WebBrowser1.Navigate("http://www.google.com/search?hl=nl&q=" & DomainUpDown1.Text & "&btnG=Google+Search")
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub AfsluitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub InfoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem1.Click
End Sub
Private Sub InloggenAlsTesterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InloggenAlsTesterToolStripMenuItem.Click
inloggen.Show()
End Sub
Private Sub IntranetserverToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IntranetserverToolStripMenuItem.Click
System.Diagnostics.Process.Start("http://www.intranet-lijterij.tk")
End Sub
Private Sub AfsluitenToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AfsluitenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub AfdrukkenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub AfdrukkenToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub knop_home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles knop_home.Click
WebBrowser1.GoHome()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles knop_go.Click
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
End Class
02 april 2008 16:31