search strings help please

[jokerfool]

So on my form I have 2 forms, the top one shows the search box and the bottom form displays the result

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

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.

[jokerfool]

Isnt there anyone that can help me, or are the 60+ views from people who just have no clue in vb6?

[westconn1]

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

[Nightwalker83]

To load the code correctly you need to run the *.vbp file.

[Max187Boucher]

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)

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"

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

[DataMiser]

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.