Dynamisch erstellte Controls und While GuiGetMsg()

Lottich

Hallo

Im Zuge eines Programmupdates bin ich gezwungen, das bisher verwendete GUI abzuändern.

Es handelt sich nun um 2 GUIs (1 Parent, 1 Child) und das Child-GUI ist jetzt scrollbar, weil darin eine unbekannte Anzahl

an Buttons erstellt werden. ... das ist so nicht ganz richtig. ich bekomme die nötige Anzahl aus einer INI. Je nachdem welche

Sektion gelesen wird entscheidet dann die Anzahl an Keys die Anzahl der zu erstellenden Buttons.

Es können also 3 oder auch 78 sein...

Die Darstellung (Scrollbalken sind nur dann sichtbar, wenn es wirklich nötig ist) und das

Scrollen funktionieren nun mittlerweile prima.

Nun zur aktuellen Problematik:

Die Buttons, die ich im Child-GUI erstelle baue ich via For-Next-Schleife in einem Array

$hBtnRechts[$i] = GUICtrlCreateButton(bla bla)

Ich tue mich grad extrem schwer damit, die While WEnd Schleife aufzubauen, sodass ich die dynamischen Buttons ansprechen kann.

Kann mir da mal jemand unter die Arme greifen??

Wenn ihr das Script testet und auf einen der Buttons aus der rechten Seite klickt, sollte eine msgbox aufploppen.

Ich kriegs nicht hin...

_________________________

Nachtrag::

Das lauffähige Beispiel stürzt aktuell ab, wenn ein anderer Button als "Schicht A" geklickt wird! Das liegt am Versuch, die dyn. Buttons anzusprechen.

Codezeilen 102 - 105

Nachtrag 2::

Code formatiert

GuiScroll.au3 falls ihr diese nicht habt

C

#cs http://www.autoit.de/index.php…&postID=161092#post161092
Functions:
Scrollbar_Create($hWnd, $iBar, $iMax)
Scrollbar_Scroll($hWnd, $iBar, $iPos)
Scrollbar_GetPos($hWnd, $iBar)
Scrollbar_Step($iStep, $hWnd=0, $iBar=0)
#CE http://www.autoit.de/index.php…&postID=161092#post161092

#include-once
#include <GuiScrollBars.au3>
#include <GuiconstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>

Global $SCROLL_AMOUNTS[1][3]
$SCROLL_AMOUNTS[0][0] = 1

Func Scrollbar_Create($hWnd, $iBar, $iMax)
Local $Size = WinGetClientSize($hWnd)

If $iBar = $SB_HORZ Then
$Size = $Size[0]
ElseIf $iBar = $SB_VERT Then
$Size = $Size[1]
Else
Return 0
EndIf

ReDim $SCROLL_AMOUNTS[UBound($SCROLL_AMOUNTS) + 1][3]
$SCROLL_AMOUNTS[UBound($SCROLL_AMOUNTS) - 1][0] = $hWnd
$SCROLL_AMOUNTS[UBound($SCROLL_AMOUNTS) - 1][1] = $iBar
$SCROLL_AMOUNTS[UBound($SCROLL_AMOUNTS) - 1][2] = $SCROLL_AMOUNTS[0][0]

_GUIScrollBars_EnableScrollBar($hWnd, $iBar)
_GUIScrollBars_SetScrollRange($hWnd, $iBar, 0, $iMax - 1)
_GUIScrollBars_SetScrollInfoPage($hWnd, $iBar, $Size)

GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")

Return $iMax
EndFunc   ;==>Scrollbar_Create

Func Scrollbar_GetPos($hWnd, $iBar)
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $iBar)
Return DllStructGetData($tSCROLLINFO, "nPos")
EndFunc   ;==>Scrollbar_GetPos

Func Scrollbar_Scroll($hWnd, $iBar, $iPos)
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $iBar)

$iCurrentPos = DllStructGetData($tSCROLLINFO, "nPos")
DllStructSetData($tSCROLLINFO, "nPos", $iPos)
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $iBar, $tSCROLLINFO)

