6Maverick6 Posted August 13, 2013 Share Posted August 13, 2013 Hi Everyone, I am working on a form type set up and just have some questions. The outcome would be User receives the form fills out the fields/questions and than hits button that saves (or sends the data but this much later.). That form is than saved on to share volume. So went through and made a nice form with combo boxes and check boxes and input fields. Wondering how I would Export the users Data from these fields ?? Had a bit of a search but can't seem to narrow it down. ---- Regards Nathan Link to comment Share on other sites More sharing options...
0xdefea7 Posted August 13, 2013 Share Posted August 13, 2013 (edited) Well, that is a tall order for a question, especially without some example code I'll give you a little help, but you need to post code if you want more: For combo boxes: '?do=embed' frameborder='0' data-embedContent>> For Checkboxes (a small example): EDIT (fat fingers) If BitAnd(GuiCtrlGetState($ChkBox1),$GUI_CHECKED) Then ; Do stuff here EndIf For Input Fields (a small example): $sInputData = GUICtrlRead($Inputbox1) Edited August 13, 2013 by 0xdefea7 Link to comment Share on other sites More sharing options...
BrewManNH Posted August 13, 2013 Share Posted August 13, 2013 GUICtrlRead will read what was put into the controls, or what controls are checked or not. If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays. - ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. - Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. - _FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. - Latin Square password generator Link to comment Share on other sites More sharing options...
6Maverick6 Posted August 13, 2013 Author Share Posted August 13, 2013 (edited) Hey, ahh yes sorry. Bare in mind it is just the form at the moment. Thanks for those tips I will start working on them now. expandcollapse popup#cs ---------------------------------------------------------- UAT Form Including Data Export. Author: Nathan *** Version/Revision: 0.01 - Project Started - 13/08/2013 - NM Script Function: Produce Form that User/Tester Completes and hits Send which saves the form to network. #ce ---------------------------------------------------------- ;################################## ; Include ;################################## #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> Opt("GUIOnEventMode", 1) ;################################## ; GUI ;################################## #Region ### START Koda GUI section ### Form=h:\autoit work\uat_form\gui.kxf $UAT_Form = GUICreate("UAT_Form", 715, 645, -1, -1) GUISetIcon("H:\AutoIT Work\UAT_Form\shell32_220.ico", -1) $Heading = GUICtrlCreateLabel("UAT Form", 295, 8, 116, 37) GUICtrlSetFont(-1, 20, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $User_Details = GUICtrlCreateGroup("Tester Details:", 8, 48, 697, 153) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Type = GUICtrlCreateCombo("Type", 16, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Application Admin|Client Services|Clinical Tester|General Tester") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $User_Type = GUICtrlCreateLabel("Please Select Option Below:", 16, 72, 155, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Tree_Location = GUICtrlCreateLabel("Please Select Your Tree:", 16, 128, 132, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Loc = GUICtrlCreateCombo("Loc", 16, 152, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "FWAHS|MAHS|MWAHS") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Name = GUICtrlCreateLabel("Name:", 176, 72, 38, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Field_Name = GUICtrlCreateInput("Enter Name...", 176, 96, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $No = GUICtrlCreateLabel("Contact Number:", 176, 128, 95, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Number = GUICtrlCreateInput("Phone Or Mobile...", 176, 152, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) $Save = GUICtrlCreateButton("Save/Send", 632, 608, 75, 25) $Creator = GUICtrlCreateLabel("Designed/Created By: Nathan ***", 8, 600, 187, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Version = GUICtrlCreateLabel("Version 0.01", 8, 624, 63, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0xFF0000) $App_Details = GUICtrlCreateGroup("Application Details:", 8, 216, 697, 145) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $App_Name = GUICtrlCreateLabel("Application Name:", 16, 240, 105, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Input = GUICtrlCreateInput("Application Name...", 16, 264, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Lab = GUICtrlCreateLabel("Application Location:", 176, 240, 121, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad1 = GUICtrlCreateRadio("Install Locally", 176, 256, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad2 = GUICtrlCreateRadio("App-V", 176, 272, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad3 = GUICtrlCreateRadio("Citrix", 176, 288, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver = GUICtrlCreateLabel("Application Version:", 16, 296, 116, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver_Input = GUICtrlCreateInput("Version...", 16, 320, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;################################## ; GUI - Addons ;################################## GUICtrlSetOnEvent($Save, "#Save_Function_When_Have_One#") ;################################## ; Exporting Script ;################################## Edited August 13, 2013 by 6Maverick6 ---- Regards Nathan Link to comment Share on other sites More sharing options...
kylomas Posted August 13, 2013 Share Posted August 13, 2013 6Maverick6, Before you get too far into this... 1 - Use event mode or msg loop mode but not both 2 - You can set the default first item in your combo controls. See comments in code expandcollapse popup#cs ---------------------------------------------------------- UAT Form Including Data Export. Author: Nathan Markwick Version/Revision: 0.01 - Project Started - 13/08/2013 - NM Script Function: Produce Form that User/Tester Completes and hits Send which saves the form to network. #ce ---------------------------------------------------------- ;################################## ; Include ;################################## #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> ; use either event mode or msg loop mode but not both ;Opt("GUIOnEventMode", 1) ;################################## ; GUI ;################################## #Region ### START Koda GUI section ### Form=h:\autoit work\uat_form\gui.kxf $UAT_Form = GUICreate("UAT_Form", 715, 645, -1, -1) ;GUISetIcon("H:\AutoIT Work\UAT_Form\shell32_220.ico", -1) $Heading = GUICtrlCreateLabel("UAT Form", 295, 8, 116, 37) GUICtrlSetFont(-1, 20, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $User_Details = GUICtrlCreateGroup("Tester Details:", 8, 48, 697, 153) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) ; for combo boxes you can set a default 1ST entry when you add the data as below $Type = GUICtrlCreateCombo("", 16, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Application Admin|Client Services|Clinical Tester|General Tester","Application Admin") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $User_Type = GUICtrlCreateLabel("Please Select Option Below:", 16, 72, 155, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Tree_Location = GUICtrlCreateLabel("Please Select Your Tree:", 16, 128, 132, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Loc = GUICtrlCreateCombo("", 16, 152, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "FWAHS|MAHS|MWAHS","FWAHS") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Name = GUICtrlCreateLabel("Name:", 176, 72, 38, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Field_Name = GUICtrlCreateInput("Enter Name...", 176, 96, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $No = GUICtrlCreateLabel("Contact Number:", 176, 128, 95, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Number = GUICtrlCreateInput("Phone Or Mobile...", 176, 152, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) $Save = GUICtrlCreateButton("Save/Send", 632, 608, 75, 25) $Creator = GUICtrlCreateLabel("Designed/Created By: Nathan Markwick", 8, 600, 187, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Version = GUICtrlCreateLabel("Version 0.01", 8, 624, 63, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0xFF0000) $App_Details = GUICtrlCreateGroup("Application Details:", 8, 216, 697, 145) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $App_Name = GUICtrlCreateLabel("Application Name:", 16, 240, 105, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Input = GUICtrlCreateInput("Application Name...", 16, 264, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Lab = GUICtrlCreateLabel("Application Location:", 176, 240, 121, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad1 = GUICtrlCreateRadio("Install Locally", 176, 256, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad2 = GUICtrlCreateRadio("App-V", 176, 272, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad3 = GUICtrlCreateRadio("Citrix", 176, 288, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver = GUICtrlCreateLabel("Application Version:", 16, 296, 116, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver_Input = GUICtrlCreateInput("Version...", 16, 320, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;################################## ; GUI - Addons ;################################## ;GUICtrlSetOnEvent($Save, "#Save_Function_When_Have_One#") ;################################## ; Exporting Script ;################################## Good Luck, kylomas Forum Rules Procedure for posting code "I like pigs. Dogs look up to us. Cats look down on us. Pigs treat us as equals." - Sir Winston Churchill Link to comment Share on other sites More sharing options...
6Maverick6 Posted August 13, 2013 Author Share Posted August 13, 2013 Cheers Kylomas, Have updated that didn't even notice I did that. Also I like that Option much better on the drop down than how I had it thank you. 6Maverick6, Before you get too far into this... 1 - Use event mode or msg loop mode but not both 2 - You can set the default first item in your combo controls. See comments in code expandcollapse popup#cs ---------------------------------------------------------- UAT Form Including Data Export. Author: Nathan Markwick Version/Revision: 0.01 - Project Started - 13/08/2013 - NM Script Function: Produce Form that User/Tester Completes and hits Send which saves the form to network. #ce ---------------------------------------------------------- ;################################## ; Include ;################################## #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> ; use either event mode or msg loop mode but not both ;Opt("GUIOnEventMode", 1) ;################################## ; GUI ;################################## #Region ### START Koda GUI section ### Form=h:\autoit work\uat_form\gui.kxf $UAT_Form = GUICreate("UAT_Form", 715, 645, -1, -1) ;GUISetIcon("H:\AutoIT Work\UAT_Form\shell32_220.ico", -1) $Heading = GUICtrlCreateLabel("UAT Form", 295, 8, 116, 37) GUICtrlSetFont(-1, 20, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $User_Details = GUICtrlCreateGroup("Tester Details:", 8, 48, 697, 153) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) ; for combo boxes you can set a default 1ST entry when you add the data as below $Type = GUICtrlCreateCombo("", 16, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Application Admin|Client Services|Clinical Tester|General Tester","Application Admin") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $User_Type = GUICtrlCreateLabel("Please Select Option Below:", 16, 72, 155, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Tree_Location = GUICtrlCreateLabel("Please Select Your Tree:", 16, 128, 132, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Loc = GUICtrlCreateCombo("", 16, 152, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "FWAHS|MAHS|MWAHS","FWAHS") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Name = GUICtrlCreateLabel("Name:", 176, 72, 38, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Field_Name = GUICtrlCreateInput("Enter Name...", 176, 96, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $No = GUICtrlCreateLabel("Contact Number:", 176, 128, 95, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Number = GUICtrlCreateInput("Phone Or Mobile...", 176, 152, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) $Save = GUICtrlCreateButton("Save/Send", 632, 608, 75, 25) $Creator = GUICtrlCreateLabel("Designed/Created By: Nathan Markwick", 8, 600, 187, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Version = GUICtrlCreateLabel("Version 0.01", 8, 624, 63, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0xFF0000) $App_Details = GUICtrlCreateGroup("Application Details:", 8, 216, 697, 145) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $App_Name = GUICtrlCreateLabel("Application Name:", 16, 240, 105, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Input = GUICtrlCreateInput("Application Name...", 16, 264, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Lab = GUICtrlCreateLabel("Application Location:", 176, 240, 121, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad1 = GUICtrlCreateRadio("Install Locally", 176, 256, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad2 = GUICtrlCreateRadio("App-V", 176, 272, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad3 = GUICtrlCreateRadio("Citrix", 176, 288, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver = GUICtrlCreateLabel("Application Version:", 16, 296, 116, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver_Input = GUICtrlCreateInput("Version...", 16, 320, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;################################## ; GUI - Addons ;################################## ;GUICtrlSetOnEvent($Save, "#Save_Function_When_Have_One#") ;################################## ; Exporting Script ;################################## Good Luck, kylomas Update Code If it is needed: expandcollapse popup#cs ---------------------------------------------------------- UAT Form Including Data Export. Author: Nathan *** Version/Revision: 0.01 - Project Started - 13/08/2013 - NM Script Function: Produce Form that User/Tester Completes and hits Send which saves the form to network. #ce ---------------------------------------------------------- ;################################## ; Include ;################################## #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> ;################################## ; GUI ;################################## #Region ### START Koda GUI section ### Form=h:\autoit work\uat_form\gui.kxf $UAT_Form = GUICreate("UAT_Form", 715, 645, -1, -1) GUISetIcon("H:\AutoIT Work\UAT_Form\shell32_220.ico", -1) $Heading = GUICtrlCreateLabel("UAT Form", 295, 8, 116, 37) GUICtrlSetFont(-1, 20, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $User_Details = GUICtrlCreateGroup("Tester Details:", 8, 48, 697, 153) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Type = GUICtrlCreateCombo("", 16, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "Application Admin|Client Services|Clinical Tester|General Tester","Application Admin") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $User_Type = GUICtrlCreateLabel("Please Select Option Below:", 16, 72, 155, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Tree_Location = GUICtrlCreateLabel("Please Select Your Tree:", 16, 128, 132, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Loc = GUICtrlCreateCombo("", 16, 152, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "FWAHS|MAHS|MWAHS","MAHS") GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Name = GUICtrlCreateLabel("Name:", 176, 72, 38, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Field_Name = GUICtrlCreateInput("Enter Name...", 176, 96, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $No = GUICtrlCreateLabel("Contact Number:", 176, 128, 95, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Number = GUICtrlCreateInput("Phone Or Mobile...", 176, 152, 185, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) $Save = GUICtrlCreateButton("Save/Send", 632, 608, 75, 25) $Creator = GUICtrlCreateLabel("Designed/Created By: Nathan ***", 8, 600, 187, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $Version = GUICtrlCreateLabel("Version 0.01", 8, 624, 63, 17) GUICtrlSetFont(-1, 8, 800, 0, "Calibri") GUICtrlSetColor(-1, 0xFF0000) $App_Details = GUICtrlCreateGroup("Application Details:", 8, 216, 697, 145) GUICtrlSetFont(-1, 10, 800, 0, "Calibri") GUICtrlSetColor(-1, 0x000000) $App_Name = GUICtrlCreateLabel("Application Name:", 16, 240, 105, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Input = GUICtrlCreateInput("Application Name...", 16, 264, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Lab = GUICtrlCreateLabel("Application Location:", 176, 240, 121, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad1 = GUICtrlCreateRadio("Install Locally", 176, 256, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad2 = GUICtrlCreateRadio("App-V", 176, 272, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Loc_Rad3 = GUICtrlCreateRadio("Citrix", 176, 288, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver = GUICtrlCreateLabel("Application Version:", 16, 296, 116, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $App_Ver_Input = GUICtrlCreateInput("Version...", 16, 320, 145, 23) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ;################################## ; GUI - Addons ;################################## ;GUICtrlSetOnEvent($Save, "#Save_Function_When_Have_One#") ;################################## ; Exporting Script ;################################## ---- Regards Nathan Link to comment Share on other sites More sharing options...
0xdefea7 Posted August 13, 2013 Share Posted August 13, 2013 (edited) Here is a hint with a change to your main loop and a bit more code added to the bottom. Replace your main loop with this code and press the button. I bet you can figure out how to put what I posted above and this hint together to get things rolling: While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ; This tells the GUI that your save button was pressed Case $Save SomeFunction() EndSwitch WEnd Func SomeFunction() Local $sName = GUICtrlRead($Field_Name) ConsoleWrite("Name: " & $sName & @CRLF) EndFunc Edited August 13, 2013 by 0xdefea7 Link to comment Share on other sites More sharing options...
6Maverick6 Posted August 13, 2013 Author Share Posted August 13, 2013 (edited) Thank you 0xdefea7, That is neat I will play around with this some more so if I can build on it. Doesn't really work with Radio Buttons but I might just remove them anyway. Next step is instead of console to an sorta file to a network share. Edited August 13, 2013 by 6Maverick6 ---- Regards Nathan 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