Jump to content

detect keypress

3dude

By 3dude,
in AutoIt General Help and Support

 Share

Recommended Posts

3dude Wayfarer

3dude

Posted
Posted (edited)

Could someone please tell me how can I detect a key being pressed!

Example

You click "calendar" button => Clendar Opens and old gui hides => Then(here is the problem) if the user presses F9 the Calendar hides and the main gui show again(like a back button)

-------

Searched in help file for: "key" "if key pressed" Keystroke" ........

Thanks

:)

---

tried with

If $msg = Send("F9") Then 
            GUISetState (@SW_HIDE, note1()) 
            GUISetState (@SW_SHOW, $the_GUI)
EndIf

Please don't laugh

Edited by 3dude

View my blog :) 3dude's blog <= help with project :S

Link to comment
Share on other sites
searchresult Adventurer

searchresult

Posted
Posted

Could someone please tell me how can I detect a key being pressed!

Example

You click "calendar" button => Clendar Opens and old gui hides => Then(here is the problem) if the user presses F9 the Calendar hides and the main gui show again(like a back button)

-------

Searched in help file for: "key" "if key pressed" Keystroke" ........

Thanks

:)

---

tried with

If $msg = Send("F9") Then 
            GUISetState (@SW_HIDE, note1()) 
            GUISetState (@SW_SHOW, $the_GUI)
EndIf

Please don't laugh

try with _IsPressed function look in help for this function

Link to comment
Share on other sites
BigDod Universalist

BigDod

Posted
Posted

You could also look for HotKeySet


Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted

your HotKey is F9

#include <guiconstants.au3>
HotKeySet ("{F9}" , "_back")
$the_GUI = GUICreate ("Test" , 200 , 80,-1,-1,$WS_CAPTION)
$button = GUICtrlCreateButton ("Show Calander" , 20 , 10 , 100, 25)
$exit = GUICtrlCreateButton ("Exit" , 20 , 45 , 100, 25)
GUISetState (@SW_SHOW, $the_GUI)

$date = GUICreate ( "My GUI get date", 200,80,-1,-1,$WS_CAPTION)
GUICtrlCreateDate ("1953/04/25", 10,10,185,20,-1)
GUISetState (@SW_HIDE, $date)
While 1
    $msg = GUIGetMsg ()
    Select
    ; ==== buttons events  ======
        Case $msg = $exit
            Exit
        Case $msg = $button
            GUISetState (@SW_HIDE, $the_GUI)
            GUISetState (@SW_SHOW, $date)
    EndSelect
WEnd
Func _back ()
    GUISetState (@SW_SHOW, $the_GUI)
    GUISetState (@SW_HIDE, $date)
EndFunc

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted

you're welcome

but BigDod already mentioned that I just gave the example

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
3dude Wayfarer

3dude

Posted
  • Author
Posted

Yes Thanks to all who help!

---

I have a little problem

I have two buttons

Calendar

Note

It works with the calendar BUT.... My note is in a Function

Func note1()

--------------

EndFunc

When I click Note it appears but when I press F9 i creates another note

See for yourself

Func _back ()   
GUISetState (@SW_HIDE, note1())
GUISetState (@SW_SHOW, $the_GUI)
EndFunc

View my blog :) 3dude's blog <= help with project :S

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted 

Func _back ()   
GUISetState (@SW_HIDE, note1())
GUISetState (@SW_SHOW, $the_GUI)
EndFunc
the statement :

GUISetState (@SW_HIDE, note1())

is not correct instead of putting the [ note1() ] you should put the GUI that u wish to hide

I don't know if this helps but if u want u can post your script and we can help

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
3dude Wayfarer

3dude

Posted
  • Author
Posted 

#include <guiconstants.au3>
#include <Misc.au3>
HotKeySet ("{F9}" , "_back")
$the_GUI = GUICreate ("Test" , 150 , 120,-1,-1,$WS_CAPTION)
$button = GUICtrlCreateButton ("Show Calander" , 20 , 10 , 100, 25)
$button2 = GUICtrlCreateButton ("Make Note" , 20 , 80 , 100, 25)
$exit = GUICtrlCreateButton ("Exit" , 20 , 45 , 100, 25)
GUISetState (@SW_SHOW, $the_GUI)
$date = GUICreate ( "My GUI get date", 200,80,-1,-1,$WS_CAPTION)
WinSetTrans("My GUI get date", "", 95)


    
    
