Dynamische Varibale -- aus Funktion

KriZza

Moin zusammen,

ich hoffe ihr könnt mir helfen. Wie ist es möglich aus einer Funktion eine dynamische Variable zu bekommen. Im folgenden Beispiel möchte ich gerne die Inhalte der Inputboxen ausgeben lassen?

AutoIt

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <GuiConstants.au3>


Global $FONT = "Segoe UI"


Local $hGUI = GUICreate("Example")
GUISetBkColor(0xFFFFFF,$hGUI)




_GUICtrlTC_Station_Create(5, 5, "Rechner 01",$hGUI,$FONT)


_GUICtrlTC_Station_Create(5, 205, "Rechner 02",$hGUI,$FONT)


GUISetState(@SW_SHOW, $hGUI)








While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop


        EndSwitch
    WEnd


Func _GUICtrlTC_Station_Create($iX, $iY,$StationName,$hWnd,$Fontname)
	$GRREF = GUICtrlCreateGroup("", $iX, $iY, 306, 110)
	DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($GRREF), "wstr", 0, "wstr", 0)
	$REF = GUICtrlCreateCheckbox($StationName, $iX+5, $iY+82, 85, 20)
	GUICheckBoxSetColor($REF, 0x3C3C3C, 0xFFFFFF, 9)
	$IPADDREF = _GUICtrlIpAddress_Create($hWnd, $iX+90, $iY+15, 160, 25)
	_GUICtrlIpAddress_SetFont($IPADDREF, $Fontname, 12, 400)
	$INPUTUSERNAMEREF = GUICtrlCreateInput("", $iX+90, $iY+45, 160, 25)
	GUICtrlSetFont(-1, 10, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	$INPUTPASSWORDREF = GUICtrlCreateInput("", $iX+90, $iY+75, 160, 25, $ES_PASSWORD)
	GUICtrlSetFont(-1, 9, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
EndFunc




Func GUICheckBoxSetColor(ByRef $CtrlID, $iColor, $iBkColor = "0xF1EDED", $iSize = "10")
	; SEuBo
	$CtrlHWnd = $CtrlID
	If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
	$aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
	$hOldG = GUISwitch($aParent[0])
	$aCPos = ControlGetPos($aParent[0], "", $CtrlID)
	$sOldT = GUICtrlRead($CtrlID, 1)
	GUICtrlDelete($CtrlID)
	DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
	$CtrlID = GUICtrlCreateCheckbox($sOldT, $aCPos[0], $aCPos[1], $aCPos[2], $aCPos[3])
	GUICtrlSetColor(-1, $iColor)
	GUICtrlSetBkColor(-1, $iBkColor)
	GUICtrlSetFont(-1, $iSize, 400, 0, $FONT)
	DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
	GUISwitch($hOldG)
EndFunc   ;==>GUICheckBoxSetColor

Alles anzeigen

**alpines**

So wie ich das sehe returnt die Funktion nichts wichtiges also speicher doch einfach das Handle vom erstellen Input (oder ein Array mit allen Handles) ab und lass es am Ende der Funktion returnen.
Anschließend kannst du mit GUICtrlSetData() den Inhalt verändern.

KriZza

ja, noch wird nichts wichtiges "returned", das kommt aber noch. das mit dem Handle ist eine gute idee.

Aber wie weise ich die wieder eindeutig der Funktion zu? Also eine Funktion und momentan zwei Stationen die erstellt werden. Ich hab gerade einfach ein Knoten im Kopf

**BugFix**

Du kannst Variablen auch vorher erstellen und als Referenz übergeben, sodass diese innerhalb der Funktion befüllt werden. Geht mit einzelnen Werten oder auch mit Array-Variablen.

AutoIt

Local $var1, $var2
ConsoleWrite('$var1: ' & $var1 & @TAB & '$var2: ' & $var2 & @CRLF)


_Some($var1, $var2)
ConsoleWrite('$var1: ' & $var1 & @TAB & '$var2: ' & $var2 & @CRLF)


Func _Some(ByRef $v1, ByRef $v2)
	$v1 = @MIN
	$v2 = @SEC
EndFunc

Alles anzeigen

KriZza

Danke

hier meine Lösung:

AutoIt

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <GuiConstants.au3>
#include <Array.au3>




Global $INPUTUSERNAMEREF


Global $FONT = "Segoe UI"


Local $hGUI = GUICreate("Example")
GUISetBkColor(0xFFFFFF,$hGUI)




$1 = _GUICtrlTC_Station_Create(5, 5, "Rechner 01",$hGUI,$FONT)


$2 = _GUICtrlTC_Station_Create(5, 205, "Rechner 02",$hGUI,$FONT)


$return1 = GUICtrlCreateButton("return 1",5,370)
$return2 = GUICtrlCreateButton("return 2",105,370)


GUISetState(@SW_SHOW, $hGUI)








While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
			 Case $return1
                _ArrayDisplay($1)
				MsgBox(0,"",_GUICtrlIpAddress_Get($1[0]))
				MsgBox(0,"",GUICtrlRead($1[1]))
			 Case $return2
                _ArrayDisplay($2)
        EndSwitch
    WEnd






Func _GUICtrlTC_Station_Create($iX, $iY,$StationName,$hWnd,$Fontname)
	Dim $array[5]
	$STATIONGROUP= GUICtrlCreateGroup("", $iX, $iY, 356, 120, $BS_FLAT)
	DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($STATIONGROUP), "wstr", 0, "wstr", 0)
	$STATIONCHK = GUICtrlCreateCheckbox($StationName, $iX+5, $iY+92, 90, 20)
	GUICheckBoxSetColor($STATIONCHK, 0x3C3C3C, 0xFFFFFF, 11)
	$array[0] =GUICtrlCreateLabel("(Name)",$iX+158,$iY+10,190,20)
	GUICtrlSetFont(-1, 9, 400, 2, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	$array[1] =GUICtrlCreateLabel("(Firma)",$iX+158,$iY+25,190,20)
	GUICtrlSetFont(-1, 9, 400, 2, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	GUICtrlCreateLabel("IP-Adresse:",$iX+115,$iY+45,70,20)
	GUICtrlSetFont(-1, 9, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	$array[2] = _GUICtrlIpAddress_Create($hWnd, $iX+185, $iY+43, 160, 20)
	_GUICtrlIpAddress_SetFont($array[0], $Fontname, 12, 400)
	GUICtrlCreateLabel("Benutzer:",$iX+115,$iY+70,90,20)
	GUICtrlSetFont(-1, 9, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	$array[3] = GUICtrlCreateInput("", $iX+185, $iY+68, 160, 20)
	GUICtrlSetFont(-1, 10, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	GUICtrlCreateLabel("Passwort:",$iX+115,$iY+95,70,20)
	GUICtrlSetFont(-1, 9, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)
	$array[4] = GUICtrlCreateInput("", $iX+185, $iY+92, 160, 20, $ES_PASSWORD)
	GUICtrlSetFont(-1, 9, 400, 0, $FONT)
	GUICtrlSetColor(-1, 0x3C3C3C)


	Return($array)
EndFunc






Func GUICheckBoxSetColor(ByRef $CtrlID, $iColor, $iBkColor = "0xF1EDED", $iSize = "10")
	; SEuBo
	$CtrlHWnd = $CtrlID
	If Not IsHWnd($CtrlHWnd) Then $CtrlHWnd = GUICtrlGetHandle($CtrlID)
	$aParent = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $CtrlHWnd)
	$hOldG = GUISwitch($aParent[0])
	$aCPos = ControlGetPos($aParent[0], "", $CtrlID)
	$sOldT = GUICtrlRead($CtrlID, 1)
	GUICtrlDelete($CtrlID)
	DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
	$CtrlID = GUICtrlCreateCheckbox($sOldT, $aCPos[0], $aCPos[1], $aCPos[2], $aCPos[3])
	GUICtrlSetColor(-1, $iColor)
	GUICtrlSetBkColor(-1, $iBkColor)
	GUICtrlSetFont(-1, $iSize, 400, 0, $FONT)
	DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7)
	GUISwitch($hOldG)
EndFunc   ;==>GUICheckBoxSetColor

Alles anzeigen