Bitte um hilfe, problem mit Gui...

  • Hi, also ich hab nen problem mit der gui, wenn ich ein kunden anlege, dann auf hinzufügen geh macht er es auch, aber sobalt ich dann einen neuen anlegen will, macht er es nicht mehe...Bitte um Verbesserungsvorschläge :)


    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

    [/autoit]

    $DatenBank = GUICreate("Daten Bank", 633, 394, 193, 125)
    $cmdEnde = GUICtrlCreateButton("Beenden", 8, 360, 105, 25, 0)
    $cmdSuchen = GUICtrlCreateButton("Kunden Suchen", 112, 360, 105, 25, 0)
    $cmdBearbeiten = GUICtrlCreateButton("Kunden Bearbeiten", 216, 360, 105, 25, 0)
    $cmdAnlegen = GUICtrlCreateButton("Kunden anlegen", 320, 360, 105, 25, 0)
    $Kalender = GUICtrlCreateMonthCal("2007/11/30", 440, 216, 178, 169)
    $Pic1 = GUICtrlCreatePic("", 440, 8, 177, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $ListviewItem = "E-Bay Name|ICQ-Nummer|Bezahlt Ja/Nein|Ebay/Privat"
    $listview = GUICtrlCreateListView ($ListviewItem ,10,10,415,350)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $cmdEnde
    Exit
    Case $cmdSuchen
    Case $cmdBearbeiten
    Case $cmdAnlegen
    useradd()
    EndSwitch
    WEnd


    func useradd()
    $Formular = GUICreate("User", 147, 259, 193, 125)
    $Group1 = GUICtrlCreateGroup("Kunden-Daten-Formular", 0, 0, 145, 257)
    $Group2 = GUICtrlCreateGroup("Ebay-Name", 8, 16, 129, 49)
    $ebayname = GUICtrlCreateInput("", 16, 32, 113, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("ICQ-Nummer", 8, 64, 129, 49)
    $icqnummer = GUICtrlCreateInput("", 16, 80, 113, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group4 = GUICtrlCreateGroup("Bezahlt", 8, 112, 129, 57)
    $optja = GUICtrlCreateRadio("Ja", 16, 128, 65, 17)
    $optnein = GUICtrlCreateRadio("Nein", 16, 144, 65, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group5 = GUICtrlCreateGroup("Gekauft", 8, 168, 129, 57)
    $optebay = GUICtrlCreateRadio("Ebay", 16, 184, 49, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $optprivat = GUICtrlCreateRadio("Privat", 16, 200, 49, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $cmdadd = GUICtrlCreateButton("Hinzufügen", 8, 224, 65, 25, 0)
    $cmdccancel = GUICtrlCreateButton("Abbrechen", 72, 224, 65, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

    While 1
    $nsg = GUIGetMsg()
    Switch $nsg
    Case $GUI_EVENT_CLOSE

    guidelete("User")
    Case $cmdccancel

    guidelete("User")
    Case $cmdadd
    $txtebaynname = GUICtrlRead($ebayname)
    $txticqnummer = GUICtrlRead($icqnummer)
    If GUICtrlRead($optja) = 1 Then
    $txtbezahlt = "Ja"
    Else
    $txtbezahlt = "Nein"
    EndIf
    If GUICtrlRead($optebay) = 1 Then
    $txtwogekauft = "Ebay"
    Else
    $txtwogekauft = "Privat"
    EndIf
    GUICtrlCreateListViewItem($txtebaynname&"|"&$txticqnummer&"|"&$txtbezahlt&"|"&$txtwogekauft,$listview)
    guidelete("User")
    EndSwitch
    WEnd
    EndFunc


    [autoit][/autoit]
  • so wie ich das sehe hängt er in der 2en WHILE schleife dann fest - musst du beenden (ExitLoop)

  • so müsstes es klappen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    $DatenBank = GUICreate("Daten Bank", 633, 394, 193, 125)
    $cmdEnde = GUICtrlCreateButton("Beenden", 8, 360, 105, 25, 0)
    $cmdSuchen = GUICtrlCreateButton("Kunden Suchen", 112, 360, 105, 25, 0)
    $cmdBearbeiten = GUICtrlCreateButton("Kunden Bearbeiten", 216, 360, 105, 25, 0)
    $cmdAnlegen = GUICtrlCreateButton("Kunden anlegen", 320, 360, 105, 25, 0)
    $Kalender = GUICtrlCreateMonthCal("2007/11/30", 440, 216, 178, 169)
    $Pic1 = GUICtrlCreatePic("", 440, 8, 177, 201, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $ListviewItem = "E-Bay Name|ICQ-Nummer|Bezahlt Ja/Nein|Ebay/Privat"
    $listview = GUICtrlCreateListView ($ListviewItem ,10,10,415,350)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $cmdEnde
    Exit
    Case $cmdSuchen
    Case $cmdBearbeiten
    Case $cmdAnlegen
    useradd()
    EndSwitch
    WEnd

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

    func useradd()
    $Formular = GUICreate("User", 147, 259, 193, 125)
    $Group1 = GUICtrlCreateGroup("Kunden-Daten-Formular", 0, 0, 145, 257)
    $Group2 = GUICtrlCreateGroup("Ebay-Name", 8, 16, 129, 49)
    $ebayname = GUICtrlCreateInput("", 16, 32, 113, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("ICQ-Nummer", 8, 64, 129, 49)
    $icqnummer = GUICtrlCreateInput("", 16, 80, 113, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group4 = GUICtrlCreateGroup("Bezahlt", 8, 112, 129, 57)
    $optja = GUICtrlCreateRadio("Ja", 16, 128, 65, 17)
    $optnein = GUICtrlCreateRadio("Nein", 16, 144, 65, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group5 = GUICtrlCreateGroup("Gekauft", 8, 168, 129, 57)
    $optebay = GUICtrlCreateRadio("Ebay", 16, 184, 49, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $optprivat = GUICtrlCreateRadio("Privat", 16, 200, 49, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $cmdadd = GUICtrlCreateButton("Hinzufügen", 8, 224, 65, 25, 0)
    $cmdccancel = GUICtrlCreateButton("Abbrechen", 72, 224, 65, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    While 1
    $nsg = GUIGetMsg()
    Switch $nsg
    Case $GUI_EVENT_CLOSE
    guidelete("User")

    Case $cmdccancel
    guidelete("User")

    Case $cmdadd
    $txtebaynname = GUICtrlRead($ebayname)
    $txticqnummer = GUICtrlRead($icqnummer)
    If GUICtrlRead($optja) = 1 Then
    $txtbezahlt = "Ja"
    Else
    $txtbezahlt = "Nein"
    EndIf
    If GUICtrlRead($optebay) = 1 Then
    $txtwogekauft = "Ebay"
    Else
    $txtwogekauft = "Privat"
    EndIf
    GUICtrlCreateListViewItem($txtebaynname&"|"&$txticqnummer&"|"&$txtbezahlt&"|"&$txtwogekauft,$listview)
    guidelete("User")
    Return
    EndSwitch
    WEnd
    EndFunc

    [/autoit]