If $iBar = $SB_VERT Then
$iRound = 0
For $i = 1 To UBound($SCROLL_AMOUNTS) - 1
If $SCROLL_AMOUNTS[$i][0] = $hWnd And $SCROLL_AMOUNTS[$i][1] = $SB_VERT Then
$iRound = $SCROLL_AMOUNTS[$i][2]
EndIf
Next
If Not $iRound Then Return 0
_GUIScrollBars_ScrollWindow($hWnd, 0, Round(($iCurrentPos - $iPos) / $iRound) * $iRound)
ElseIf $iBar = $SB_HORZ Then
$iRound = 0
For $i = 1 To UBound($SCROLL_AMOUNTS) - 1
If $SCROLL_AMOUNTS[$i][0] = $hWnd And $SCROLL_AMOUNTS[$i][1] = $SB_HORZ Then
$iRound = $SCROLL_AMOUNTS[$i][2]
EndIf
Next
If Not $iRound Then Return 0
_GUIScrollBars_ScrollWindow($hWnd, Round(($iCurrentPos - $iPos) / $iRound) * $iRound, 0)
Else
Return 0
EndIf
Return 1
EndFunc   ;==>Scrollbar_Scroll

Func Scrollbar_Step($iStep, $hWnd = 0, $iBar = 0)
If Not $hWnd Or Not $iBar Then
$SCROLL_AMOUNTS[0][0] = $iStep
Return 1
EndIf
$iID = 0
For $i = 1 To UBound($SCROLL_AMOUNTS) - 1
If $SCROLL_AMOUNTS[$i][0] = $hWnd And $SCROLL_AMOUNTS[$i][1] = $iBar Then
$iID = $i
ExitLoop
EndIf
Next

If Not $iID Then Return 0
$SCROLL_AMOUNTS[$iID][2] = $iStep
Return 1
EndFunc   ;==>Scrollbar_Step

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos
; Get all the vertial scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $yPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
$iRound = 0
For $i = 1 To UBound($SCROLL_AMOUNTS) - 1
If $SCROLL_AMOUNTS[$i][0] = $hWnd And $SCROLL_AMOUNTS[$i][1] = $SB_VERT Then
$iRound = $SCROLL_AMOUNTS[$i][2]
EndIf
Next
If Not $iRound Then Return $GUI_RUNDEFMSG
Switch $nScrollCode
Case $SB_TOP ; user clicked the HOME keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Min)
Case $SB_BOTTOM ; user clicked the END keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Max)
Case $SB_LINEUP ; user clicked the top arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $iRound)
Case $SB_LINEDOWN ; user clicked the bottom arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $iRound)
Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", Round($TrackPos / $iRound) * $iRound)
EndSwitch

;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yPos - $Pos)
EndIf
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL

Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos
; Get all the vertial scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $yPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
$iRound = 0
For $i = 1 To UBound($SCROLL_AMOUNTS) - 1
If $SCROLL_AMOUNTS[$i][0] = $hWnd And $SCROLL_AMOUNTS[$i][1] = $SB_HORZ Then
$iRound = $SCROLL_AMOUNTS[$i][2]
EndIf
Next
If Not $iRound Then Return $GUI_RUNDEFMSG
Switch $nScrollCode
Case $SB_TOP ; user clicked the HOME keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Min)
Case $SB_BOTTOM ; user clicked the END keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Max)
Case $SB_LINEUP ; user clicked the top arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $iRound)
Case $SB_LINEDOWN ; user clicked the bottom arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $iRound)
Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", Round($TrackPos / $iRound) * $iRound)
EndSwitch

;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, $yPos - $Pos, 0)
EndIf
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_HSCROLL

Alles anzeigen

Das lauffähige Beispiel

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=phone_icon_by_cemagraphics.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region Includes
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiScroll.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#EndRegion Includes

#Region GLOBAL VARIABLES
Global $iNr_Release = 5, _
$iNr_Update = 0, _
$iNr_Fixes = 2

Global $iAnzahl_Schicht = 10, _
$iAnzahl_Buero = 25, _
$iLinkeBreite = 150, _
$iGuiBreit = 600, _
$iGuiHoehe = 400, _
$iAbstand1 = 10, _
$iT = 52, _
$iB = 52

Global $sFile_Ini = @ScriptDir & "\Telefonliste 5.ini", _
$sFile_Export = @ScriptDir & "\Exortfile.ini", _
$sFile_Icon = @ScriptDir & "\phone_icon_by_cemagraphics.ico", _
$sVersion = $iNr_Release & "." & $iNr_Update & "." & $iNr_Fixes
$sGuiHaupt_Titel = "Telefonliste   v" & $sVersion

