Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/inform1a/infosear.frm

Visual Basic Form | 1998-09-11 | 11.0 KB | 358 lines

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Begin VB.Form Form1
   Caption         =   "Information Browser - v1.0"
   ClientHeight    =   7425
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   10620
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   495
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   708
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox go_forward
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   3720
      Picture         =   "InfoSearch.frx":0000
      ScaleHeight     =   225
      ScaleWidth      =   615
      TabIndex        =   10
      Top             =   120
      Width           =   615
   End
   Begin VB.PictureBox go_back
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   3360
      Picture         =   "InfoSearch.frx":03A8
      ScaleHeight     =   225
      ScaleWidth      =   255
      TabIndex        =   9
      Top             =   120
      Width           =   255
   End
   Begin VB.PictureBox Picture3
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   4440
      Picture         =   "InfoSearch.frx":074D
      ScaleHeight     =   225
      ScaleWidth      =   615
      TabIndex        =   8
      Top             =   120
      Width           =   615
   End
   Begin VB.PictureBox Picture2
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   5160
      Picture         =   "InfoSearch.frx":0B70
      ScaleHeight     =   225
      ScaleWidth      =   615
      TabIndex        =   7
      Top             =   120
      Width           =   615
   End
   Begin VB.PictureBox Picture1
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   5880
      Picture         =   "InfoSearch.frx":0FA0
      ScaleHeight     =   225
      ScaleWidth      =   615
      TabIndex        =   6
      Top             =   120
      Width           =   615
   End
   Begin VB.ListBox previous_searches
      Height          =   1620
      Left            =   7680
      TabIndex        =   4
      Top             =   240
      Width           =   2895
   End
   Begin VB.TextBox search_url
      Height          =   285
      Left            =   120
      TabIndex        =   3
      Top             =   720
      Visible         =   0   'False
      Width           =   3495
   End
   Begin SHDocVwCtl.WebBrowser search_results
      Height          =   5175
      Left            =   0
      TabIndex        =   2
      Top             =   2160
      Width           =   10650
      ExtentX         =   18785
      ExtentY         =   9128
      ViewMode        =   1
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   -1  'True
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin VB.TextBox search_string
      Height          =   285
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   6420
   End
   Begin VB.ComboBox search_engine
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3135
   End
   Begin VB.Label Label1
      Caption         =   "Previous Searches"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7680
      TabIndex        =   5
      Top             =   0
      Width           =   2895
   End
   Begin VB.Menu mnu_file
      Caption         =   "&File"
      Begin VB.Menu mnu_file_open
         Caption         =   "&Open"
      End
      Begin VB.Menu mnu_file_seperator
         Caption         =   "-"
      End
      Begin VB.Menu mnu_file_exit
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnu_web
      Caption         =   "On The &Web"
      Begin VB.Menu mnu_web_riot_home
         Caption         =   "&Information Riot Website"
      End
   End
   Begin VB.Menu mnu_help
      Caption         =   "&Help"
      Begin VB.Menu mnu_help_search
         Caption         =   "&Search Help"
      End
      Begin VB.Menu mnu_help_seperator
         Caption         =   "-"
      End
      Begin VB.Menu mnu_help_about
         Caption         =   "&About"
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ads_revolve_Timer()
ad_bar.Refresh
End Sub
Private Sub Check1_Click()
search_engine.Enabled = True
search_url.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next
search_engine.AddItem "Yahoo!"
search_engine.AddItem "Yahoo! Stock Quotes(Symbol Lookup)"
search_engine.AddItem "Altavista"
search_engine.AddItem "Lycos"
search_engine.AddItem "Lycos MP3 Search"
search_engine.AddItem "Dogpile"
search_engine.AddItem "Infoseek"
search_engine.AddItem "Excite"
search_engine.AddItem "HotBot"
search_engine.AddItem "Deja"
search_engine.AddItem "ICQ iT!"
search_engine.AddItem "Thunderstone"
search_engine.AddItem "Scrub The Web"
search_engine.ListIndex = 0
search_string.Text = ""
End Sub
Private Sub Label2_Click()
On Error Resume Next
search_results.Stop
End Sub
Private Sub go_back_Click()
On Error Resume Next
search_results.GoBack
End Sub
Private Sub go_forward_Click()
On Error Resume Next
search_results.GoForward
End Sub
Private Sub mnu_file_exit_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub mnu_file_open_Click()
On Error Resume Next
form_open.Show
End Sub
Private Sub mnu_help_about_Click()
On Error Resume Next
frmAbout.Show
End Sub
Private Sub mnu_web_riot_home_Click()
On Error Resume Next
search_results.Navigate ("http://www.inforiot.com")
End Sub
Private Sub Picture1_Click()
On Error Resume Next
Dim strURL As String
strURL = search_string.Text
Dim bFound As Boolean
On Error Resume Next
'check to make sure the url is valid
If search_engine.Text = "Yahoo!" Then
search_url.Text = "http://search.yahoo.com/bin/search?p="
If search_engine.Text = "Yahoo! Stock Quotes(Symbol Lookup)" Then
search_url.Text = "http://finance.yahoo.com/l?s="
If search_engine.Text = "Altavista" Then
search_url.Text = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q="
If search_engine.Text = "Lycos" Then
search_url.Text = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query="
If search_engine.Text = "Dogpile" Then
search_url.Text = "http://www.dogpile.com/texis/search?q="
If search_engine.Text = "Infoseek" Then
search_url.Text = "http://infoseek.go.com/Titles?qt="
If search_engine.Text = "Excite" Then
search_url.Text = "http://search.excite.com/search.gw?search="
If search_engine.Text = "HotBot" Then
search_url.Text = "http://www.hotbot.com/?MT="
If search_engine.Text = "Deja" Then
search_url.Text = "http://www.deja.com/qs.xp?OP=dnquery.xp&ST=QS&QRY="
If search_engine.Text = "ICQ iT!" Then
search_url.Text = "http://www.icqit.com/default.asp?MT="
If search_engine.Text = "Thunderstone" Then
search_url.Text = "http://search.thunderstone.com/texis/websearch/?q="
If search_engine.Text = "Scrub The Web" Then
search_url.Text = "http://www.scrubtheweb.com/cgi-bin/search.cgi?keyword="
If search_engine.Text = "Lycos MP3 Search" Then
search_url.Text = "http://mp3.lycos.com/cgi-bin/search?form=lycosnet&query="
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
'end check
'check to see if user has entered anything to search for
On Error Resume Next
If search_string.Text = "" Then GoTo failed Else: GoTo passed
'end check
failed:
MsgBox ("OOPS! You Forgot To Type In What You Whould Like To Search For!")
Exit Sub
passed:
For i = 0 To previous_searches.ListCount - 1
If previous_searches.List(i) = strURL Then
bFound = True
Exit For
End If
Next i
If Not bFound Then
previous_searches.AddItem strURL
End If
search_url.Text = search_url.Text + search_string.Text
search_results.Navigate (search_url.Text)
search_string.Text = ""
End Sub
Private Sub Picture2_Click()
On Error Resume Next
search_results.Stop
End Sub
Private Sub Picture3_Click()
On Error Resume Next
search_results.Refresh
End Sub
Private Sub previous_searches_Click()
 On Error Resume Next
 search_string.Text = previous_searches.Text
