possable to make custom buttons?

[Dead_Man]

like if i made a gui with just one button on it, and when it clicked it executed Run("cmd.exe")

is that possable?

[amanda089]

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 117, 37, 192, 125)
$Button1 = GUICtrlCreateButton("Notepad", 0, 0, 116, 36)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button1
            Run("notepad.exe")
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
    EndSelect
WEnd
Exit

[Dead_Man]

awsome, thanks, just getting started with the GUI section of auto it

Edited August 26, 2006 by Dead_Man

[amanda089]

awsome, thanks, just getting started with the GUI section of auto it

I suggest downloading SciTE/Autoit and use Koda or GuiBuilder, it really simplifies learning about GUI stuff... as well as F1 jumping to the function/macro definition in the included helpfile.

SciTE/Autoit

[Dead_Man]

ive been using SciTE for a long ass time, just new to GUI and Koda

[Dead_Man]

can anyone tell me how to generate a code like that in Koda?? i can only make a button that does nothing

[amanda089]

can anyone tell me how to generate a code like that in Koda?? i can only make a button that does nothing

Koda:

=> Tools

=> Generate Code (F9)

=> Insert into SciTE

Exit Koda

[Dead_Man]

when i said "like that" i ment adding a code to the button that had the script to open a program

Edited August 26, 2006 by Dead_Man

[amanda089]

when i said "like that" i ment adding a code to the button that had the script to open a program

You have to write the code such as:

Case $msg = $Button1
            Run("notepad.exe")

yourself.

[gring0]

you can use events too, like in vb:

#include <GUIConstants.au3>

Opt("GUIOnEventMode",1) ;this is the opt to use events
$frmTest = GUICreate("My Form", 415, 307, 292, 192)
$button = GUICtrlCreateButton("Run Notepad", 145, 120, 106, 31, 0)
GUICtrlSetOnEvent($button, "buttonclick")  ;this set a event named "buttonclick" for object $button
;you can use "GuiCtrlSetOnEvent(-1, "buttonclick")" too
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd
        
Func buttonclick()
    run("notepad.exe")
EndFunc

Edited August 26, 2006 by gring0