lod3n Posted November 13, 2006 Share Posted November 13, 2006 (edited) This could easily be turned into one of those program launching button bars apps, just add a config file. expandcollapse popup#include <GUIConstants.au3> global $FuncyFuncs dim $FuncyFuncs[1][3] GUICreate("FuncyButton Demo") Opt("GUICoordMode",2) GUISetCoord ( 10,30 ) ; set button row start position ; normal button $button1 = GUICtrlCreateButton("Normal Button", -1, -1, 100) ; funcy button, prepped for adding an icon $button2 = _GUICtrlCreateFuncyButton("RunApp","notepad.exe","Run Notepad", 0,-1,40,40, $BS_ICON) GUICtrlSetImage (-1, "notepad.exe",0) ; funcy button, prepped for adding an icon, without saving ctrl variable _GUICtrlCreateFuncyButton("RunApp","cmd.exe","Cmd", 0,-1,40,40, $BS_ICON) GUICtrlSetImage (-1, "cmd.exe", 0) ; funcy buttons, no icon _GUICtrlCreateFuncyButton("RunApp","calc.exe","Calc", 0, -1) _GUICtrlCreateFuncyButton("RunApp","mspaint.exe","Paint", 0, -1) _GUICtrlCreateFuncyButton("RunApp","wordpad.exe","Wordpad", 0, -1) _GUICtrlCreateFuncyButton("RunApp","control desk.cpl","Display", 0, -1) GUISetCoord ( 10,80 ) ; new button row start position _GUICtrlCreateFuncyButton("RunApp","explorer.exe","Explorer", -1, -1) _GUICtrlCreateFuncyButton("RunApp",@ProgramFilesDir & "\Internet Explorer\iexplore.exe","IE", 0, -1) _GUICtrlCreateFuncyButton("RunApp","control inetcpl.cpl","IE Ctl", 0, -1) GUISetState () While 1 $msg = GUIGetMsg(1) Select Case $msg[0] = $GUI_EVENT_CLOSE exitloop Case $msg[0] = $button1 msgbox(0,"Test", "Normal event handling still works") Case Else if $msg[2] <> 0 then _FuncyButtonGo($msg[2]) EndSelect Wend func RunApp($appcmd) run($appcmd) EndFunc func _GUICtrlCreateFuncyButton($function,$param, $text, $left, $top, $width=-1, $height=-1, $style=-1, $exStyle=-1 ) local $button = GUICtrlCreateButton ($text, $left, $top, $width, $height, $style, $exStyle) local $x = Ubound($FuncyFuncs)+1 ReDim $FuncyFuncs[$x][3] $x -= 1 $FuncyFuncs[$x][0] = GUICtrlGetHandle($button) $FuncyFuncs[$x][1] = $function $FuncyFuncs[$x][2] = $param return $button EndFunc Func _FuncyButtonGo($ctrlID) for $i = 1 to Ubound($FuncyFuncs) - 1 if $FuncyFuncs[$i][0] = $ctrlID Then call($FuncyFuncs[$i][1],$FuncyFuncs[$i][2]) EndIf Next EndFunc Edited November 13, 2006 by lod3n [font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font] Link to comment Share on other sites More sharing options...
IcyFerno Posted November 13, 2006 Share Posted November 13, 2006 lol great script, thanks for your contribution but shouldnt this be placed on a desktop 0.o how about running it as a toolwindow Link to comment Share on other sites More sharing options...
Guest Beefteck Posted November 15, 2006 Share Posted November 15, 2006 lol, yep and that is where i step in with K.I.O. new version comeing out soon too go to my web site to see info on the last version it started as a little tool window for me v0.5 that lead to v0.7 (not avablible for download too many problems) then that lead to the latest avalible v0.8. I am getting close to done with my new version v1.0 witch will have many, many new features. I had great ideas for it in school and made all of them come true. i think that eveyone will be impressed when my new version comes out. anyway i have been useing the fancy buttons from v0.5 accutlly. anyway great script Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now