Jump to content

Disable GUI's "caching" keystrokes


Recommended Posts

The scenario is thus: You have a button on a gui, and it does an action that takes some time - let's just assume it is a sleep(20000).
The user clicks the button, the script does it's thing. HOWEVER if the user gets impatient and clicks the button again before it finishes, or if they spam the button, you will get an endless looping of the function over and over.

Is there any way that if I had a function that took a while to run, and someone clicked the button to start/restart it again, that I could immediately kill/return the function instead of waiting for it to finnish? Or would there be a way to disable the gui from accepting and clicks or keystrokes until the current function finishes executing? My goal is to avoid the pressing the button twenty times impatiently making it do the same thing over and over.

Edited by corgano

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Link to post
Share on other sites

There are a couple of ways that I have handled similar problems.  One method is to disable any controls while your long process runs and then re-enable them when it is complete.  Another method is to create some sort of global variable that denotes whether the program is busy and inspect the variable as funcs are called.  

I'm sure other folks have some good ideas as well.

Some example code that demonstrates a specific scenario would give us more to work with.

Edited by spudw2k
Link to post
Share on other sites

Fiddled a bit with GuiOnEventMode and GuiGetMsg but the only way I found was what they already told you, otherwise function will be quequed and called for each time you clicked.

Use #include <GUIConstantsEx.au3> and when you call the function use GuiCtrlSetState($YourControl,$GUI_DISABLE) and when finished GuiCtrlSetState($YourControl,$GUI_ENABLE)

 

Or tempoarily replace the button with something not clickable until the function ends.

Edited by Newb

I'm a compulsive poster. When I post something, come to read it at least 5 minutes later after the posting, because I will edit it. I edited even this signature a few minutes later after I wrote it.

Link to post
Share on other sites

maybe you can make the button change into a loading gif till the function is loading then turn it back 

​Considered this, but if the gui has a lot of buttons it becomes annoying to keep track of replacing / enabling and disabling controls.

There are a couple of ways that I have handled similar problems.  One method is to disable any controls while your long process runs and then re-enable them when it is complete.  Another method is to create some sort of global variable that denotes whether the program is busy and inspect the variable as funcs are called.  

I'm sure other folks have some good ideas as well.

Some example code that demonstrates a specific scenario would give us more to work with.

​I've also done something similar to this before, having a global flag to wuit doing whatever and every few lines check if the flag was set and if so return. This seemed excessively messy though, so I was wondering about a better solution.

 

Here is an example script that shows the issue:

#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>

Example()

Func Example()
    Local $hImage, $idListview

    ; Create GUI
    GUICreate("ListView Add Item", 400, 400)
    $idListview = GUICtrlCreateListView("", 2, 2, 394, 268)
    $button = GUICtrlCreateButton("go", 2,280,493,100)
    GUISetState(@SW_SHOW)

    ; Add columns
    _GUICtrlListView_InsertColumn($idListview, 0, "Column 1", 100)
    _GUICtrlListView_InsertColumn($idListview, 1, "Column 2", 100)
    _GUICtrlListView_InsertColumn($idListview, 2, "Column 3", 100)
    _GUICtrlListView_InsertColumn($idListview, 3, "Column 4", 100)
    _GUICtrlListView_InsertColumn($idListview, 4, "Column 5", 100)

    ; Add items
    longfunc($idListview)

    ; Loop until the user exits.
    while 1
      $msg = GUIGetMsg()
      Switch $msg
        Case $GUI_EVENT_CLOSE
          GUIDelete()
          Exit

        Case $button
          longfunc($idListview)
      EndSwitch
    WEnd
EndFunc   ;==>Example

Func longfunc($idListview)
      _GUICtrlListView_DeleteAllItems($idListview)
    For $i = 0 to 300
    _GUICtrlListView_AddItem($idListview, "Row "&$i+1&": Col 1", $i)
    _GUICtrlListView_AddSubItem($idListview, $i, "Row "&$i+1&": Col 2", 1)
    _GUICtrlListView_AddSubItem($idListview, $i, "Row "&$i+1&": Col 3", 2)
    _GUICtrlListView_AddSubItem($idListview, $i, "Row "&$i+1&": Col 4", 3)
    _GUICtrlListView_AddSubItem($idListview, $i, "Row "&$i+1&": Col 5", 4)
    Next