Global $aStrings[6] = ["  Telefonbuch für den internen Gebrauch  ", "!!! DOKUMENT NUR FÜR DIE BETRIEBSLEITUNG !!!", "Telefonnummern Mitarbeiter", "!!! Datenschutz !!!", "Passworteingabe erforderlich!", "*M10"], _
$aSectionen[7] = [6, "Büro", "Spezies", "Schicht A", "Schicht B", "Schicht C", "Fremdfirmen"]

Global $hGuiHaupt, $hGuiScroll, $hLabelHeadline, $hBtnLinks[10], $hBtnRechts[1]
#EndRegion GLOBAL VARIABLES

#Region Initialisierung VOR dem Programmstart
If Not FileExists($sFile_Ini) Then _CreateIni()
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "_Mausrad")
#EndRegion Initialisierung VOR dem Programmstart

#Region Erstelle GUI + Controls
$hGuiHaupt = GUICreate($sGuiHaupt_Titel, $iGuiBreit, $iGuiHoehe, -1, -1, Default, $WS_EX_TOOLWINDOW)
GUISetBkColor(0xA6CAF0, $hGuiHaupt)
GUISetIcon("shell32.dll", -58, $hGuiHaupt)
GUICtrlCreateLabel($aStrings[0], 90, 10, 420, 32, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 16, 800, 4, "Arial", 5)
GUICtrlCreateIcon($sFile_Icon, -1, 036, 10, 32, 32)
GUICtrlCreateIcon($sFile_Icon, -1, 530, 10, 32, 32)
GUICtrlCreateLabel("", 000, 048, 600, 002, $SS_SUNKEN) ;Raumtrenner oben quer
GUICtrlCreateLabel("", 000, 245, 150, 002, $SS_SUNKEN) ;Raumtrenner senkrecht
GUICtrlCreateLabel("", 150, 050, 002, 350, $SS_SUNKEN) ;Raumtrenner mitte quer
GUICtrlCreateLabel("", 000, 300, 600, 002, $SS_SUNKEN) ;Raumtrenner unten quer
$hLabelHeadline = GUICtrlCreateLabel("", 160, 060, 430, 30, $SS_CENTER)
GUICtrlSetFont(-1, 20, 800, 0, "Arial", 5)

$hBtnLinks[0] = 30
For $i = 1 To $aSectionen[0] ; hier werden die Sektionsbuttons erstellt ==> $hBtnLinks[0] war noch frei, dient nun als Abstandsmultiplikator
$hBtnLinks[0] += 30
$hBtnLinks[$i] = GUICtrlCreateButton($aSectionen[$i], 040, $hBtnLinks[0], 100, 025, BitOR($GUI_SS_DEFAULT_BUTTON, $SS_LEFT))
GUICtrlSetFont(-1, 10)
GUICtrlCreateIcon("shell32.dll", -44, 10, $hBtnLinks[0], 25, 25)
Next