;_________________  



Func date()
    $date = GUICreate ( "My GUI get date", 200,220,-1,-1, $WS_CAPTION);$WS_POPUP
    WinSetTrans("My GUI get date", "", 95)
    $back = GUICtrlCreateButton ("Back" , 50 , 200 , 85, 20)
    GUICtrlCreateMonthCal('', 0, 0, 200, 200)
EndFunc 

Func note1()
    Opt("GUIResizeMode",102); $GUI_DOCKBORDERS   102      2+4+32+64 so the control will grow as the window
    


    Dim $InitText = "Click here to edit."&@CRLF&"Click on the edges to drag the memo."

    Dim $Width = 240
    Dim $Height = 200
    
    $dll = DllOpen("user32.dll");for use with _IsPressed

    $nMemo = GUICreate("MemoBlock Memo", 240,200,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetFont(8,400,0,"Verdana")
    GUISetBkColor(0xFFF177)
    $nMemoText = GUICtrlCreateEdit($InitText,10,10,220,170,$ES_WANTRETURN,0)
    GUICtrlSetBkColor(-1,0xFFF177)
    
    $nResize = GUICtrlCreateLabel("",240-15,200-15,15,15);resize label
    GUICtrlSetCursor ( -1, 12 )
    GUICtrlSetResizing(-1,$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT+$GUI_DOCKRIGHT+$GUI_DOCKBOTTOM)

    WinSetTrans($nMemo,"",200)
    GUISetState(@SW_SHOWNOACTIVATE )
    WinSetOnTop($nMemo,"",1)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $nResize
                If GUICtrlRead($nMemoText) = $InitText Then; erase the default text
                    GUICtrlSetData($nMemoText,"")
                EndIf
                $wPos = WinGetPos($nMemo); element 2 x 3 is width x height
                $iPos = MouseGetPos(); initial mouse position
           
                While _IsPressed(01,$dll)
                    $mPos = MouseGetPos()
                    WinMove($nMemo,"",$wPos[0],$wPos[1],$wPos[2]+$mPos[0]-$iPos[0],$wPos[3]+$mPos[1]-$iPos[1])
                WEnd
                $wPos = WinGetPos($nMemo)
                
                $Width = $wPos[2]
                $Height = $wPos[3]
            Case -7; case mouse down on GUI
                If GUICtrlRead($nMemoText) = $InitText Then; erase the default text
                    GUICtrlSetData($nMemoText,"")
                EndIf
           
                $wPos = WinGetPos($nMemo);get the initial window position and mouse position and use it to calculate the movement
                $mPos = MouseGetPos()
           
                $x = $mPos[0]-$wPos[0]
                $y = $mPos[1]-$wPos[1]
           
                $Mouse = GUIGetCursorInfo($nMemo)
                If Not $Mouse[4] Then
                    While _IsPressed(01,$dll)
                        $nPos = MouseGetPos()
                        $NewPosX = $nPos[0]-$x
                        $NewPosY = $nPos[1]-$y
                   
                        If $NewPosX < 0 Then
                            $NewPosX = 0
                        ElseIf $NewPosX > @DesktopWidth - $Width Then
                            $NewPosX = @DesktopWidth - $Width
                        EndIf
                        If $NewPosY < 0 Then
                            $NewPosY = 0
                        ElseIf $NewPosY > @DesktopHeight - $Height Then
                            $NewPosY = @DesktopHeight - $Height
                        EndIf
                        WinMove($nMemo,"",$NewPosX,$NewPosY)
                    WEnd
                EndIf
        EndSwitch
    WEnd

    DllClose($dll)
EndFunc

$back = GUICtrlCreateButton ("Back" , 20 , 45 , 100, 300)
GUICtrlCreateDate ("1953/04/25", 10,10,185,20 )
GUISetState (@SW_HIDE, $date)
While 1
    $msg = GUIGetMsg ()
    Select
   ; ==== buttons events  ======
        Case $msg = $exit
            Exit
        Case $msg = $button
            GUISetState (@SW_HIDE, $the_GUI)
            GUISetState (@SW_SHOW, date())
        Case $msg = $back
            GUISetState (@SW_SHOW, $the_GUI)
            GUISetState (@SW_HIDE, $date)
        Case $msg = $button2
            GUISetState (@SW_HIDE, $the_GUI)
            GUISetState (@SW_SHOW, note1()) 
    EndSelect
WEnd

Func _back ()   
GUISetState (@SW_HIDE, note1())
GUISetState (@SW_SHOW, $the_GUI)
EndFunc

I got the note1 function from Manadar because it's is great and i don't know how to make it :P:)

