Dynamische Oberfläche

  • [autoit]

    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <Clipboard.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GuiStatusBar.au3>
    #include <StaticConstants.au3>
    Opt("WinTitleMatchMode", 4)
    Opt("TrayIconDebug", 1)
    #include <Array.au3>
    Global $sTB, $sIni = @DesktopDir & "\TextBausteine.ini"
    Global $var = IniReadSection($sIni, "Bausteine")
    Global $idButton[1]

    [/autoit][autoit][/autoit][autoit]

    Dim $Oben = 10 ;
    Dim $Links = 10
    Dim $Spalten = 6
    Dim $Buttonbreite = 500
    Dim $Buttonhoehe = 50
    Dim $Spaltenstart = 1
    ;~ local $button[1000]
    Local $x_counter = 0
    Local $y_counter = 1
    ;~ $DriveButton[$list1] = GUICtrlCreateEdit($list1[$i], 10, $x, 73, 41, $GUI_DOCKAUTO) ;in ComboBox eintragen
    Global $hide_state = 0, $btn_state = 0, $side = "left"
    Global $Button_[8], $Label_[8], $idButton[20]
    Global $text[1], $text2, $text3, $text4, $text5, $text6, $text7

    [/autoit][autoit][/autoit][autoit]

    $hwnd = GUICreate("Sliding Toolbar", 613, 200, -598, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    $Show = GUICtrlCreateButton(">", 595, 8, 17, 70, BitOR($BS_CENTER, $BS_FLAT))
    $author = GUICtrlCreateLabel(" By... Simucal && Valuater", 120, 25, 400, 40)
    GUICtrlSetFont(-1, 20, 700)
    GUISetState(@SW_HIDE, $hwnd)
    $hwnd2 = GUICreate("Sliding Toolbar", 613, 500, 0, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    ;~ $idButton[1] = GUICtrlCreateButton("Btn 1", 510, 30, 73, 41)
    ;~ $Label_[1] = GUICtrlCreateLabel("Button 1", 526, 16, 60, 17)

    [/autoit][autoit][/autoit][autoit]

    $write1 = IniReadSection($sIni, "Bausteine") ;Baustein aus INI lesen
    $write1 = StringReplace($write1, "_%CRLF%_", @CRLF) ;
    $write1 = StringReplace($write1, "_%CR%_", @CR)
    $write1 = StringReplace($write1, "_%LF%_", @LF)
    ;GUICtrlSetData($idButton[1], $write1) ;Baustein in Edit-Box anzeigen

    [/autoit][autoit][/autoit][autoit]

    If @error Then
    MsgBox(4096, "", StringFormat("Es ist ein Fehler aufgetreten.\nWarscheinlich keine INI Datei vorhanden."))
    Else
    ReDim $idButton[$var[0][0]]
    For $i = 1 To $var[0][0]
    $idButton[$i - 1] = GUICtrlCreateEdit("", 5 + $var[$i][1], $Links + ($Buttonhoehe * $x_counter), ($Buttonbreite * $y_counter), $Buttonhoehe, $ES_MULTILINE)
    $idButton[$i - 1] = GUICtrlCreateButton("", ($Buttonbreite * $y_counter) + 20, $Links + ($Buttonhoehe * $x_counter)+5, 60, 40); da komme ich nicht weiter!!!
    GUICtrlSetData($idButton[$i- 1], $write1) ;Baustein in Edit-Box anzeigen
    ; ^^^^^^ da komme ich nicht weiter!!!

    [/autoit][autoit][/autoit][autoit]

    $x_counter += 1
    If $x_counter = $Spalten Then
    $y_counter += 1
    $x_counter = 0
    EndIf
    Next
    EndIf
    ;~ ;ConsoleWrite("ausgewählt: " & $sId_TB & @CRLF) ;Kontrolausgabe in Console

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    GUISetState()
    While 1
    $msg1 = GUIGetMsg()
    If $msg1 = $GUI_EVENT_CLOSE Then Exit
    WEnd

    [/autoit]


    möchte eine Dynamische Oberfläche kreieren, die für jeden text in der Ini datei ein Edit Feld mit den Inhalt und einen Button erzeugt,

    die Oberfläche steht aber die Felder bleiben leer, was macht ich falsch? ?(

    2 Mal editiert, zuletzt von christiancdj (4. Juni 2012 um 14:42)

  • Danke hab die TextBausteine.ini noch hinzugefügt > ich komm bis auf dynamische auslesen eintrgen ins edit feld weiter nur da hab ich irgend wie ein hänger
    irgend wie ... was muss ich machen hat jemand eine idee?

    • Offizieller Beitrag

    Meinst Du das so:

    Spoiler anzeigen
    [autoit]


    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <Clipboard.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GuiStatusBar.au3>
    #include <StaticConstants.au3>
    Opt("WinTitleMatchMode", 4)
    Opt("TrayIconDebug", 1)
    #include <Array.au3>
    Global $sTB, $sIni = @ScriptDir & "\TextBausteine.ini"
    Global $var = IniReadSection($sIni, "Bausteine")
    If @error Then Exit MsgBox(4096, "", StringFormat("Es ist ein Fehler aufgetreten.\nWarscheinlich keine INI Datei vorhanden."))
    Global $idButton[$var[0][0]], $idEdit[$var[0][0]]

    [/autoit] [autoit][/autoit] [autoit]

    Global $Oben = 80
    Global $Links = 10
    Global $Spalten = 2
    Global $Buttonbreite = 500
    Global $Buttonhoehe = 50

    [/autoit] [autoit][/autoit] [autoit]

    Global $x_counter = 0
    Global $y_counter = 0
    Global $hide_state = 0, $btn_state = 0, $side = "left"
    Global $Button_[8], $Label_[8], $idButton[20]
    Global $text[1], $text2, $text3, $text4, $text5, $text6, $text7

    [/autoit] [autoit][/autoit] [autoit]

    $hwnd = GUICreate("Sliding Toolbar", ($Links + $Buttonbreite + 90) * $Spalten, 500, -1, -1, Default, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    $Show = GUICtrlCreateButton(">", 595, 8, 17, 70, BitOR($BS_CENTER, $BS_FLAT))
    $author = GUICtrlCreateLabel(" By... Simucal && Valuater", 120, 25, 400, 40)
    GUICtrlSetFont(-1, 20, 700)
    GUISetState(@SW_HIDE, $hwnd)

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $var[0][0]
    $idEdit[$i - 1] = GUICtrlCreateEdit($var[$i][1], $Links + ($Buttonbreite + 90) * $x_counter, $Oben + ($Buttonhoehe + 5) * $y_counter, $Buttonbreite, $Buttonhoehe, $ES_MULTILINE)
    $write1 = $var[$i][0]
    $write1 = StringReplace($write1, "_%CRLF%_", @CRLF)
    $write1 = StringReplace($write1, "_%CR%_", @CR)
    $write1 = StringReplace($write1, "_%LF%_", @LF)
    $idButton[$i - 1] = GUICtrlCreateButton($write1, $Links + $Buttonbreite + ($Buttonbreite + 90) * $x_counter, $Oben + ($Buttonhoehe + 7) * $y_counter, 80, 40)
    $x_counter += 1
    If $x_counter >= $Spalten Then
    $y_counter += 1
    $x_counter = 0
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUISetState()
    While 1
    $msg1 = GUIGetMsg()
    If $msg1 = $GUI_EVENT_CLOSE Then Exit
    WEnd

    [/autoit]