; Die ScrollGUI muss erstellt werden, damit WinGetClientSize() aus der GUIScroll-UDF keinen krit. Fehler schmeisst!!
$hGuiScroll = GUICreate("", 440, 200, 155, 100, BitOR($WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $hGuiHaupt)
GUISetBkColor(0xA6CAF0, $hGuiScroll)
#EndRegion Erstelle GUI + Controls

GUISetState(@SW_SHOW, $hGuiHaupt)
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $hGuiHaupt ;        Hauptprogramm GUI
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $hBtnLinks[1] ;        <--------------    klick auf ==> Büro
_GuiScrollShow($aSectionen[1])
Case $hBtnLinks[2] ;        <--------------    klick auf ==> Spezies
_GuiScrollShow($aSectionen[2])
Case $hBtnLinks[3] ;        <--------------    klick auf ==> Schicht A
_GuiScrollShow($aSectionen[3])
Case $hBtnLinks[4] ;        <--------------    klick auf ==> Schicht B
_GuiScrollShow($aSectionen[4])
Case $hBtnLinks[5] ;        <--------------    klick auf ==> Schicht C
_GuiScrollShow($aSectionen[5])
Case $hBtnLinks[6] ;        <--------------    klick auf ==> Fremdfirmen
_GuiScrollShow($aSectionen[6])
EndSwitch

Case $hGuiScroll
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $hBtnRechts[1], $hBtnRechts[2], $hBtnRechts[3], $hBtnRechts[4], $hBtnRechts[5], $hBtnRechts[6]
For $iii = 1 To $hBtnRechts[0]
If IsHWnd($hBtnRechts[$iii]) Then _ShowData(GUICtrlRead($hLabelHeadline), GUICtrlRead($hBtnRechts[$iii]))
Next
EndSwitch

EndSwitch
WEnd

#Region Funktionsbaustellen
Func _ShowData($sSektion, $sName)
Local $Data1 = IniRead($sFile_Ini, _StringToHex($sSektion), _StringToHex($sName), "Fehler")
;~     Local $Data1 = IniRead($sFile_Ini, _HexToString($sSektion), _StringToHex($sName), "Fehler")
;~     Local $Data1 = IniRead($sFile_Ini, _StringToHex($sSektion), _HexToString($sName), "Fehler")
;~     Local $Data1 = IniRead($sFile_Ini, _HexToString($sSektion), _HexToString($sName), "Fehler")
MsgBox(0,0,$Data1)
EndFunc
#EndRegion Funktionsbaustellen

#Region fertig geglaubte Funktionen 
Func _GuiScrollShow($Sektion)
Local $aSektionsdaten = IniReadSection($sFile_Ini, _StringToHex($Sektion))
If IsArray($aSektionsdaten) Then
$iAbstand1 = 10
GUIDelete($hGuiScroll)
GUICtrlSetData($hLabelHeadline, $Sektion)
If Int($aSektionsdaten[0][0]) > 5 Then
$hGuiScroll = GUICreate("", 440, 200, 155, 95, BitOR($WS_POPUP, $WS_GROUP, $WS_VSCROLL, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $hGuiHaupt)
Scrollbar_Create($hGuiScroll, $SB_VERT, $aSektionsdaten[0][0] * 35)
Scrollbar_Step(40, $hGuiScroll, $SB_VERT)
Else
$hGuiScroll = GUICreate("", 440, 200, 155, 95, BitOR($WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS), $WS_EX_MDICHILD, $hGuiHaupt)
Scrollbar_Step(0, $hGuiScroll, $SB_VERT)
EndIf
GUISetBkColor(0xA6CAF0, $hGuiScroll)
ReDim $hBtnRechts[$aSektionsdaten[0][0] + 1]
$hBtnRechts[0] = $aSektionsdaten[0][0]
For $i = 1 To $aSektionsdaten[0][0]
$hBtnRechts[$i] = GUICtrlCreateButton(_HexToString($aSektionsdaten[$i][0]), 80, $iAbstand1, 280, 30)
GUICtrlSetFont(-1, 12)
$iAbstand1 += 35
Next
EndIf
GUISetState(@SW_SHOW, $hGuiScroll)
EndFunc   ;==>_GuiScrollShow

Func _Mausrad($hWnd, $Msg, $wParam)
#forceref $Msg, $wParam
If $wParam == "0x00780000" Then ; _Bild_rauf()
For $i = 0 To 4 Step 1 ;1 mal kurz nach unten Scrollen - selber Effekt wie auf den Pfeil klicken
WM_VSCROLL($hGuiScroll, 0x0, 0x00000000, 0)
Next
EndIf
If $wParam == "0xFF880000" Then ; _Bild_runter()
For $i = 0 To 4 Step 1 ;1 mal kurz nach oben Scrollen - selber Effekt wie auf den Pfeil klicken
WM_VSCROLL($hGuiScroll, 0x0, 0x00000001, 0)
Next
EndIf
EndFunc   ;==>_Mausrad

Func _CreateIni()
Local $hFO = FileOpen($sFile_Ini, 10)
Local $sData = "[" & _StringToHex($aSectionen[1]) & "]" & _
@CRLF & _StringToHex("Büro1 Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Büro2 Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Büro3 Name3") & "=" & _StringToHex("C0123456/12345678910") & _
@CRLF & _StringToHex("Büro4 Name4") & "=" & _StringToHex("D0123456/12345678910") & _
@CRLF & "[" & _StringToHex($aSectionen[2]) & "]" & _
@CRLF & _StringToHex("Spezies1 Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Spezies2 Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Spezies3 Name3") & "=" & _StringToHex("C0123456/12345678910") & _
@CRLF & "[" & _StringToHex($aSectionen[3]) & "]" & _
@CRLF & _StringToHex("Schicht_A Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name3") & "=" & _StringToHex("C0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name4") & "=" & _StringToHex("D0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name5") & "=" & _StringToHex("E0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name6") & "=" & _StringToHex("F0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_A Name7") & "=" & _StringToHex("G0123456/12345678910") & _
@CRLF & "[" & _StringToHex($aSectionen[4]) & "]" & _
@CRLF & _StringToHex("Schicht_B Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_B Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_B Name3") & "=" & _StringToHex("C0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_B Name4") & "=" & _StringToHex("D0123456/12345678910") & _
@CRLF & "[" & _StringToHex($aSectionen[5]) & "]" & _
@CRLF & _StringToHex("Schicht_C Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_C Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Schicht_C Name3") & "=" & _StringToHex("C0123456/12345678910") & _
@CRLF & "[" & _StringToHex($aSectionen[6]) & "]" & _
@CRLF & _StringToHex("Fremde Name1") & "=" & _StringToHex("A0123456/12345678910") & _
@CRLF & _StringToHex("Fremde Name2") & "=" & _StringToHex("B0123456/12345678910") & _
@CRLF & _StringToHex("Fremde Name3") & "=" & _StringToHex("C0123456/12345678910")
FileWrite($hFO, $sData)
FileClose($hFO)
EndFunc   ;==>_CreateIni
#EndRegion fertig geglaubte Funktionen 
;~ ; End Of File

Alles anzeigen

**alpines**

Poste doch bitte beim nächsten Mal in Code-Tags, da ansonsten überall doppelte Zeilenumbrüche vorkommen und man das Skript nicht einfach in SciTE reinkopieren kann.

Zitat von Lottich

Ich tue mich grad extrem schwer damit, die While WEnd Schleife aufzubauen, sodass ich die dynamischen Buttons ansprechen kann.
Kann mir da mal jemand unter die Arme greifen??

Grundsätzlich solltest du wissen, dass AutoIt ganze positive Zahlen verwendet um die Controls zu referenzieren.

D.h. wenn du 100 Buttons hintereinander erzeugst, dann sind diese alle durchnummeriert.

Es genügt im Switch-Case einfach To zu verwenden. Bspw: Case $aButtons[0] To $aButtons[UBound($aButtons) - 1] und der Fall wird immer auslösen, wenn du auf die Buttons klickst.

Wichtig ist, dass du dazwischen keine anderen Controls erzeugst, da die Reihenfolge sonst nicht mehr stimmt.

Alternativ kannst du auch auf den OnEventMode wechseln und für jeden Button die selbe Funktion registrieren und anschließend @GUI_CtrlId switch-casen wie bei deiner MsgLoop.

Lottich

Ich wusste, dass es sowas simples ist!!! Das ärgert mcih schon ein wenig, dass ich da nicht selber drauf gekommen bin. Zumal mir das mit dem Durchnummerieren nicht neu ist.

Dass "To" auch in dem Case stehen kann war mir nicht bewusst.

Danke für deine schnelle Hilfe!

PS: hab den Code im Startpost formatiert

Joschy41

Hatte das gleiche auch mal, dass ich eine Anzahl von Buttons anhand einer Textdatei erstellen wollte und die Buttonnamen aus der jeweiligen Zeile ausgelsen hatte.

Hab es mit GuiCtrlSetOnEvent gemacht und den Buttons eine Funktion zugewiesen.

Code

$iHigh = 0
$iLines = _FileCountLines($TextDat)
For $i = 1 To $iLines
    $ButtonString = FileReadLine($TextDat, $i)

    If Not $iFirstButtonId Then
        $iFirstButtonId = GUICtrlCreateButton($ButtonString, 60, 180, 400)
    Else
        GUICtrlCreateButton($ButtonString, 60, 180 + $iHigh, 400)
    EndIf
    GUICtrlSetOnEvent(-1, "_ButtonAktion")
    
    $iHigh = $iHigh + 30
Next

Alles anzeigen

Gruß

Lottich 27. September 2019 um 19:55