Inputs fest unter Combo speichern

    Hallo
    Ich bräucht Hilfe wie man unter einzelne Combo "Punkte" Werte aus einer Input fest ablegen kann wenn eine Checkbox praktisch als Button Ersatz vorhanden ist.
    Und wenn der jeweilige Combo "Punkte" gewählt wird, das der zuvor gespeicherte Wert dann in der Input erscheint.
    Ich hoffe ich brauch keine Extra .ini Datei dafür.
    Weiss jemand Rat pls ?

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Local $hm = "Äpfel|Birnen|Pflaumen|Bananen|Kiwis|Nüsse|Walnüsse|Himbeern|Heidelbeeren|Brombeeren|Erdbeeren|Gurken|Radiesien|Kartoffeln|Petersilie|Spargel|Schnittlauch|Kürbisse|Melonen|Orangen|Mandarinen|Bucheckern|Eicheln|Hagebutten|Kastanien|Kirschen|Tannenzapfen|Artischocken|Pepperoni|Tomaten|Mais|Weizen|Roggen|Gerste|"

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

    $Form1 = GUICreate("Obst und Gemüse", 890, 58, 196, 126)
    $Butt1 = GUICtrlCreateButton("Combo Off" , 670 , 6 , 59 , 22)
    $Combo1 = GUICtrlCreateCombo("", 432, 8, 89, 25)
    GUICtrlSetData($Combo1, $hm)
    $Input1 = GUICtrlCreateInput("", 8, 8, 417, 21)
    $Checkbox1 = GUICtrlCreateCheckbox("Input speichern", 528, 8, 90, 25)
    GUISetState(@SW_SHOW)

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

    GUISetOnEvent(-3 , "_Exit")
    GUICtrlSetOnEvent($Butt1 , "_Butt1")
    GUICtrlSetOnEvent($Checkbox1 , "_ChOne")

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

    While Sleep(100)
    WEnd

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

    Func _Butt1()
    If ($Checkbox1 = True) Then
    $Checkbox1 = False
    EndIf
    GUICtrlSetData($Input1 , "")
    EndFunc

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

    Func _ChOne()
    If $Checkbox1 Then
    $Checkbox1 = False
    GUICtrlSetData($Input1 , "Anzahl und Qualität")
    Else
    $Checkbox1 = True
    GUICtrlSetData($Input1 , "")
    EndIf
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von YayYo (23. November 2010 um 09:09)

    meinst du so ?

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Local $hm = "Äpfel|Birnen|Pflaumen|Bananen|Kiwis|Nüsse|Walnüsse|Himbeern|Heidelbeeren|Brombeeren|Erdbeeren|Gurken|Radiesien|Kartoffeln|Petersilie|Spargel|Schnittlauch|Kürbisse|Melonen|Orangen|Mandarinen|Bucheckern|Eicheln|Hagebutten|Kastanien|Kirschen|Tannenzapfen|Artischocken|Pepperoni|Tomaten|Mais|Weizen|Roggen|Gerste|"

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

    $Form1 = GUICreate("Obst und Gemüse", 890, 58, 196, 126)
    $Butt1 = GUICtrlCreateButton("Combo Off" , 670 , 6 , 59 , 22)
    $Combo1 = GUICtrlCreateCombo("", 432, 8, 89, 25)
    GUICtrlSetData($Combo1, $hm)
    $Input1 = GUICtrlCreateInput("", 8, 8, 417, 21)
    $Checkbox1 = GUICtrlCreateCheckbox("Input speichern", 528, 8, 90, 25)
    GUISetState(@SW_SHOW)

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

    GUISetOnEvent(-3 , "_Exit")
    GUICtrlSetOnEvent($Butt1 , "_Butt1")
    GUICtrlSetOnEvent($Checkbox1 , "_ChOne")
    GUICtrlSetOnEvent($Combo1, "_combo")
    While Sleep(100)

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

    WEnd

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

    func _combo()
    $text = GUICtrlRead($Combo1)
    Select
    Case $text = "Äpfel"
    GUICtrlSetData($Input1, "Wert für Äpfel")
    Case $text = "Birnen"
    GUICtrlSetData($Input1, "Wert für Birnen")

    ; und so weiter .....
    EndSelect
    EndFunc

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

    Func _Butt1()
    If ($Checkbox1 = True) Then
    $Checkbox1 = False
    EndIf
    GUICtrlSetData($Input1 , "")
    EndFunc

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

    Func _ChOne()
    If $Checkbox1 Then
    $Checkbox1 = False
    GUICtrlSetData($Input1 , "Anzahl und Qualität")
    Else
    $Checkbox1 = True
    GUICtrlSetData($Input1 , "")
    EndIf
    EndFunc

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    ---
    In "Independence Day" konnten die Windows-Erdcomputer problemlos mit denen der Außerirdischen kommunizieren. Was sagt uns das über unseren lieben Bill Gates? :D
    ---

    Hi again
    autoBert
    Schönes Script 8) wird mir sicher bei weiterem lernen auch helfen. Das ist aber vom speichern her von der ini abhängig.
    Ist die ini mal weg sind die Wert wieder auf "default" resetet.

    @ franzp
    "Fast" , du gibst nur die Werte nun fest vor. Das ist es was ich editierbar haben möchte innerhalb des Scripts.

    Aber ich ahne das es nicht anders funkt.

    oder alternativ in die Registry schreiben HKCU\....
    Weiß gar nicht was man gegen Inis hat lassen sich includen, zur Not manuell editierbar usw...

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Schon ja, aber ini's schwirren irwo rum und können von jederman eingesehen werden.
    Mal vergessen bei sys neu machen und alles ist verschwunden.
    Technisch natürlich sind ini's ganz OK.
    Muss mal schaun wie ich es nun mache 8|
    Nice Idea mit Registry :thumbup:

    Jedenfalls Thx for Help

    Zitat

    Mal vergessen bei sys neu machen und alles ist verschwunden.


    Dann wüerde ich nee "verschlüsselte" Exportfunktion mit reinnehmen, sonst ist dann auch alles wech :)

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

    Ich rate für solche Sachen grndsätzlich vom Gebrauch von

    [autoit]

    regwrite

    [/autoit]

    ab, da sie unnötig die Registry aufblähen, dass heisst Windows wird immer laaaaaaangsaaaaaaaaaaaamer,

    mfg autoBert

    Zitat

    ab, da sie unnötig die Registry aufblähen, dass heisst Windows wird immer laaaaaaangsaaaaaaaaaaaamer,


    Zu Win95 Zeiten gebe ich Dir recht aber mitunter sind die aktuellen Systeme(Hardware) so leistungsstark ,das das nicht mehr ins Gewicht fallen dürfte.

    Und Windows wird grundsätzlich langsamer, dafür sorgen meistens schon die hauseigenen Updates. :)
    Da wird das eigene Eingreifen nicht besonders auffallen. Nee Handvoll Regkeys, schau Dir mal ne Office Installation o.ä. an.

    Gruß Dietmar

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o