BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Google Search Bar for BlitzPlus Interface", by tails

This code demonstates how to add a Google Search Bar feature into a BlitzPlus application.

Code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Google Search Bar Example   ;
;by Steve Mountain           ;
;(Tails)                     ;
;05/08/2004                  ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

AppTitle "Google Search Bar"

;Global Variables
Global Main
Global File
Global Close
Global Google
Global Search
Global HTML

;Function to Create the Main Interface
Function CreateMain()
Main = CreateWindow("Google Search Bar",104,97,800,600,Desktop(),15)
  
File = CreateMenu("File",1,WindowMenu(Main)) 
Close = CreateMenu("Close",2,File)

Google = CreateTextField(5,25,350,20,Main,0) 
SetGadgetLayout Google,1,0,1,0 
Search = CreateButton("Search Google",350,25,100,20,Main,0) 
HTML = CreateHtmlView(6,65,780,490,Main,0) 
SetGadgetLayout HTML,1,1,1,1

UpdateWindowMenu Main

End Function ;ends the CreateMain function.

CreateMain() 
While WaitEvent()<>$803 
EvID=EventID()

EvData=EventData()

Select EvID 
     Case $1001 ;Menu Action
        Select EvData
          Case 2 
          If Confirm("Do you really want to Exit?")                  
 End
          EndIf 
        End Select
End Select

;google bar setup
     
If EvID=$401 And EventSource()=Search Then
HtmlViewGo html,"http://www.google.co.uk/search?hl=en&ie=UTF-8&q="+TextFieldText$(google)+"&btnG=Search&meta=cr%3DcountryUK%7CcountryGB" 
EndIf

Wend ;ends the while loop

Code software created by Krylar's Kreations