search strings help please
So on my form I have 2 forms, the top one shows the search box and the bottom form displays the result
Code:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Form11
BackColor = &H00D8E9EC&
BorderStyle = 0 'None
ClientHeight = 13485
ClientLeft = 150
ClientTop = 435
ClientWidth = 13185
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 899
ScaleMode = 3 'Pixel
ScaleWidth = 879
StartUpPosition = 2 'CenterScreen
Begin SHDocVwCtl.WebBrowser wbResults
Height = 10095
Left = 120
TabIndex = 1
Top = 3360
Width = 12975
ExtentX = 22886
ExtentY = 17806
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "Main Domain.com/"
End
Begin SHDocVwCtl.WebBrowser wbSearch
Height = 2775
Left = 2760
TabIndex = 0
ToolTipText = "Enter Search Here"
Top = 480
Width = 7455
ExtentX = 13150
ExtentY = 4895
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "Main Domain.com/"
End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
My question is based on this website
Code:
http://www.wowhead.com/
Where I want the search box at the top and the results to be displayed in the box below. Can someone help me out please. I originally had this code for another website and would like to enhance apon that.
Thank you.
Re: search strings help please
Isnt there anyone that can help me, or are the 60+ views from people who just have no clue in vb6?
Re: search strings help please
Quote:
Isnt there anyone that can help me,
probably, but it would have helped if you had posted your code, rather than just the form header
Re: search strings help please
To load the code correctly you need to run the *.vbp file.
Re: search strings help please
i am not 100% sure if this is what you are asking but here try this code
Add
-2 WebBrowser Control, "WebBrowser1" and "WebBrowser2" (do not need to change any properties)
-1 Timer Control, "Timer1" (do not need to change any properties)
Code:
Private Sub Form_Load()
Me.Height = 8985: Me.Width = 12870: Me.Caption = "Wowhead"
WebBrowser1.Move 0, 0, 12615, 3495: WebBrowser1.Silent = True: WebBrowser1.Navigate "www.wowhead.com"
WebBrowser2.Move 0, 3480, 12615, 4935: WebBrowser2.Silent = True
Timer1.Interval = 400: Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.Document.ParentWindow.scrollTo 0, 0
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not WebBrowser1.LocationURL = "http://www.wowhead.com/" Then
WebBrowser2.Navigate WebBrowser1.LocationURL
WebBrowser1.Navigate "www.wowhead.com"
End If
End Sub
I would make it with a simple textbox instead of two webbrowser... but like i said i am not 100% sure if you want a textbox control or a webbrowser control to display the webpage's textbox
anyways for textbox code
Add
-1 TextBox Control, "Text1"
-1 WebBrowser Control, "WebBrowser1"
Code:
Private Sub Form_Load()
Me.Width = 7830: Me.Height = 7080
Text1.Move 120, 120, 7335, 285
WebBrowser1.Move 0, 480, 7575, 6015
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then WebBrowser1.Navigate "http://www.wowhead.com/search?q=" & Text1.Text: KeyAscii = 0
End Sub
Re: search strings help please
Quote:
Originally Posted by
jokerfool
Isnt there anyone that can help me, or are the 60+ views from people who just have no clue in vb6?
There are plenty here that are well versed in VB6 however you did not show any code in your OP nor did you actually ask a question.
If you want an answer it always helps to ask a question and give any required details.