View my blog :) 3dude's blog <= help with project :S

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted (edited)

hope this can help

#include <guiconstants.au3>
#include <Misc.au3>
HotKeySet ("{F9}" , "_back")

; =============== the Main GUI  ============
$main_GUI = GUICreate ("The Main GUI" , 150 , 120,-1,-1,$WS_CAPTION)
$show_caland = GUICtrlCreateButton ("Show Calander" , 20 , 10 , 100, 25)
$show_memo = GUICtrlCreateButton ("Make Note" , 20 , 80 , 100, 25)
$exit = GUICtrlCreateButton ("Exit" , 20 , 45 , 100, 25)
GUISetState (@SW_SHOW,$main_GUI)

; ========== the DATE GUI  ================
$date_GUI = GUICreate ( "My GUI get date", 200,220,-1,-1, $WS_CAPTION);$WS_POPUP
WinSetTrans("My GUI get date", "", 95)
$back = GUICtrlCreateButton ("Back" , 50 , 200 , 85, 20)
GUICtrlCreateMonthCal('', 0, 0, 200, 200)
GUISetState (@SW_HIDE , $date_GUI)

; ========== the Memo GUI  ================
    Opt("GUIResizeMode",102); $GUI_DOCKBORDERS   102      2+4+32+64 so the control will grow as the window
    Dim $InitText = "Click here to edit."&@CRLF&"Click on the edges to drag the memo."
    Dim $Width = 240
    Dim $Height = 200
    $dll = DllOpen("user32.dll");for use with _IsPressed
    
    $nMemo = GUICreate("MemoBlock Memo", 240,200,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetFont(8,400,0,"Verdana")
    GUISetBkColor(0xFFF177)
    $nMemoText = GUICtrlCreateEdit($InitText,10,10,220,170,$ES_WANTRETURN,0)
    GUICtrlSetBkColor(-1,0xFFF177)
    GUICtrlSetCursor ( -1, 5 )
    WinSetTrans($nMemo,"",200)
    GUISetState(@SW_HIDE,$nMemo)
    WinSetOnTop($nMemo,"",1)

While 1
    $nMsg = GUIGetMsg ()
    $t = GUIGetCursorInfo ($nMemo)
    Select
        Case $nMsg = $exit
            Exit
        Case $nMsg = $back
            GUISetState (@SW_HIDE,$date_GUI)
            GUISetState (@SW_HIDE,$nMemo)
            GUISetState (@SW_SHOW,$main_GUI)
        Case $nMsg = $show_caland
            _date()
        Case $nMsg = $show_memo
            _Memo()
        Case $t[4] = 8201 And $t[2] =1
            If GUICtrlRead ($nMemoText) = $InitText Then
            GUICtrlSetData($nMemoText,"")
            EndIf
    EndSelect
WEnd
DllClose($dll)

Func _back ()    
GUISetState (@SW_HIDE,$date_GUI)
GUISetState (@SW_HIDE,$nMemo)
GUISetState (@SW_SHOW,$main_GUI)
EndFunc

Func _date()
GUISetState (@SW_SHOW,$date_GUI)
GUISetState (@SW_HIDE,$main_GUI)
EndFunc

Func _Memo()
GUISetState (@SW_HIDE,$date_GUI)
;GUISetState (@SW_HIDE,$main_GUI)
GUISetState (@SW_SHOW,$nMemo)
EndFunc

####### Star2 #######

Edited by star2

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted

:):P:blink::wub::P:D:P:(:o:mad: :mad:

Now the dam note can't move.......

when I posted my reply I was sleeping !! really but don't know exactly what did I post

now tell me what about your note?

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted (edited) 

#include <guiconstants.au3>
#include <Misc.au3>
HotKeySet ("{F9}" , "_back")

; =============== the Main GUI  ============
$main_GUI = GUICreate ("The Main GUI" , 150 , 120,-1,-1,$WS_CAPTION)
$show_caland = GUICtrlCreateButton ("Show Calander" , 20 , 10 , 100, 25)
$show_memo = GUICtrlCreateButton ("Make Note" , 20 , 80 , 100, 25)
$exit = GUICtrlCreateButton ("Exit" , 20 , 45 , 100, 25)
GUISetState (@SW_SHOW,$main_GUI)

; ========== the DATE GUI  ================
$date_GUI = GUICreate ( "My GUI get date", 200,220,-1,-1, $WS_CAPTION);$WS_POPUP
WinSetTrans("My GUI get date", "", 95)
$back = GUICtrlCreateButton ("Back" , 50 , 200 , 85, 20)
GUICtrlCreateMonthCal('', 0, 0, 200, 200)
GUISetState (@SW_HIDE , $date_GUI)

; ========== the Memo GUI  ================
    Opt("GUIResizeMode",102); $GUI_DOCKBORDERS   102      2+4+32+64 so the control will grow as the window
    Dim $InitText = "Click here to edit."&@CRLF&"Click on the edges to drag the memo."
    Dim $Width = 240
    Dim $Height = 200
    $dll = DllOpen("user32.dll");for use with _IsPressed
   
    $nMemo = GUICreate("MemoBlock Memo", 240,200,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetFont(8,400,0,"Verdana")
    GUISetBkColor(0xFFF177)
    $nMemoText = GUICtrlCreateEdit($InitText,10,10,220,170,$ES_WANTRETURN,0)
    GUICtrlSetBkColor(-1,0xFFF177)
    GUICtrlSetCursor ( -1, 5 )
    WinSetTrans($nMemo,"",200)
    GUISetState(@SW_HIDE,$nMemo)
    WinSetOnTop($nMemo,"",1)

While 1
    $nMsg = GUIGetMsg ()
    $t = GUIGetCursorInfo ($nMemo)
    Select
        Case $nMsg = $exit
            Exit
        Case $nMsg = $back
            GUISetState (@SW_HIDE,$date_GUI)
            GUISetState (@SW_HIDE,$nMemo)
            GUISetState (@SW_SHOW,$main_GUI)
        Case $nMsg = $show_caland
            _date()
        Case $nMsg = $show_memo
            _Memo()
        Case $t[4] = 8201 And $t[2] =1
            If GUICtrlRead ($nMemoText) = $InitText Then
            GUICtrlSetData($nMemoText,"")
            EndIf
    EndSelect
                    $wPos = WinGetPos($nMemo);get the initial window position and mouse position and use it to calculate the movement
                $mPos = MouseGetPos()
          
                $x = $mPos[0]-$wPos[0]
                $y = $mPos[1]-$wPos[1]
          
                $Mouse = GUIGetCursorInfo($nMemo)
                If Not $Mouse[4] Then
                    While _IsPressed(01,$dll)
                        $nPos = MouseGetPos()
                        $NewPosX = $nPos[0]-$x
                        $NewPosY = $nPos[1]-$y
                  
                        If $NewPosX < 0 Then
                            $NewPosX = 0
                        ElseIf $NewPosX > @DesktopWidth - $Width Then
                            $NewPosX = @DesktopWidth - $Width
                        EndIf
                        If $NewPosY < 0 Then
                            $NewPosY = 0
                        ElseIf $NewPosY > @DesktopHeight - $Height Then
                            $NewPosY = @DesktopHeight - $Height
                        EndIf
                        WinMove($nMemo,"",$NewPosX,$NewPosY)
                    WEnd
                    EndIf
WEnd
DllClose($dll)

Func _back ()   
GUISetState (@SW_HIDE,$date_GUI)
GUISetState (@SW_HIDE,$nMemo)
GUISetState (@SW_SHOW,$main_GUI)
EndFunc

Func _date()
GUISetState (@SW_SHOW,$date_GUI)
GUISetState (@SW_HIDE,$main_GUI)
EndFunc

Func _Memo()
GUISetState (@SW_HIDE,$date_GUI)
;GUISetState (@SW_HIDE,$main_GUI)
GUISetState (@SW_SHOW,$nMemo)
EndFunc

Don't lazy make some test and search around.

Edited by star2

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted

Thanks a lot but how did you do it?

OMG !!

you didn't read the script? it was already provided by you !!

######### Star2 ###########

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...