ChazFire's REVENGE Posted March 18, 2005 Share Posted March 18, 2005 Wow, i've searched these fourms for over an hour and cant find what i need including the AutoIt Help. Either im realy dumb (hope not) or I just keep skipping over it.Last night i got some help from cyberslug, and he told me that i should put my radio buttons in as arrays. Click here to see what i meencan any one give me advice on what i should do? Any help is apreciated thx in advace!(open attached file for my current code)Chazfire_Talk.au3 [font="Arial"]--------When you go to jail a friend will bve thier to bail you out, but a best friend will be sitting right next to you saying, "D*** we F**ked up!"--------A friend helps you move, but a best friend helps you move dead bodies?Which brings me to my question, what kind of friend are you?[/font] Link to comment Share on other sites More sharing options...
CyberSlug Posted March 18, 2005 Share Posted March 18, 2005 Study Array is created with Dim $nameOfArray[$numberOfElements]You access array elements using$nameOfArray[0], $nameOfArray[1], ..., $nameOfArray[$numElements-1]Next for-loop is used to create the table of radio buttons:Note the formulas 10 + $row*50 and 10 + $col*20which meanoriginal_x_coord + $row * distance between rowsoriginal_y_coord + $col * distance between columnsSelect Case with Eval statements was replaced withCase $msg >= $optInfo[0] And $msg <= $optInfo[19]By the way, I also used the $BS_PUSHLIKE (0x1000) style for the radios.expandcollapse popup#include <GUIConstants.au3> GUICreate("GUI menu",300,200) GUICtrlCreateLabel("What do you want to say?", 10, 110, 150) $TITLE = GUICtrlCreateInput("", 5, 125, 290, 20) GUICtrlSetState ( -1, $GUI_FOCUS) GUICtrlSetTip(-1, "The title of the message box.") $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("?") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ;$helpmenu2 = GuiCtrlCreateMenuitem ("help",$helpmenu) $aboutitemhelp = GuiCtrlCreateMenuitem ("OMFG HELP",$helpmenu) Dim $optInfo[20];radio button array Dim $row, $col, $count ; $count is not necessary since it can be derived from $row and $col, ; but $count makes the code cleaner For $row = 0 to 3 For $col = 0 to 4 $optInfo[$count] = GUICtrlCreateRadio("(" & _zeroPad($count+1) & ")", 10 + $row*50, 10 + $col*20, 50, 20, 0x1000) $count = $count + 1 Next Next ; Helper function to pad single digits with a leading zero Func _zeroPad($num);assume $num is an integer between 0 and 99 If $num <= 9 Then Return "0" & $num Return $num;otherwise just return original number EndFunc $spambutton = GuiCtrlCreateButton ("SEND",210,30,70,20) $cancelbutton = GuiCtrlCreateButton ("Close",210,70,70,20) GuiSetState() Global $selectedNumber = 0 While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton ExitLoop Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop Case $msg >= $optInfo[0] And $msg <= $optInfo[19] $selectedNumber = $msg - 12;subtract 12 to convert ctrlID# into number you want Case $msg = $spambutton Dim $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(36,"","You'r about to send MESSAGE to USER, are you sure u want to continue?") Select Case $iMsgBoxAnswer = 6;Yes MsgBox(4096,"debug", $selectedNumber) $recipient = "lake" & $selectedNumber $message = """" & GuiCtrlRead($TITLE) & """" Run("net send " & $recipient & " " & $message, "", @SW_HIDE) GuiCtrlSetData($title, "") GuiCtrlSetState($title, $GUI_FOCUS) Case $iMsgBoxAnswer = 7;No EndSelect Case $msg = $aboutitemhelp MsgBox(0, "OMFG HELP","This will be help file."); work damnit Case $msg = $aboutitem Msgbox(0,"About","Thanks to all who supported this d/l! Email me @ michaell428wak@hotmail.com v1.0") EndSelect WEnd GUIDelete() Exit Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig! 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