EndFunc

put this code at the point where you'd like to flush the clicking

While GUIGetMsg()
WEnd

 

​That never would have occurred to me! actually functions really well, and as far as solutions to clearing any buffered keys this works brilliantly.

Is there any good, simple solution like this for interrupting / stopping the running function immediately?

Edited by corgano

0x616e2069646561206973206c696b652061206d616e20776974686f7574206120626f64792c20746f206669676874206f6e6520697320746f206e657665722077696e2e2e2e2e

Link to post
Share on other sites

Is there any good, simple solution like this for interrupting / stopping the running function immediately?

​code speak louder than words
 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("my big GUI", 615, 49, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
Global $Button1 = GUICtrlCreateButton("Button1", 8, 8, 75, 25)
Global $Label1 = GUICtrlCreateLabel("Label1", 88, 14, 500, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $bStop = False
myTimeIsA_LongFunctionToStop()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete()
            Exit 0
        Case $Button1
            ; run again ?
            $bStop = Not $bStop
            myTimeIsA_LongFunctionToStop()

    EndSwitch
WEnd

Func myTimeIsA_LongFunctionToStop()
    While 1 ; run baby, run
    ; la la la
    ; la la la
    ; la la la
    If GUIGetMsg() = $Button1 Then $bStop = Not $bStop
    If $bStop Then
        GUICtrlSetData( $Label1 , "I'm stopped ?" )
        Return "I'm stopped ?" ; place somethingt like this ?
    EndIf
    ; la la la
    ; la la la
    ; la la la
    ; la la la
    GUICtrlSetData( $Label1 , @HOUR&":"&@MIN&":"&@SEC&"."&@MSEC )
    Sleep(10)
    ; la la la
    ; la la la
    ; la la la
    WEnd
EndFunc

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By XGamerGuide
      👋 Hey
      I want to call a function when something changes on an element in my GUI. That should work for a combo box (with $CBS_DROPDOWNLIST) when I select an item and for a text input when I type.
    • By NassauSky
      Hi all,
      The more projects I work on, the harder it is to find old scripts I created with certain techniques in them. I'd like to leave this here for others to get an idea from and it will be available now by keyword searching in this forum.
      This project needed an evenly distributed button grid setup on a touch screen with half decent sized buttons and spacing so the user would be less likely to press the key beside it. Here is one quick example to give anyone an idea of a way to handle it.
      #include <GUIConstants.au3> GUICreate("Button Grid", 1080, 100) ; will create a dialog box that when displayed is centered GUISetState(@SW_SHOW) ; will display an empty dialog box ;--Create and Position Controls Dim $btnActivated[1][2] ;Col 1 is button id, Col 2 is True/False used in 1 example as depressed Dim $btnArray[100][2] ;Col 1 is button id, Col 2 is True/False used in 1 example as depressed $num = 0 $btnActivated[0][0] = GUICtrlCreateButton("Activated", 0, 0, 100, 100) ;x,y,w,h $btnActivated[0][1] = True GUICtrlSetBkColor(-1,0x00ff00) GUICtrlSetColor(-1,0x005500) GUICtrlSetFont(-1,14) For $Y = 0 To 1 For $X = 0 To 7 ConsoleWrite( ($X * 100) + ($X*20) + 120 & @CRLF) If $Y=0 Then $btnArray[$num][0] = GUICtrlCreateButton($num + 1, ($X * 100) + ($X*20) + 120, 0, 100, 40) ;x,y,w,h Else $btnArray[$num][0] = GUICtrlCreateButton($num + 1, ($X * 100) + ($X*20) + 120, ($Y * 40) + $Y*20, 100, 40) ;x,y,w,h EndIf GUICtrlSetBkColor($btnArray[$num][0], 0xFFFFFF) $num += 1 Next Next ;--Set Button Names GUICtrlSetData($btnArray[0][0],"Autoit") GUICtrlSetData($btnArray[1][0],"Is") GUICtrlSetData($btnArray[2][0],"Cool") ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE ExitLoop Case $btnActivated[0][0] $btnActivated[0][1] = NOT $btnActivated[0][1] If $btnActivated[0][1] Then GUICtrlSetBkColor($btnActivated[0][0],0x00ff00) GUICtrlSetColor($btnActivated[0][0],0x005500) GUICtrlSetData($btnActivated[0][0],"Activated") GUICtrlSetFont($btnActivated[0][0],14) Else GUICtrlSetBkColor($btnActivated[0][0],0xFF9999) GUICtrlSetColor($btnActivated[0][0],0x550000) GUICtrlSetData($btnActivated[0][0],"DeActivated") GUICtrlSetFont($btnActivated[0][0],13) EndIf Case $btnArray[0][0] If $btnActivated[0][1] Then MsgBox(0,"Notice","Btn1",1) EndIf Case $btnArray[1][0] If $btnActivated[0][1] Then MsgBox(0,"Notice","Btn2",1) EndIf Case $btnArray[2][0] If $btnActivated[0][1] Then MsgBox(0,"Notice","Btn3",1) EndIf EndSwitch WEnd I couldn't find one of my old projects that broke the button array into more columns that included the actual button name in the field. Feel free to share your own or share a more flexible version of this simple example.

    • By It_is_me_Me
      I am making some GUI with combobox for the Baudrates communications and I listed 9600, 57600, 115200. 
      I wrote the code to be defaulted to 57600 like this:
      GUICtrlSetData($comboBox_opticalBaudRate, "9600|57600|115200", "57600")
      But I wanted the GUI to remember the last item the user picks so the baudrates will NOT be defaulted to 57600.
      Example, I pick 9600 as my baudrates, then I close the GUI, after opening it, it always prompt 57600 since that is what I did in my code. But I want that if I choose 9600 and close the GUI, opening it again will show 9600 now instead of 57600.
      Is there a way to do it in GUI setting?
       
      Thanks.
    • By ashraful089
      #include <ButtonConstants.au3>
      #include <ComboConstants.au3>
      #include <GUIConstantsEx.au3>
      #include <WindowsConstants.au3>
      #Region ### START Koda GUI section ### Form=C:\Users\Engr. Ashraful\Videos\koda_1.7.3.0\Forms\ProgramPlayer\FormProgamToOpen.kxf
      $FormInput = GUICreate("Input", 302, 205, 454, 285)
      $Resolution = GUICtrlCreateCombo("Resolution", 80, 24, 145, 25)
      GUICtrlSetData(-1, "1920|VM1920|1366")
      $ComboProgramType = GUICtrlCreateCombo("Program Type Selection", 80, 64, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
      GUICtrlSetData(-1, "Multimedia|Official|Design|Web")
      $ButtonEnter = GUICtrlCreateButton("Enter", 104, 104, 75, 25)
      GUISetState(@SW_SHOW)
      #EndRegion ### END Koda GUI section ###
      While 1
          $nMsg = GUIGetMsg()
          Switch $nMsg
              Case $GUI_EVENT_CLOSE
                  Exit
          EndSwitch
      WEnd
       
      please help me to read combo box input and use the value for another function/ work
       
    • By Aapjuh
      Hi,
      I am having a problem properly saving the Width of a resizable Gui.
      When a user resizes the Gui it gets saved in an ini when the Gui closes to then restore the new Width upon reopening the app.
      with GUICreate("myGui",300,200,Default,Default,$WS_SIZEBOX)
      WinGetPos($hGUI) returns 314, and WinGetClientSize($hGUI) returns 298
      when its then saved in the ini the gui keeps expanding or shrinking every time its opened by +14 or -2
      I figure it has to do with borders etc, but i also guess borders depend on the window theme and whatnot or is user specific, so i can't just do $GuiWidth = $GetGuiWidth[arr] -14 or +2 right?

      is there a proper way of doing this?
      Thanks in advance,
      Aapjuh
×
×
  • Create New...