Jump to content
Sign in to follow this  
javip

is there a better way than CASE select for Combo selection?

Recommended Posts

so my script was made to load drivers based on a selection from a combo box. i've created a VERY robust system to load drivers when imaging with wds or ghost using a winPE wim. WDS does not work correctly with injected drivers. so comes into play my script/program that loads from a winPE wim after wds loads. anyone knows WDS is pretty powerful but it does not always have proper drivers once the winPE loads. so my program loads drivers into winPE based on the model / device. so if we get a new model of laptop or desktop and we want to save up that image to wds we find 32bit drivers and we load them into my program.

wds then in turn loads my winPE with my program set to autolaunch and presenting all these options. if winPE contained a generic driver then all is good. if not then we go through my list and usually one of the drivers does work but in case it doesn't we add to my list.

that's just the pre-amble incase anyone asks what i'm doing.

reminder that this has worked flawlessly for the better part of a year. but now with more devices it's getting cumbersome to manually edit my code, then compile, then mount edit and recompile the winPE wim and inject my autoit program into it.

takes a maximum of 5 minutes but when you're constantly testing it gets VERY bad.

 

here's a snippet of the array for the combobox.

Local $aList[300][2] = [["___________", "___________"], _
        ["ASUS", "ASUS"], _
        ["HP Probook 4430s", "HP Probook 4430s"], _
        ["Lenovo S10-3", "Lenovo S10-3"], _
        ["Lenovo x200/x230", "Lenovo x200/x230"], _

so this populates a combo box that lists these entries.

i use a case select to determine which box was selected. very manual editing when i need to add another device.

Func selection()

    $sSel = GUICtrlRead($cb_platform)
    $iIndex = _ArraySearch($aList, $sSel)
    Select
        Case $iIndex = 1 ;~ ASUS
            $driver = (@scriptdir & "\drivers\hp32\Netrtl32.inf")
            $nothing = $option

        Case $iIndex = 2 ;~ HP Probook 4430s
            $driver = (@scriptdir & "\drivers\hp4430\hp86win7.inf")
            $nothing = $option

        Case $iIndex = 3 ;~ Lenovo S10-3
            $driver = (@scriptdir & "\drivers\lenovos103\Netrtl32.inf")
            $nothing = $option

EndFunc

this is the part of the script which i'm trying to revamp. right now my script works very awesome for what we're doing. however i want it more streamlined.

as you can see once a combobox selection is selected, then it goes to that CASE and populates those variables then it kicks down to a function that i have that continues either ghost or wds depending on a selected radio box.

this is what i have now for the array for the combobox.

$drivers_folder=_FileListToArray(@scriptdir & "\drivers\","*",2)
$cb_platform = GUICtrlCreateCombo("",10,40,600,120,-1,-1)

For $i=1 To Ubound($drivers_folder)-1
    GUICtrlSetData($cb_platform,$drivers_folder[$i])
Next

this populates the combox based on the folder i have with each individual device. instead of creating a long winded array.

the problem i have now is i don't know how to make it load the driver within that folder without a case select.

i was thinking maybe something that got the name of the folder selected, then appended a "*.inf" at the end to load. but i'm totally in the dark of how to do this.

if you'd like me to post all my code to help, please let me know.

 

Share this post


Link to post
Share on other sites

Hi,

What about this kind of array?

Local $aList[300][3] = _
        ["ASUS", "ASUS", "hp32\Netrtl32.inf"], _
        ["HP Probook 4430s", "HP Probook 4430s", "hp4430\hp86win7.inf"], _
        ["Lenovo S10-3", "Lenovo S10-3", "lenovos103\Netrtl32.inf"]]

...
$driver = @ScriptDir & "\drivers\" & $aList[$iIndex][2]
Edit: Added indents.

Br, FireFox.

Edited by FireFox

 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

well the thing is i don't want to use that kind of array. manual editing. the way i want to do it is the new way where it pulls the directory listing. so to add a new driver to my program all i need to do is drop the new device folder into the drivers folder. then when the program is launched the new folder is there in the combobox.

each driver folder is independent and containts only one .inf for that device. so using a *.inf wildcard to load it wouldn't hurt anything.

Edited by pixeldotz

Share this post


Link to post
Share on other sites

If you don't want to have an array, these informations have to be stored somewhere. Maybe in an ini in each driver's folder or in the inf files.

Br, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

How about:

#include <GUIConstantsEx.au3>
#include <array.au3>
$sDir = @scriptdir & "\driver"

$aFolders = _FileListToArray($sDir,"*",2)
_ArrayDelete($aFolders,0)
$string = _ArrayToString($aFolders)
Local $msg
GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered

$combo = GUICtrlCreateCombo("", 10, 10) ; create first item
GUICtrlSetData(-1,  $string) ; add other item snd set a new default

GUISetState()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    If $msg = $combo Then
        $Folder = GUICtrlRead($combo)
        $sINFFolder = $sDir & "\" & $Folder
        $aTemp = _FileListToArray( $sINFFolder, "*.inf",1)
        If UBound($aTemp)=2 Then
            ; Get the driver
            ConsoleWrite("your driver=[" & $sINFFolder & "\" & $aTemp[1] & "]" & @CRLF)
        Else
            ConsoleWrite("no driver, or multiple drivers, in=[" & $sINFFolder & "\" & "]" & @CRLF)
        EndIf
        $aTemp = ""
    EndIf

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.

Share this post


Link to post
Share on other sites

that would be fine too since it would require editing only one external file instead of adding everything and recompiling. this would also keep everything nice and in alphabetical order.

how would i go about doing that? i've never done a split or loaded from an inf file.

Share this post


Link to post
Share on other sites

Take a look at the Ini* functions, it's really simple :)


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

i got it to read using this little code.

$cbox = IniReadSection("device.ini","Config")

For $i = 1 To $cbox[0][0]
        GUICtrlSetData($cb_platform,$cbox[$i][1])
    Next
EndIf

this populates the combobox beautifully. now i'm stuck on the case part. i can do another IniReadSection into another array but how would that work to call my functions? or rather how would that work at all. i'm stumped.

Share this post


Link to post
Share on other sites

You can populate an array according to your ini file :

[drivers]
name1=ASUS
displayname1=ASUS
path1=hp32\Netrtl32.inf

name2=HP Probook 4430s
displayname2=HP Probook 4430s
path2=hp4430\hp86win7.inf
There is for sure a better structure way for the ini, but the idea is here.

Br, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

If you had a section ([section]) for each driver folder, then you could key off the combobox selection to drive the INI reading as well.


IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.

Share this post


Link to post
Share on other sites

that displays the name and the path in the 'path' thing.

what i was thinking of was something like this.

[device]

name1=ASUS
name2=HP Probook 4430s

[drivers]

path1=(@scriptdir & "AsusNetrtl32.inf")

path2=(@scriptdir & "hp4430hp86win7.inf)

so when i select ASUS i want it to also select path1 and if i select HP i want it to select path2 etc.

then put that as a variable in

            $driver = WHATEVER WAS SELECTED
            $nothing = $option

im totally stumped on this second part.

Share this post


Link to post
Share on other sites

less logic if it looked like this...loop through IniReadSectionNames:

[Case1]

name=ASUS
path=(@scriptdir & "AsusNetrtl32.inf")

 

[Case2]

name=HP Probook 4430s

path=(@scriptdir & "hp4430hp86win7.inf)

Edited by jdelaney

IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.

Share this post


Link to post
Share on other sites

try this...not doing any action, just populating data, for now:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <array.au3>
$sDir = @scriptdir & "\driver"

$aFolders = _FileListToArray($sDir,"*",2)
_ArrayDelete($aFolders,0)
$string = _ArrayToString($aFolders)
Local $msg
$gui = GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered

$combo = GUICtrlCreateCombo("", 10, 10) ; create first item
GUICtrlSetData(-1,  $string) ; add other item snd set a new default

$aPos = WinGetPos($gui)

Global $button = GUICtrlCreateButton("Start",10,$aPos[3]-80, 50, 40,$BS_DEFPUSHBUTTON)
GUICtrlSetState($button,$GUI_DISABLE)
GUISetState()
$aDrivers=""
$driver = ""
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $combo
            $Folder = GUICtrlRead($combo)
            $sINFFolder = $sDir & "\" & $Folder
            $aTemp = _FileListToArray( $sINFFolder, "*.inf",1)
            If UBound($aTemp)=2 Then
                ; Get the driver
                ConsoleWrite("your driver=[" & $sINFFolder & "\" & $aTemp[1] & "]" & @CRLF)
                $aDrivers = CreateDriverControls($aDrivers, $sINFFolder & "\" & $aTemp[1])
            Else
                ConsoleWrite("no driver, or multiple drivers, in=[" & $sINFFolder & "\" & "]" & @CRLF)
            EndIf
        Case $msg = $button
            ConsoleWrite("Do something with driver=[" & $driver & "]." & @CRLF)

        Case _ArraySearch($aDrivers,$msg,0,0,0,0,1,0)>0
            $driver=$aDrivers[_ArraySearch($aDrivers,$msg,0,0,0,0,1,0)][1]
            ConsoleWrite("changed radio selection to=[" & $driver & "]." & @CRLF)
            If Not BitAND(GUICtrlGetState($button),$GUI_ENABLE) Then GUICtrlSetState($button,$GUI_ENABLE)
    EndSelect

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func CreateDriverControls ($aDrivers, $sINIFile)
    If BitAND(GUICtrlGetState($button),$GUI_ENABLE) Then GUICtrlSetState($button,$GUI_DISABLE)
    For $i = 0 To UBound($aDrivers) - 1
        For $j = 0 To UBound($aDrivers,2) - 1
            GUICtrlDelete($aDrivers[$i][$j])
        Next
    Next
    $aTemp              = IniReadSection($sINIFile, "device")
    $aTemp2             = IniReadSection($sINIFile, "drivers")
    $iStart             = 40
    $iControlHeight     = 20
    $iControlSpacing    = 10
    For $i = 1 To UBound($aTemp)-1
        $aTemp[$i][0] = GUICtrlCreateRadio($aTemp[$i][1], $iControlSpacing,$iStart+($iControlSpacing*$i)+($iControlHeight*$i), 100 )
        $aTemp2[$i][1] = GUICtrlCreateEdit($aTemp2[$i][1], 100+$iControlSpacing,$iStart+($iControlSpacing*$i)+($iControlHeight*$i), 250 )
    Next
    Return $aTemp
EndFunc
Edited by jdelaney

IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.

Share this post


Link to post
Share on other sites

 

try this...not doing any action, just populating data, for now:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <array.au3>
$sDir = @scriptdir & "\driver"

$aFolders = _FileListToArray($sDir,"*",2)
_ArrayDelete($aFolders,0)
$string = _ArrayToString($aFolders)
Local $msg
$gui = GUICreate("My GUI combo") ; will create a dialog box that when displayed is centered

$combo = GUICtrlCreateCombo("", 10, 10) ; create first item
GUICtrlSetData(-1,  $string) ; add other item snd set a new default

$aPos = WinGetPos($gui)

Global $button = GUICtrlCreateButton("Start",10,$aPos[3]-80, 50, 40,$BS_DEFPUSHBUTTON)
GUICtrlSetState($button,$GUI_DISABLE)
GUISetState()
$aDrivers=""
$driver = ""
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $combo
            $Folder = GUICtrlRead($combo)
            $sINFFolder = $sDir & "\" & $Folder
            $aTemp = _FileListToArray( $sINFFolder, "*.inf",1)
            If UBound($aTemp)=2 Then
                ; Get the driver
                ConsoleWrite("your driver=[" & $sINFFolder & "\" & $aTemp[1] & "]" & @CRLF)
                $aDrivers = CreateDriverControls($aDrivers, $sINFFolder & "\" & $aTemp[1])
            Else
                ConsoleWrite("no driver, or multiple drivers, in=[" & $sINFFolder & "\" & "]" & @CRLF)
            EndIf
        Case $msg = $button
            ConsoleWrite("Do something with driver=[" & $driver & "]." & @CRLF)

        Case _ArraySearch($aDrivers,$msg,0,0,0,0,1,0)>0
            $driver=$aDrivers[_ArraySearch($aDrivers,$msg,0,0,0,0,1,0)][1]
            ConsoleWrite("changed radio selection to=[" & $driver & "]." & @CRLF)
            If Not BitAND(GUICtrlGetState($button),$GUI_ENABLE) Then GUICtrlSetState($button,$GUI_ENABLE)
    EndSelect

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func CreateDriverControls ($aDrivers, $sINIFile)
    If BitAND(GUICtrlGetState($button),$GUI_ENABLE) Then GUICtrlSetState($button,$GUI_DISABLE)
    For $i = 0 To UBound($aDrivers) - 1
        For $j = 0 To UBound($aDrivers,2) - 1
            GUICtrlDelete($aDrivers[$i][$j])
        Next
    Next
    $aTemp              = IniReadSection($sINIFile, "device")
    $aTemp2             = IniReadSection($sINIFile, "drivers")
    $iStart             = 40
    $iControlHeight     = 20
    $iControlSpacing    = 10
    For $i = 1 To UBound($aTemp)-1
        $aTemp[$i][0] = GUICtrlCreateRadio($aTemp[$i][1], $iControlSpacing,$iStart+($iControlSpacing*$i)+($iControlHeight*$i), 100 )
        $aTemp2[$i][1] = GUICtrlCreateEdit($aTemp2[$i][1], 100+$iControlSpacing,$iStart+($iControlSpacing*$i)+($iControlHeight*$i), 250 )
    Next
    Return $aTemp
EndFunc

that's way above my head : . i am making progress though. i'm using an ini formatted as

[devices]
ASUS=\\asus.inf
HP=\\hp.inf

0 is the name and 1 is the path, after a selection is made i want "1" to be set into a variable. that is the last problem i'm having. i think i've been looking at the code too long.

 

here's the code that population of combo box.

$cbox = IniReadSection("device.ini","devices")

If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $cbox[0][0]
        GUICtrlSetData($cb_platform,$cbox[$i][0])
    Next
End

and here's the function.

Func selection()

    $sSel = GUICtrlRead($cb_platform)
    $iIndex = _ArraySearch($cbox, $ssel)
    

            $driver = (@scriptdir & $iIndex)
            MsgBox(1, "",$driver)
        ;    $nothing = $option

EndFunc

using  this function all i get it does is display the "case" of the select item so for install it shows c:asuscase when the first option is selected and c:hpcase1 when the second is selected.

i know i'm close i'm just looking at it to hard i think.

Share this post


Link to post
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
Sign in to follow this  

  • Similar Content

    • By matwachich
      Hi AutoIters!
      Here is my new UDF about GUIs: it's an enhanced mixture of Advanced InputBox (deprecated) and KODA Parser (deprecated), with additional functions.
      What you can do with it:
      Parse KODA files and directly create GUIs (_GUIUtils_CreateFromKODA) Parse a simple JSON form definition to simply create advanced InputBoxes with any amount/type of input controls (_GUIUtils_CreateFromJSON) Created GUIs are returned as Scripting.Dictionary objects, and you have helper functions to access GUIs controls by their names (_GUIUtils_HWnd, _GUIUtils_CtrlID, _GUIUtils_HCtrl ...) A function that can make a GUI created from KODA/JSON (defined by it's $oForm object) and make it a modal InputDialogBox (just like InputBox, but returns all entered data as Scripting.Dictionary object) Functions are documented, and there are some examples.
      Consider this UDF as beta, but since I'm currently using it in a small commercial project, it should become production ready in near future.
      To always get the latest code version, get it from Github (more up to date than this topic).
      Update 04/02/2020:
      New simple application example Fixed focused control handling in _GUIUtils_InputDialog Reset input values before returning from _GUIUtils_InputDialog Fixed CloseOnEsc in _GUIUtils_InputDialog Fixed Input not reset Fixed all ListBox items are selected Project now on GitHub https://github.com/matwachich/autoit-guiutils/
      Update 05/02/2020:
      Support for nodate for Date and Time input controls (pass null value) New handling of focused control _GUIUtils_InputDialog: Now, you can specify the focused control in $oInitialData by setting "controlName:focus" = True Updated documentation of _GUIUtils_InputDialog Update 07/02/2020:
      Bug corrected when setting Data input control Added: abillity to read a single input control New functions (_GUIUtils_GetInputs, _GUIUtils_WriteInputs), documentation completion. Readme file and screenshots on Github Page  
      GUIUtils.zip
    • By Ho3ein
      Hi, i have a source code of "Danny35d" and i have 2 main question that are:
       How to extract this function's results (Datas are as Array) to combo-box without set number of datas?  When i type 1, 2 in _SystemUsers($AccountType = 0) to get only Local or Domain users, it just give me both of them, it's old problem of this function, please share us debugged code :)❤ #include <Array.au3> $Users = _ArrayToString(_SystemUsers(), "|", 1) ConsoleWrite($Users & @CRLF) #cs =============================================================================== Function: _SystemUsers($AccountType = 0) Description: Return an array with the local or domain username Parameter(s): $AccountType: Local, domain or both username 0 = Local and Domain usernames 1 = Local usernames only 2 = Domain usernames only Returns: An array with the list of usernames - Succeeded @error 1 - Didn't query any username @error 2 - Failed to create Win32_SystemUsers object @error 3 - Invalid $AccountType Author(s): Danny35d #ce =============================================================================== Func _SystemUsers($AccountType = 0) Local $aSystemUsers Local $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20 Local $colItems = "", $strComputer = "localhost" If Not StringRegExp($AccountType, '[012]') Then Return SetError(3, 3, '') $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemUsers", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems $Output = StringSplit($objItem.PartComponent, ',') If IsArray($Output) Then $Temp = StringReplace(StringTrimLeft($Output[2], StringInStr($Output[2], '=', 0, -1)), '"', '') If $AccountType = 0 Or ($AccountType = 1 And @ComputerName = $Temp) Then $aSystemUsers &= StringReplace(StringTrimLeft($Output[1], StringInStr($Output[1], '=', 0, -1)), '"', '') & '|' ElseIf $AccountType = 2 And @ComputerName <> $Temp Then $aSystemUsers &= StringReplace(StringTrimLeft($Output[1], StringInStr($Output[1], '=', 0, -1)), '"', '') & '|' EndIf EndIf Next $aSystemUsers = StringTrimRight($aSystemUsers, 1) If $aSystemUsers = '' Then Return(SetError(1, 1, $aSystemUsers)) Return(SetError(0, 0, StringSplit($aSystemUsers, '|'))) Else $aSystemUsers = '' Return(SetError(2, 2, $aSystemUsers)) EndIf EndFunc ;==>_SystemUsers Thanks to your best Team.
    • By antonioj84
      I am not able to use the $GUI_READ_EXTENDED with the  Metro UDF,  any work around ?
      Local $aPos[2] = [$Radio1, $Radio2] For $Radio In $aPos If GUICtrlRead($Radio) = $GUI_UNCHECKED Then ContinueLoop IniWrite($sGUIstate_IniFile, "Data", "POS", GUICtrlRead($Radio, $GUI_READ_EXTENDED)) ;; return the text of the menu item ExitLoop Next  
    • By _Vlad
      Hello forum,
      I want to create a program with multiple menus and many elements inside. The problem is my way of doing this and below I have an example of how I do these menus.
      I know it's a bad way of doing them as using this method for more elements and menus cause big flickering.
       
      Can someone please help me with some tips of optimizing this or tell me another way of creating that menus with many elements without cause flickering? From a long time ago I still try to solve this but without any results, just small improvements.
      Many thanks for everyone.
      #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $MENU_HOVER = '' Global $MENU_SELECTED = '' Global $COLOR_STANDARD = 0x94A5E9 Global $COLOR_HOVER = 0x8292d1 Global $COLOR_SELECTED = 0x7584bf $MENU = GUICreate("Menu", 615, 437, -1, -1, -1, -1, 0) GUISetFont(10, 400, 0, "Arial") $MENU_1 = GUICtrlCreateLabel("Menu 1", 8, 24, 106, 28, BitOR($SS_CENTER, $SS_CENTERIMAGE)) $MENU_2 = GUICtrlCreateLabel("Menu 2", 8, 56, 106, 28, BitOR($SS_CENTER, $SS_CENTERIMAGE)) $MENU_3 = GUICtrlCreateLabel("Menu 3", 8, 88, 106, 28, BitOR($SS_CENTER, $SS_CENTERIMAGE)) ;MENU 1 ELEMENTS $MENU_1_ELEMENT_1 = GUICtrlCreateButton("Menu1 Button", 128, 24, 147, 25) ;MENU 2 ELEMENTS $MENU_2_ELEMENT_1 = GUICtrlCreateButton("Menu2 Button", 128, 24, 147, 25) $MENU_2_ELEMENT_2 = GUICtrlCreateLabel("Another element", 128, 64, 99, 20) _Design() _Hide_All() GUISetState(@SW_SHOW, $MENU) While 1 $Cursor = GUIGetCursorInfo($MENU) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MENU_1 _Previous_Selected_Cancel() $MENU_SELECTED = 'Menu1' GUICtrlSetBkColor($MENU_1, $COLOR_SELECTED) _Show('Menu1') Case $MENU_2 _Previous_Selected_Cancel() $MENU_SELECTED = 'Menu2' GUICtrlSetBkColor($MENU_2, $COLOR_SELECTED) _Show('Menu2') Case $MENU_3 _Previous_Selected_Cancel() $MENU_SELECTED = 'Menu3' GUICtrlSetBkColor($MENU_3, $COLOR_SELECTED) _Show('Menu3') EndSwitch If $Cursor[4] = $MENU_1 Then If $MENU_HOVER <> 'Menu1' And $MENU_SELECTED <> 'Menu1' Then _Previous_Hover_Cancel() GUICtrlSetBkColor($MENU_1, $COLOR_HOVER) $MENU_HOVER = 'Menu1' EndIf ElseIf $Cursor[4] = $MENU_2 Then If $MENU_HOVER <> 'Menu2' And $MENU_SELECTED <> 'Menu2' Then _Previous_Hover_Cancel() GUICtrlSetBkColor($MENU_2, $COLOR_HOVER) $MENU_HOVER = 'Menu2' EndIf ElseIf $Cursor[4] = $MENU_3 Then If $MENU_HOVER <> 'Menu3' And $MENU_SELECTED <> 'Menu3' Then _Previous_Hover_Cancel() GUICtrlSetBkColor($MENU_3, $COLOR_HOVER) $MENU_HOVER = 'Menu3' EndIf Else _Previous_Hover_Cancel() $MENU_HOVER = 'Idle' EndIf WEnd Func _Design() GUICtrlSetColor($MENU_1, 0xFFFFFF) GUICtrlSetBkColor($MENU_1, $COLOR_STANDARD) GUICtrlSetCursor($MENU_1, 0) GUICtrlSetColor($MENU_2, 0xFFFFFF) GUICtrlSetBkColor($MENU_2, $COLOR_STANDARD) GUICtrlSetCursor($MENU_2, 0) GUICtrlSetColor($MENU_3, 0xFFFFFF) GUICtrlSetBkColor($MENU_3, $COLOR_STANDARD) GUICtrlSetCursor($MENU_3, 0) EndFunc ;==>_Design Func _Hide_All() GUICtrlSetState($MENU_1_ELEMENT_1, $GUI_HIDE) GUICtrlSetState($MENU_2_ELEMENT_1, $GUI_HIDE) GUICtrlSetState($MENU_2_ELEMENT_2, $GUI_HIDE) EndFunc ;==>_Hide_All Func _Show($MENU_SHOW) _Hide_All() If $MENU_SHOW = 'Menu1' Then GUICtrlSetState($MENU_1_ELEMENT_1, $GUI_SHOW) ElseIf $MENU_SHOW = 'Menu2' Then GUICtrlSetState($MENU_2_ELEMENT_1, $GUI_SHOW) GUICtrlSetState($MENU_2_ELEMENT_2, $GUI_SHOW) ElseIf $MENU_SHOW = 'Menu3' Then EndIf EndFunc ;==>_Show Func _Previous_Hover_Cancel() If $MENU_HOVER = 'Menu1' Then If $MENU_SELECTED <> 'Menu1' Then GUICtrlSetBkColor($MENU_1, $COLOR_STANDARD) ElseIf $MENU_HOVER = 'Menu2' Then If $MENU_SELECTED <> 'Menu2' Then GUICtrlSetBkColor($MENU_2, $COLOR_STANDARD) ElseIf $MENU_HOVER = 'Menu3' Then If $MENU_SELECTED <> 'Menu3' Then GUICtrlSetBkColor($MENU_3, $COLOR_STANDARD) EndIf EndFunc ;==>_Previous_Hover_Cancel Func _Previous_Selected_Cancel() If $MENU_SELECTED = 'Menu1' Then GUICtrlSetBkColor($MENU_1, $COLOR_STANDARD) If $MENU_SELECTED = 'Menu2' Then GUICtrlSetBkColor($MENU_2, $COLOR_STANDARD) If $MENU_SELECTED = 'Menu3' Then GUICtrlSetBkColor($MENU_3, $COLOR_STANDARD) EndFunc ;==>_Previous_Selected_Cancel  
    • By Tony007
      Hi,
      is it possible to export only the area "$idOutput" with the TEXT as a PNG?
      Thanks
      #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> Example() Func Example() Local $hGUI = GUICreate("Test", 700, 700, -1, -1) Local $input1 = GUICtrlCreateInput("", 10, 10, 150, 20) Local $idButtonStart = GUICtrlCreateButton("Start", 200, 10, 50, 30) Local $idButtonClear = GUICtrlCreateButton("Clear", 260, 10, 50, 30) Local $idButtonExport = GUICtrlCreateButton("Export", 320, 10, 50, 30) Local $idOutput = GUICtrlCreateLabel("TEXT", 10, 50, 500, 500, BitOR($BS_PUSHLIKE, $SS_CENTER)) GUICtrlSetFont($idOutput, 45, 800, "", "Impact") GUISetState(@SW_SHOW, $hGUI) ; Run the GUI until the dialog is closed While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $idButtonStart $ContentInput1 = GUICtrlRead($input1) GUICtrlSetData($idOutput, $ContentInput1) Case $idButtonClear GUICtrlSetData($input1, "") GUICtrlSetData($idOutput, "") Case $idButtonExport EndSwitch WEnd GUIDelete($hGUI) Exit EndFunc ;==>Example  
×
×
  • Create New...