Webgadget+Enter=Search

Just starting out? Need help? Post your questions and find answers here.
incaroad
User
User
Posts: 35
Joined: Sat Apr 20, 2013 2:58 pm
Location: Hungary; Pilisvörösvár

Webgadget+Enter=Search

Post by incaroad »

Hello everyone!

Pressing enter, how could start search?
Thank you in advance for your help!

Image

Code: Select all

Global WebObject.IWebBrowser2
Global EventId.i, GadgetNumber.i
#OLECMDID_FIND = 32
Enumeration 1
  #OLECMDID_OPEN
  #OLECMDID_NEW
  #OLECMDID_SAVE
  #OLECMDID_SAVEAS
  #OLECMDID_SAVECOPYAS
  #OLECMDID_PRINT
  #OLECMDID_PRINTPREVIEW
  #OLECMDID_PAGESETUP
  #OLECMDID_SPELL
  #OLECMDID_PROPERTIES
  #OLECMDID_CUT
  #OLECMDID_COPY
  #OLECMDID_PASTE
  #OLECMDID_PASTESPECIAL
  #OLECMDID_UNDO
  #OLECMDID_REDO
  #OLECMDID_SELECTALL
  #OLECMDID_CLEARSELECTION
  #OLECMDID_ZOOM
  #OLECMDID_GETZOOMRANGE
  #OLECMDID_UPDATECOMMANDS
  #OLECMDID_REFRESH
  #OLECMDID_STOP
  #OLECMDID_HIDETOOLBARS
  #OLECMDID_SETPROGRESSMAX
  #OLECMDID_SETPROGRESSPOS
  #OLECMDID_SETPROGRESSTEXT
  #OLECMDID_SETTITLE
  #OLECMDID_SETDOWNLOADSTATE
  #OLECMDID_STOPDOWNLOAD
EndEnumeration

Enumeration 0
  #OLECMDEXECOPT_DODEFAULT
  #OLECMDEXECOPT_PROMPTUSER
  #OLECMDEXECOPT_DONTPROMPTUSER
  #OLECMDEXECOPT_SHOWHELP
EndEnumeration
Enumeration
  #Window_0
  #Web_0
 
  #Button_vissza
  #Button_elore
  #FindButton
  
  #Font_Button_vissza
  #Font_Button_elore
  #Font_FindButton
EndEnumeration




If OpenWindow(#Window_0, 0, 0, 1000, 600, "TippMix",#PB_Window_SystemMenu |#PB_Window_MinimizeGadget|  #PB_Window_ScreenCentered)
  StickyWindow(#Window_0,1)
  WebGadget( #Web_0, 0, 30, 1000, 570, "http://www.tippmix.hu/sportfogadas")
  
  WebObject.IWebBrowser2=GetWindowLong_(GadgetID(#Web_0),#GWL_USERDATA)
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_X,Asc("x"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_C,Asc("c"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_V,Asc("v"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_A,Asc("a"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Z,Asc("z"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Y,Asc("y"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Control|#PB_Shortcut_Shift|#PB_Shortcut_Z,Asc("y"))
  AddKeyboardShortcut(#Window_0,#PB_Shortcut_Return,13)
  
    ButtonGadget(#Button_vissza, 0, 0, 333, 29, "<<< VISSZA")
      ButtonGadget(#Button_elore, 334, 0, 333, 29, "ELŐRE >>>")
      ButtonGadget(#FindButton, 668, 0, 333, 29, "KERESÉS")
      ; Gadget Fonts
      SetGadgetFont(#Button_vissza, LoadFont(#Font_Button_vissza, "Microsoft Sans Serif", 14, 16))
      SetGadgetFont(#Button_elore, LoadFont(#Font_Button_elore, "Microsoft Sans Serif", 14, 16))
      SetGadgetFont(#FindButton, LoadFont(#Font_FindButton, "Microsoft Sans Serif", 14, 16))
    EndIf
    
 
    
      ;{- Event loop
;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
      
      Case #PB_Event_Menu
        Select EventMenu()
          Case Asc("x")
            Debug "cut"
            WebObject\ExecWB(#OLECMDID_CUT,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
          Case Asc("c")
            Debug "copy"
            WebObject\ExecWB(#OLECMDID_COPY,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
          Case Asc("v")
            Debug "paste"
            WebObject\ExecWB(#OLECMDID_PASTE,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
          Case Asc("a")
            Debug "select all"
            WebObject\ExecWB(#OLECMDID_SELECTALL,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
          Case Asc("z")
            Debug "undo"
            WebObject\ExecWB(#OLECMDID_UNDO,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
          Case Asc("y")
            Debug "redo"
            WebObject\ExecWB(#OLECMDID_REDO,#OLECMDEXECOPT_DONTPROMPTUSER,0,0)
            Case 13
            Debug "enter"
            ;WebObject\ExecWB(?)
      
      EndSelect
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget =  #Web_0
      ElseIf EventGadget = #Button_vissza
        SetGadgetState(#Web_0,#PB_Web_Back)
      ElseIf EventGadget = #Button_elore
        SetGadgetState(#Web_0,#PB_Web_Forward)
      ElseIf EventGadget = #FindButton
        WebObject\ExecWB(#OLECMDID_FIND, #OLECMDEXECOPT_DODEFAULT, 0, 0)
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        res= MessageRequester("Kilépés","Biztos, hogy kilép a TippMixből?",#PB_MessageRequester_YesNo )
        If res=6
          CloseWindow(#Window_0)
          Break
          EndIf
        
      EndIf
  EndSelect
ForEver
;