End Sub
Private Sub search_engine_Click()
On Error Resume Next
If search_engine.Text = "Yahoo!" Then
search_url.Text = "http://search.yahoo.com/bin/search?p="
If search_engine.Text = "Yahoo! Stock Quotes(Symbol Lookup)" Then
search_url.Text = "http://finance.yahoo.com/l?s="
If search_engine.Text = "Altavista" Then
search_url.Text = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q="
If search_engine.Text = "Lycos" Then
search_url.Text = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query="
If search_engine.Text = "Dogpile" Then
search_url.Text = "http://www.dogpile.com/texis/search?q="
If search_engine.Text = "Infoseek" Then
search_url.Text = "http://infoseek.go.com/Titles?qt="
If search_engine.Text = "Excite" Then
search_url.Text = "http://search.excite.com/search.gw?search="
If search_engine.Text = "HotBot" Then
search_url.Text = "http://www.hotbot.com/?MT="
If search_engine.Text = "ICQ iT!" Then
search_url.Text = "http://www.icqit.com/default.asp?MT="
If search_engine.Text = "Thunderstone" Then
search_url.Text = "http://search.thunderstone.com/texis/websearch/?q="
If search_engine.Text = "Scrub The Web" Then
search_url.Text = "http://www.scrubtheweb.com/cgi-bin/search.cgi?keyword="
If search_engine.Text = "Lycos MP" Then
search_url.Text = "http://mp3.lycos.com/cgi-bin/search?form=lycosnet&query="
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub search_results_TitleChange(ByVal Text As String)
On Error Resume Next
Form1.Caption = ""
Form1.Caption = "Information Browser v1.0" + " -- " + search_results.LocationName
End Sub
Private Sub search_string_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 32 Then
search_string.SetFocus
SendKeys "{bs}"
SendKeys "{+}"
If KeyAscii = 13 Then
Picture1_Click
End If
End If
End Sub