Jump to content

Data Export

6Maverick6
 Share

Recommended Posts

6Maverick6 Seeker

6Maverick6

Posted
Posted

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
0xdefea7 Prodigy

0xdefea7

Posted
Posted (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 by 0xdefea7
Link to comment
Share on other sites
BrewManNH Universalist

BrewManNH

Posted
Posted

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 Gude
How 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
6Maverick6 Seeker

6Maverick6

Posted
  • Author
Posted (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.

#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 by 6Maverick6

----

Regards Nathan

Link to comment
Share on other sites
kylomas Universalist

kylomas

Posted
Posted

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

#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
6Maverick6 Seeker

6Maverick6

Posted
  • Author
Posted

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

#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:

#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
0xdefea7 Prodigy

0xdefea7

Posted
Posted (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 by 0xdefea7
Link to comment
Share on other sites
6Maverick6 Seeker

6Maverick6

Posted
  • Author
Posted (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 by 6Maverick6

----

Regards Nathan

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...