Moin!
Ich bin dabei ein GUI zubasteln, aus dem man Progamme u.ä. auswählen kann, um sie zu installieren.
Soweit klappt das auch ganz gut, die Progamme lassen sich per CheckBox auswählen und installieren sich sogar!
Nun möchte ich, das eine Fehlermeldung ausgegeben wird, wenn man auf weiter klickt und man vorher keinen Proramme ausgewählt hat.
Habe schon verschiedene Wege versucht, es tut sich zwar was, aber nicht das was ich will^^
Zuletzt wollte ich mir die Werte der Boxen ausgeben lassen um darüber vielleicht weiter zu kommen...komischerweise gibt er immer nur "-1" aus obwohl die Werte doch verschieden sein sollten, oder?
Code
#include <D:\EigeneDateien\Skripte/GUIConstants.au3>
;#include <GUIConstants.au3>
GUICreate("Installation", 400, 320)
GUICtrlCreateLabel("Bitte zu installierende Komponenten auswählen!", 10, 10)
GUICtrlCreateLabel("Bereits installierte Komponenten:", 10, 160)
GUICtrlCreateLabel("Erstellt mit AutoIT v3.1.1.129 ", 250, 305)
;Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 1)
$checkval1=4
$checkval2=9
;Dim $i,$var1,$var2,$var3,$var4,$var5,$name,$var
$var1 = GuiCtrlCreateCheckbox("Firefox", 10, 40, 80, 20)
$var2 = GuiCtrlCreateCheckbox("Thunderbird", 10, 60, 80, 20)
$var3 = GuiCtrlCreateCheckbox("Sunbird", 10, 80, 80, 20)
$var4 = GuiCtrlCreateCheckbox("MS Office", 10, 100, 80, 20)
$var5 = GuiCtrlCreateCheckbox("7-Zip", 10, 120, 80, 20)
$list1 = GuiCtrlCreateList("", 10, 190, 220, 140)
DIM $i = 0,$var = 0
; BUTTON
$weiter = GuiCtrlCreateButton("Weiter", 320, 30, 70, 30)
$schliessen = GuiCtrlCreateButton("Schließen", 320, 70, 70, 30)
;BILD
GuiCtrlCreatePic("D:\EigeneDateien\Skripte\system_installation\logo.jpg",320,240, 60,59)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
;MsgBox(0, "", "Dialog was closed")
Exit
Case $msg = $GUI_EVENT_MINIMIZE
MsgBox(0,"", "Dialog minimized",2)
Case $msg = $GUI_EVENT_MAXIMIZE
MsgBox(0,"", "Dialog restored",2)
Case $msg = $schliessen
exit
Case $msg = $weiter
for $i = 6 to 10
If guiCtrlGetState(6) = $gui_unchecked then MsgBox(0, "Fehler","Kein Programm augewählt!")
next
MsgBox(0, "Fehler",guictrlgetstate())
If guiCtrlRead($var1) = $gui_checked then
RunWait("install_firefox.exe")
GUICtrlSetData(9, "Firefox")
Endif
If guiCtrlRead($var2) = $gui_checked then
RunWait("install_thunderbird.exe")
GUICtrlSetData(9, "Thunderbird")
Endif
If guiCtrlRead($var3) = $gui_checked then
RunWait("install_sunbird.exe")
GUICtrlSetData(9, "Sunbird")
Endif
If guiCtrlRead($var4) = $gui_checked then
RunWait("install_ms_office.exe")
GUICtrlSetData(9, "MS Office")
Endif
If guiCtrlRead($var5) = $gui_checked then
RunWait("install_7zip.exe")
GUICtrlSetData(9, "7-Zip")
Endif
EndSelect
WEnd
Func Fenster_schliessen()
Exit
EndFunc
Alles anzeigen
Im Anhang ist ein Bild der GUI.
MFG BlackIgel