Ich meine, das wenn man in dem FileOpenDialog auf "Öffnen" klickt, das dann in eine ListView oder in einer ComboBox die im FileOpenDialog ausgewählten Dateien eingefügt werden.
Beiträge von button421
-
-
Hallo Leute,
Ich habe ein Problem...
Ich möchte, dass wenn man auf einen Button(Button1) klickt, sich ein FileOpenDialog öffnet.
Wenn man in ihm Dateien auswählt und auf "Öffnen" klickt, erscheinen die in ihm ausgewählten Dateien.
Ein FileOpenDialog geht ja so:Spoiler anzeigen
[autoit]
[/autoit]
FileOpenDialog("Öffnen", @ScriptDir, "Executable Files(*.exe)")Achso, kann man damit eigentlich auch eigene Dateiendungen erfinden?
Danke
-
Achso! Jetzt funzt mein Script!
Danke -
Was ist denn ein Codeblock?
-
Ähm ich hätte noch ein Problem.
[autoit]
Wenn ich das Programm ausführe und auf Ja klicke, passiert nichts :-(.
Mein Script:
[/autoit][autoit][/autoit][autoit]
#include <GUIConstants.au3>;Der Loader
[/autoit][autoit][/autoit][autoit]
#Region ### START Koda GUI section ### Form=c:\users\jonathan verbeek\desktop\autoit\installer\loader.kxf
$Loader = GUICreate("Loading...", 338, 178, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\load_background.jpg", 0, 0, 337, 177, 0)
$Progress1 = GUICtrlCreateProgress(0, 152, 337, 25)
GUICtrlSetData(-1, 0)
GUICtrlSetData(-1, 10)
GUICtrlSetData(-1, 50)
GUICtrlSetData(-1, 90)
GUICtrlSetData(-1, 100)
GUISetState(@SW_HIDE)
GUISetState(@SW_ENABLE)
#EndRegion ###
$Answer = MsgBox(4,"Run?","Run the Main Program?");Hauptprogramm
[/autoit][autoit][/autoit][autoit]
#Region ### START Koda GUI section ### Form=C:\\Benutzer\Jonathan Verbeek\Desktop\AutoIT\Installer\installerpackager.kxf
$JVIP = GUICreate("JV Installer Packager -", 992, 626, 6, 65)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\background.jpg", 0, 0, 1017, 713, 0)
$Label1 = GUICtrlCreateLabel("Step 1 - Load Files ", 40, 48, 138, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$ListView1 = GUICtrlCreateListView("Filename|Path", 104, 88, 289, 225)
GUICtrlSendMsg(-1, 0x101E, 0, 60)
GUICtrlSendMsg(-1, 0x101E, 1, 200)
$ListView1_0 = GUICtrlCreateListViewItem("", $ListView1)
GUICtrlSetTip(-1, "Click the Button, to add Items.")
$Button1 = GUICtrlCreateButton("Load Files", 176, 320, 113, 25, 0)
$Label2 = GUICtrlCreateLabel("Step 2 - Settings ", 432, 248, 121, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox1 = GUICtrlCreateCheckbox("If ready, then run", 488, 280, 121, 17, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox2 = GUICtrlCreateCheckbox("Write Log, if ready", 488, 304, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Label3 = GUICtrlCreateLabel(".exe Path:", 488, 368, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Input1 = GUICtrlCreateInput("", 568, 368, 225, 21)
$Button2 = GUICtrlCreateButton("...", 800, 368, 25, 25, 0)
$Label4 = GUICtrlCreateLabel("Step 3 - Start! ", 688, 496, 101, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Progress1 = GUICtrlCreateProgress(688, 520, 273, 25)
$Button3 = GUICtrlCreateButton("Start!", 872, 560, 81, 25, 0)
$Menu1 = GUICtrlCreateMenu("File")
$MenuItem1c = GUICtrlCreateMenuItem("New Project", $Menu1)
$MenuItem2c = GUICtrlCreateMenuItem("Open", $Menu1)
$MenuItem3c = GUICtrlCreateMenuItem("Save as", $Menu1)
$MenuItem4c = GUICtrlCreateMenuItem("Close", $Menu1)
$Menu2 = GUICtrlCreateMenu("?")
$MenuItem1b = GUICtrlCreateMenuItem("Help", $Menu2)
$MenuItem2b = GUICtrlCreateMenuItem("About JVIP", $Menu2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_additems()
Case $Button2
_outputfile()
Case $Button3
_startpckg()
Case $Progress1
_progress()
Case $MenuItem1c
_newprj()
Case $MenuItem2c
_open()
Case $MenuItem3c
_saveas()
Case $MenuItem4c
_cls()
Case $MenuItem1b
_help()
Case $MenuItem2b
_abt()
Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUIChecked) Then
Run($Output)
EndIf
Case $Checkbox2
If BitAND(GUICtrlRead($Checkbox2), $GUIChecked) Then
IniWrite("C:\\Programme\JV Installer Packager\logs\log.txt","section2" "----LOG----" & @CR & "Installer Version: 1.0.0.0" & @CR & "File Path:" & $Output & "" & @CR & "Createt with JV Installer Packager", "new value")
EndIf
EndSwitch
WEndFunc _additems()
[/autoit][autoit][/autoit][autoit]
$Input = FileOpenDialog("Load Files...", @ScriptDir ,"All Files (*.*)")
EndFuncFunc _outputfile()
[/autoit][autoit][/autoit][autoit]
$Output = FileSaveDialog("Set Output File...", @ScriptDir ,"Execute Files (*.exe)")
EndFuncFunc _startpckg()
[/autoit][autoit][/autoit][autoit]
FileInstall($Input, $Output)
_progress()
EndFuncFunc _progress()
[/autoit][autoit][/autoit][autoit]
GUICtrlSetData($Progress, 20)
Sleep(2000)
GUICtrlSetData($Progress, 50)
Sleep(2564)
GUICtrlSetData($Progress, 60)
Sleep(1999)
GUICtrlSetData($Progress, 95)
Sleep(2000)
GUICtrlSetData($Progress, 100)
MsgBox(64,"Ready!","The Packager has package the Files in a .exe File")
WinFlash("JV Installer Packager")
EndFuncFunc _newprj()
[/autoit][autoit][/autoit][autoit]
MsgBox(16,"Error!","Error 112: Cannot open newprj.au3")
EndFuncFunc _open()
[/autoit][autoit][/autoit][autoit]
MsgBox(16,"Error!","Error 112: Cannot open open.au3")
EndFuncFunc _saveas()
[/autoit][autoit][/autoit][autoit]
MsgBox(16,"Error!","Error 112: Cannot open sav.au3")
EndFuncFunc _cls()
[/autoit][autoit][/autoit][autoit]
WinClose("JV Installer Packager")
EndFuncFunc _help()
[/autoit][autoit][/autoit][autoit]
MsgBox(64,"Help","To create a new project, click on -New Project-" & @CRLF & "To load a project, please click on -Open-" & @CRLF & "To save a project, click on -Save as-" & @CRLF & "To close the program, click -Close-")
EndFuncFunc _abt()
[/autoit][autoit][/autoit][autoit]
MsgBox(64,"About","Createt by Jonathan Verbeek" & @CRLF & "Createt in AutoIT3")
EndFuncIf $Answer = 6 Then
[/autoit][autoit][/autoit][autoit][/autoit]
MsgBox(0,"OK!","The Program run now!")
GUISetState(@SW_HIDE, $Loader)
GUISetState(@SW_SHOW, $JVIP)
Else
MsgBox(0,"OK","OK! Bye!")
Exit
EndIfWas hab ich falsch gemacht?
-
Aso, danke jetzt gehts
-
Ähm, wenn ich das Programm starte und auf JA Klicke sagt er:
Variable used without being declared.:
GUISetState(@SW_SHOW, $JVIP)
GUISetState(@SW_SHOW, ^ ERRORMein Script ist:
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <GUIConstants.au3>;Der Loader
[/autoit][autoit][/autoit][autoit]
#Region ### START Koda GUI section ### Form=c:\users\jonathan verbeek\desktop\autoit\installer\loader.kxf
$Loader = GUICreate("Loading...", 338, 178, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\load_background.jpg", 0, 0, 337, 177, 0)
$Progress1 = GUICtrlCreateProgress(0, 152, 337, 25)
GUICtrlSetData(-1, 0)
GUICtrlSetData(-1, 10)
GUICtrlSetData(-1, 50)
GUICtrlSetData(-1, 90)
GUICtrlSetData(-1, 100)
GUISetState(@SW_HIDE)
GUISetState(@SW_ENABLE)
#EndRegion ###
$Answer = MsgBox(4,"Starten","Hauptprogramm starten?")If $Answer = 6 Then
[/autoit][autoit][/autoit][autoit]
GUISetState(@SW_HIDE, $Loader)
GUISetState(@SW_SHOW, $JVIP)
Else
MsgBox(0,"OK","OK, Tschüss!")
GUISetState(@SW_HIDE, $JVIP)
Exit
EndIf;Hauptprogramm
[/autoit][autoit][/autoit][autoit]
#Region ### START Koda GUI section ### Form=C:\\Benutzer\Jonathan Verbeek\Desktop\AutoIT\Installer\installerpackager.kxf
$JVIP = GUICreate("JV Installer Packager -", 992, 626, 6, 65)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\AutoIt\Installer\background.jpg", 0, 0, 1017, 713, 0)
$Label1 = GUICtrlCreateLabel("Step 1 - Load Files ", 40, 48, 138, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$ListView1 = GUICtrlCreateListView("Filename|Path", 104, 88, 289, 225)
GUICtrlSendMsg(-1, 0x101E, 0, 60)
GUICtrlSendMsg(-1, 0x101E, 1, 200)
$ListView1_0 = GUICtrlCreateListViewItem("", $ListView1)
GUICtrlSetTip(-1, "Click the Button, to add Items.")
$Button1 = GUICtrlCreateButton("Load Files", 176, 320, 113, 25, 0)
$Label2 = GUICtrlCreateLabel("Step 2 - Settings ", 432, 248, 121, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox1 = GUICtrlCreateCheckbox("If ready, then run", 488, 280, 121, 17, 0)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox2 = GUICtrlCreateCheckbox("Write Log, if ready", 488, 304, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Checkbox3 = GUICtrlCreateCheckbox("Close Packager, if ready", 488, 328, 161, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Label3 = GUICtrlCreateLabel(".exe Path:", 488, 368, 72, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Input1 = GUICtrlCreateInput("", 568, 368, 225, 21)
$Button2 = GUICtrlCreateButton("...", 800, 368, 25, 25, 0)
$Label4 = GUICtrlCreateLabel("Step 3 - Start! ", 688, 496, 101, 20)
GUICtrlSetFont(-1, 10, 800, 6, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x434E54)
$Progress1 = GUICtrlCreateProgress(688, 520, 273, 25)
$Button3 = GUICtrlCreateButton("Start!", 872, 560, 81, 25, 0)
$Menu1 = GUICtrlCreateMenu("File")
$MenuItem1c = GUICtrlCreateMenuItem("New Project", $Menu1)
$MenuItem2c = GUICtrlCreateMenuItem("Open", $Menu1)
$MenuItem3c = GUICtrlCreateMenuItem("Save as", $Menu1)
$MenuItem4c = GUICtrlCreateMenuItem("Close", $Menu1)
$Menu2 = GUICtrlCreateMenu("?")
$MenuItem1b = GUICtrlCreateMenuItem("Help", $Menu2)
$MenuItem2b = GUICtrlCreateMenuItem("About JVIP", $Menu2)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_additems()
Case $Button2
_outputfile()
Case $Button3
_startpckg()
Case $Progress1
_progress()
Case $MenuItem1c
_newprj()
Case $MenuItem2c
_open()
Case $MenuItem3c
_saveas()
Case $MenuItem4c
_cls()
Case $MenuItem1b
_help()
Case $MenuItem2b
_abt()
EndSwitch
WEndFunc _additems()
[/autoit][autoit][/autoit][autoit]
$File = FileOpenDialog("Load Files...", @ScriptDir ,"All Files (*.*)")
EndFuncFunc _outputfile()
[/autoit][autoit][/autoit][autoit][/autoit]
$Output = FileSaveDialog("Set Output File...", @ScriptDir ,"Execute Files (*.exe)")
EndFunc -
Ich glaub die Version von H2112 ist einfacher als die von ideas2code.
-
Danke alder! Ich arbeite ja an einem professionellen Installer Packager.
Früher konnte man zwischen Föhren Hirsche röhren hören.
Doch Röhrentechnik ging verloren, längst habem Hirsche Transitoren -
nimm doch:
[autoit]
[/autoit]
WinWaitClose("Internet Explorer")
MsgBox(4,"Sicher?","Willst du wirklich schliessen?") -
was muss ich den für ne funktion schreiben
-
Muss ich dann bei
[autoit]
[/autoit]
;GUI 2 öffnenden ganzen Kodacode einfügen, oder gibt es irgendeine JUMP funktion?
-
Hallo nochmal!
[autoit]
Ich brauche halt sehr viel Hilfe, aber egal!
In meinem Programm, woran ich grat arbeite, hat 2 GUI´S.
Beim Start des Programmes, startet er die erste GUI.
In der taucht eine MsgBox auf, worin steht:
[/autoit]
MsgBox(4,"Starten?","Wollen sie das Hauptprogramm starten?")Wenn man auf "Ja" klickt soll sich GUI 2 öffnen, und wenn man auf "Nein" klickt soll sich GUI 1 schliessen und GUI 2 nicht ausführen.
Schreibt mir bitte, aber danach hab ich keine fragen mehr.
-
Danke! Jetzt gehts!
-
Hallo nochmal!
[autoit]
Wisst ihr wie ich programmieren kann, dass wenn man eine Checkbox aktiviert, eine Aktion passiert?
Ich stelle mir das so vor:
[/autoit]
If $Checkbox1 Then
-Aktion-
EndIfIch weis aber nicht ob das geht.
Schreibt mir, wenn ihr wisst wie das geht.Grüsse!
-
Sei doch nicht so böse
-
Danke! Jetzt klappts!
Und Übrigens: Ich bin erst 10 Jahre alt.
-
Danke, aber wie kriege ich in einen FileSaveDialog "Alle Dateien rein"`?
-
Hallo Leute!
Ich habe ein Problem mit dem FileOpenDialog und dem FileSaveDialog.
Was muss ich bei "filter" eingeben?
Wenn ich .exe eingebe, sagt er "Invalid file filter given"
Was muss ich machen ; Wisst ihr wie ich es bei FileOpenDialog hinkriege,
dass bei dem Filter "Alle Dateien" stehtDanke für Hilfe.
-
wisst ihr eigentlich, ob es in AutoIT einen Jump to Function Befehl gibt?