Okay habe ich verstanden.
Gut dann nutze ich diese Lösung.
Ja ich hatte mir gedacht dass ich dann in einem bestimmten Bereich (z.B. Zeile 40-65 ein bestimmter Teil von Informationen drin steht und von 70-90 wieder ein anderer Teil von Informationen)
Also dass man leichter erkennen kann was wo ist.
Aber ich denke ich komme damit auch zurecht.
Danke euch beiden 
MfG Mikki
Hallo,
habe es mal mit FileWriteLine versucht und die Rückgaben waren erfolgreich. Das was ich eingegeben habe, wurde auch in die Datei geschrieben.
Würde es aber gerne vermeiden, alles direkt untereinander zu schreiben, wie es FileWriteLine nunmal macht.
MfG Mikki
Hallo,
ich zeige euch mal den kompletten Code.
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <data\decl.au3>
#include <data\decl-gui.au3>
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
$Window_Main = GUICreate("HIB-Logistic", 500, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_clicked_Window_Main")
$Button_Window_Main_Neu_anlegen = GUICtrlCreateButton("Neuer Auftrag", 10, 460, 100, 30)
GUICtrlSetOnEvent($Button_Window_Main_Neu_anlegen, "Neuer_Auftrag")
$Button_Window_Main_Auftrag_bearbeiten = GUICtrlCreateButton("Bearbeiten", 130, 460, 100, 30)
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEnd
Func Neuer_Auftrag()
GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_DISABLE)
GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_DISABLE)
$Window_neu_anlegen = GUICreate("Neuer Auftrag", 300, 270)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_clicked_Window_Neuer_Auftrag")
GUICtrlCreateLabel("Name des Bauvorhabens", 10, 20)
$Input_Window_neu_anlegen_Bauvorhaben = GUICtrlCreateInput("", 10, 40, 280, 20)
GUICtrlCreateLabel("Adresse der Baustelle", 10, 70)
$Input_Window_neu_anlegen_Adresse = GUICtrlCreateInput("", 10, 90, 280, 20)
GUICtrlCreateLabel("PLZ/Ort der Baustelle", 10, 120)
$Input_Window_neu_anlegen_PLZ = GUICtrlCreateInput("", 10, 140, 280, 20)
GUICtrlCreateLabel("Bemerkung", 10, 170)
$Input_Window_neu_anlegen_Bemerkung = GUICtrlCreateInput("", 10, 190, 280, 20)
$Button_Window_neu_anlegen_OK = GUICtrlCreateButton("OK", 10, 230, 50, 30)
GUICtrlSetOnEvent($Button_Window_neu_anlegen_OK, "Button_Window_neu_anlegen_OK")
GUISetState(@SW_SHOW)
EndFunc ;==>Neuer_Auftrag
Func Button_Window_neu_anlegen_OK()
$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)
$sMessage = ""
$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_PATHMUSTEXIST)
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
FileChangeDir(@ScriptDir)
EndIf
$hFileOpen = FileOpen($sFileSaveDialog_Auftrag, 2)
_FileWriteToLine($hFileOpen, 1, "[Allgemeine Auftragsdaten]")
_FileWriteToLine($hFileOpen, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben)
_FileWriteToLine($hFileOpen, 3, $READ_Input_Window_neu_anlegen_Adresse)
_FileWriteToLine($hFileOpen, 4, $READ_Input_Window_neu_anlegen_PLZ)
_FileWriteToLine($hFileOpen, 5, $READ_Input_Window_neu_anlegen_Bemerkung)
FileClose($hFileOpen)
GUIDelete($Window_neu_anlegen)
GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)
EndFunc ;==>Button_Window_neu_anlegen_OK
Func CLOSE_clicked_Window_Main()
Exit
EndFunc ;==>CLOSE_clicked_Window_Main
Func CLOSE_clicked_Window_Neuer_Auftrag()
GUIDelete($Window_neu_anlegen)
GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
EndFunc ;==>CLOSE_clicked_Window_Neuer_AuftragGlobal $Input_Window_neu_anlegen_Bauvorhaben, $Input_Window_neu_anlegen_Adresse, $Input_Window_neu_anlegen_PLZ, $Input_Window_neu_anlegen_Bemerkung
Global $Button_Window_Main_Neu_anlegen, $Button_Window_neu_anlegen_OK, $Button_Window_Main_Auftrag_bearbeiten
Global $Window_Main, $Window_neu_anlegenGlobal $READ_Input_Window_neu_anlegen_Bauvorhaben, $READ_Input_Window_neu_anlegen_Adresse, $READ_Input_Window_neu_anlegen_PLZ, $READ_Input_Window_neu_anlegen_Bemerkung
Global $sMessage, $sFileSaveDialog_Auftrag, $hFileOpenHallo,
ja habe immer einen kurzen Dateinamen gegeben und bestätigt.
Nein die Datei ist leer. Da steht nicht mal [Allgemeine Auftragsdaten] drin was mich schwer wundert.
MfG Mikki
Hallo @Oscar,
habe es gerade getestet. Leider bleibt die Datei noch immer leer.
FileWriteLine kann ich leider nicht gebrauche, da ich ja genau bestimmen möchte, wo welche Variable gespeichert werden soll.
MfG Mikki
Hallo @autoiter,
verstehe also sollte ich FileInstall durch FileOpen ersetzen? Habe ich das Richtig verstanden?
Das habe ich jetzt mal gemacht. Die Datei wird zwar jetzt erzeugt, aber leider kein Inhalt eingetragen.
Grüße Mikki
Func Button_Window_neu_anlegen_OK()
$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)
$sMessage = ""
$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_PATHMUSTEXIST)
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
FileChangeDir(@ScriptDir)
EndIf
FileOpen($sFileSaveDialog_Auftrag, 2)
_FileWriteToLine($sFileSaveDialog_Auftrag, 1, "[Allgemeine Auftragsdaten]", 0)
_FileWriteToLine($sFileSaveDialog_Auftrag, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 3, $READ_Input_Window_neu_anlegen_Adresse, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 4, $READ_Input_Window_neu_anlegen_PLZ, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 5, $READ_Input_Window_neu_anlegen_Bemerkung, 1)
FileClose($sFileSaveDialog_Auftrag)
GUIDelete($Window_neu_anlegen)
GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)Hallo zusammen,
ich bräuchte noch mal eure Hilfe
Hier der Code bzw ein Auszug
Func Button_Window_neu_anlegen_OK()
$READ_Input_Window_neu_anlegen_Bauvorhaben = GUICtrlRead($Input_Window_neu_anlegen_Bauvorhaben)
$READ_Input_Window_neu_anlegen_Adresse = GUICtrlRead($Input_Window_neu_anlegen_Adresse)
$READ_Input_Window_neu_anlegen_PLZ = GUICtrlRead($Input_Window_neu_anlegen_PLZ)
$READ_Input_Window_neu_anlegen_Bemerkung = GUICtrlRead($Input_Window_neu_anlegen_Bemerkung)
FileInstall($sFileSaveDialog_Auftrag, @ScriptDir & "\Auftrag.ini")
$sMessage = "Hold down Ctrl or Shift to choose multiple files."
$sFileSaveDialog_Auftrag = FileSaveDialog($sMessage, @WindowsDir & "", "Auftrag (.ini)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
FileChangeDir(@ScriptDir)
EndIf
_FileWriteToLine($sFileSaveDialog_Auftrag, 1, "[Allgemeine Auftragsdaten]", 0)
_FileWriteToLine($sFileSaveDialog_Auftrag, 2, $READ_Input_Window_neu_anlegen_Bauvorhaben, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 3, $READ_Input_Window_neu_anlegen_Adresse, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 4, $READ_Input_Window_neu_anlegen_PLZ, 1)
_FileWriteToLine($sFileSaveDialog_Auftrag, 5, $READ_Input_Window_neu_anlegen_Bemerkung, 1)
FileClose($sFileSaveDialog_Auftrag)
GUIDelete($Window_neu_anlegen)
GUICtrlSetState($Button_Window_Main_Neu_anlegen, $GUI_ENABLE)
GUICtrlSetState($Button_Window_Main_Auftrag_bearbeiten, $GUI_ENABLE)
Nun zu meinem Problem. Wenn ich auf den Button_Window_neu_anlegen_OK klicke öffnet sich, so wie es sein soll, der SaveDialog und ich kann den Pfad meiner Datei auwählen. Aber leider wird die Datei nicht erzeugt.
Merkwürdig ist, wenn ich _FileWritetoLine durch FileWriteLine ersetze, wird die Datei angelegt und alles wird nacheinander reingeschrieben. Ich würde halt gerne steuern können in welche Zeile ich was schreibe.
Und ja ich habe die File.au3 eingebunden.
Wisst Ihr worand das liegen könnte?
Mit freundlichen Grüßen
Mikki
Hallo @autoiter
vieeeelen lieben Dank dafür. Genau das was ich gesucht habe.
Genau, ich hatte das Problem, dass ich die Schleife nicht hinbekommen habe.
Ich habe in Zeile 7 die MsgBox entfernt und in Zeile 9 _ArrayDisplay entfernt.
So schreibt er mir die Daten ohne Umweg direkt in die Exceltabelle.
Danke schön
LG Mikki
Hat denn sonst keiner eine Idee wie das funktioniert?
Ja schon. Zumindest ist es die einzige Funktion die ich kenne, mit der ich Daten in die Zellen schreiben kann.
Hallo,
ich bekomme es nicht auf die Excel Tabelle übertragen. Das einzige was er bei mir macht, ist, dass er zur letzten Nummer springt und diese dann anzeigt.
Hallo alpines,
danke für das Beispiel. Ich schau mal wie ich das auf mein Tool anwenden kann ansonsten melde ich mich noch mal
LG Mikki
Hallo alpines,
sorry so ganz verstehe ich das nicht. Kannst mir das anhand eines Beispiels zeigen?
Ja ich weiss dass die Deklarationen fehlen, da ich sie, wie oben schon geschrieben, in einer extra Datei habe. Aber ich pack´ sie dir noch mal hier rein.
;Datei für Deklaration der Daten
Global $Window_Main, $Window_Ordner1
Global $Button_Liste_waehlen, $Button_Dateien_waehlen, $Button_Daten_uebernehmen
Global $sFileOpenDialog_Plaene, $sMessage
Global $sDrive, $sDir, $sFileName, $sExtension, $aPathSplit, $File_search
Global $oExcel, $Excel_open, $oWorkbook
Global $String_Replace_Plannummer_1
Global $String_Replace_Benennung_1
Global $Date, $Index, $iGuten Morgen zusammen,
ich habe ein kleines Problem. Und zwar möchte ich für die Arbeit ein Tool schreiben, was mir von den markierten Dateien im Explorerfenster die Dateinamen in eine Excelliste schreibt. Für jede Datei soll eine neue Zeile + Spalte angelegt werden. Außerdem soll es von den Benennungen die ersten 7 Zeichen löschen. Soweit funktioniert mein Tool auch. Aber nur für eine Datei :-D. Wenn ich mehrere auswähle kommt Quatsch bei raus.
Probier´s mal aus dann wisst Ihr worauf ich hinaus will.
Ich weiss dass ich noch eine Funktion einbauen muss, also so eine Art Zähler. Hab aber leider absolut keine Idee wie ich das realisieren soll.
Hier mal der Code:
#include <GUIConstantsEx.au3>
#include <StringConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <File.au3>
#include <Date.au3>
#include <data\decl.au3>
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
$Window_Main = GUICreate("Pyron - Daten smarter verwalten", 140, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_clicked_Window_Main")
$Button_Dateien_waehlen = GUICtrlCreateButton("1.Pläne waehlen", 10, 30, 120, 25 )
GUICtrlSetOnEvent($Button_Dateien_waehlen, "Plaene_waehlen")
$Button_Daten_uebernehmen = GUICtrlCreateButton("2.Daten übernehmen", 10, 70, 120, 25)
GUICtrlSetOnEvent($Button_Daten_uebernehmen, "Daten_uebernehmen")
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEnd
Func Plaene_waehlen()
; Create a constant variable in Local scope of the message to display in FileOpenDialog.
$sMessage = "Hold down Ctrl or Shift to choose multiple files."
; Display an open dialog to select a list of file(s).
$sFileOpenDialog_Plaene = FileOpenDialog($sMessage, @WindowsDir & "", "Pläne (*.bmf_)", $FD_FILEMUSTEXIST + $FD_MULTISELECT)
If @error Then
; Display the error message.
MsgBox($MB_SYSTEMMODAL, "", "Keine Datei gewählt!")
; Change the working directory (@WorkingDir) back to the location of the script directory as FileOpenDialog sets it to the last accessed folder.
FileChangeDir(@ScriptDir)
EndIf
EndFunc
Func Daten_uebernehmen()
$File_search = FileFindFirstFile($sFileOpenDialog_Plaene & '*.bmf')
_PathSplit($sFileOpenDialog_Plaene & $File_search, $sDrive, $sDir, $sFileName, $sExtension)
$String_Replace_Plannummer_1 = StringLeft($sFileName, 6)
$String_Replace_Benennung_1 = StringTrimLeft($sFileName, 7)
$Date = _NowDate()
$Index = 0
$oExcel = _Excel_Open(Default, Default, Default, Default, True)
$oWorkbook = _Excel_BookNew($oExcel, 1)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $String_Replace_Plannummer_1, "A1")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $String_Replace_Benennung_1, "B1")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $Date, "C1")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $Index, "D1")
EndFunc
Func CLOSE_clicked_Window_Main()
Exit
EndFuncVariablen sind in einer extra Datei deklariert.
Wär nett wenn Ihr mir da helfen könntet. Das würde mir eine Menge Arbeit ersparen.
Danke im Voraus.
LG Mikki
Hallo Oscar,
vielen lieben Dank für deine Hilfe
Das Beispiel werde ich mir mal merken.
Ja ist richtig, ich gebe dir Recht, dass man die Fenster vorher erstellen sollte, aber da hier noch 5 weitere Systeme auf System 1 folgen, wäre es schwierig für jedes der Systeme ein Fenster unter zu bringen. Also vom Platz her gesehen.
Deshalb habe ich mich dafür entschieden.
Lg Mikki.
Ich bekomme es leider nicht hin. Kannst du mir ein Beispiel zeigen oder mir zeigen was ich genau machen kann?
LG Mikki
Hallo Oscar,
okay vielen Dank versuche es direkt mal
LG Mikki
Hallo zusammen,
ich habe folgendes Problem:
Bei meinem Programm habe ich wie üblich das GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_Systemauswahl") gewählt, damit beim klicken vom "Schliessen" Button sich das Fenster auch schließt.
Hierzu der Code: (Die restlichen Dateien die eigentlich eingeladen werden, habe ich weg gelassen aufgrund der Übersicht. Es geht nur um´s Prinzip)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
Global $Window_Auswahl_System, $Pic_Eingabehilfe
Global $Button_Traeger_auf_zwei_Stuetzen_Linienlast
Global $Window_System_1
Global $Button_Berechnung_System_1
Global $Inputbox_Window_System_1_L, $Inputbox_Window_System_1_q
Global $Radio_I_System_1, $Radio_U_System_1, $Radio_L_System_1, $Radio_O_System_1, $Radio_QR_System_1, $Radio_RR_System_1
Global $Radio_Werkstoff_S235_System_1, $Radio_Werkstoff_S355_System_1, $Radio_Werkstoff_S460_System_1
Global $Combobox_I_Profil_System_1, $Combobox_U_Profil_System_1, $Combobox_Achse_Durchbiegung_System_1, $Combobox_Durchbiegung_System_1, $Combobox_Werkstoff_System_1
$Window_Auswahl_System = GUICreate("Statiktool - Systemauswahl", 900, 600)
GUISetBkColor(0xffffff)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_Systemauswahl")
GUISetState(@SW_SHOW)
$Button_Traeger_auf_zwei_Stuetzen_Linienlast = GUICtrlCreateButton("System 1", 100, 220, 100, 30)
GUICtrlSetOnEvent($Button_Traeger_auf_zwei_Stuetzen_Linienlast, "System_1")
GUISetState(@SW_SHOW)
;Leerlauf und auf Event warten
While 1
Sleep(1000)
WEnd
Func System_1()
$Window_System_1 = GUICreate("Systemdaten Träger auf zwei Stützen mit Linienlast", 800, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked_System_1")
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Länge L [m]", 10, 20, 100)
$Inputbox_Window_System_1_L = GUICtrlCreateInput("", 10, 40, 80)
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Last q [kN/m]", 10, 80, 100)
$Inputbox_Window_System_1_q = GUICtrlCreateInput("", 10, 100, 80)
GUISetState(@SW_SHOW)
GUICtrlCreateGroup("Trägerprofil", 120, 20, 180, 160)
$Radio_I_System_1 = GUICtrlCreateRadio(" I ", 130, 50, 50)
GUICtrlSetOnEvent($Radio_I_System_1, "Combobox_I")
$Radio_U_System_1 = GUICtrlCreateRadio(" U ", 130, 70, 50)
GUICtrlSetOnEvent($Radio_U_System_1, "Combobox_U")
$Radio_L_System_1 = GUICtrlCreateRadio(" L ", 130, 90, 50)
$Radio_O_System_1 = GUICtrlCreateRadio(" I ", 130, 110, 50)
$Radio_QR_System_1 = GUICtrlCreateRadio(" QR ", 130, 130, 50)
$Radio_RR_System_1 = GUICtrlCreateRadio(" RR ", 130, 150, 50)
GUICtrlCreateGroup("Biegung um welche Achse?", 320, 20, 150, 160)
$Combobox_Achse_Durchbiegung_System_1 = GUICtrlCreateCombo(" ", 330, 50, 120)
GUICtrlCreateGroup("max. zul. Durchbiegung", 490, 20, 130, 160)
$Combobox_Durchbiegung_System_1 = GUICtrlCreateCombo(" ", 500, 50, 100)
GUICtrlCreateGroup("Werkstoff", 640, 20, 130, 160)
$Combobox_Werkstoff_System_1 = GUICtrlCreateCombo(" ", 650, 50, 75)
$Button_Berechnung_System_1 = GUICtrlCreateButton("Berechnen", 250, 560, 100, 30)
GUICtrlSetOnEvent($Button_Berechnung_System_1, "Berechnung_System_1")
GUISetState(@SW_SHOW)
EndFunc ;==>System_1
Func CLOSEClicked_Systemauswahl()
Exit
EndFunc ;==>CLOSEClicked_Systemauswahl
Func CLOSEClicked_System_1()
GUIDelete($Window_System_1)
GUISwitch($Window_Auswahl_System)
EndFunc ;==>CLOSEClicked_System_1Das Problem ist, wenn ich zwei mal auf den Button: "$Button_Traeger_auf_zwei_Stuetzen_Linienlast" klicke erscheinen auch zwei Fenster. So weit so gut.
Aber ich kann nur ein Fester wieder schließen.
Woran liegt das? Hat jemand eine Lösung wie man das Problem umgehen kann?
Ich hoffe Ihr könnt mir weiterhelfen
LG Mikki
Hallo das ging ja schnell.
Ja hier der Code:
;Alle Deklarationen befinden sich in der decl.au3
#include <data\decl.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
Opt("GUIOnEventMode", 1); OnEventmode aktiviert
$Window_Main = GUICreate("Test", 475, 620)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_Window_Main")
;ListView
$ListView_Bauvorhaben = GUICtrlCreateListView("", 10, 10, 455, 560)
_GUICtrlListView_AddColumn($ListView_Bauvorhaben, "Bauvorhaben", 200)
_GUICtrlListView_AddColumn($ListView_Bauvorhaben, "Postleitzahl", 75)
_GUICtrlListView_AddColumn($ListView_Bauvorhaben, "Staße", 190)
$Button_Neues_Bauvorhaben = GUICtrlCreateButton("Neues Bauvorhaben", 10, 580, 120, 30)
GUICtrlSetOnEvent($Button_Neues_Bauvorhaben, "Neues_Bauvorhaben")
$Button_Auftrag_bearbeiten = GUICtrlCreateButton("Bauvorhaben bearbeiten", 150, 580, 140, 30)
GUISetState(@SW_Show)
While 1
Sleep(1000)
WEnd
Func Neues_Bauvorhaben()
$Window_Neues_Bauvorhaben = GUICreate("Neues bauvorhaben anlegen", 400, 225)
GUICtrlCreateLabel("Name des Bauvorhabens eingeben", 10, 10)
$Input_Name_Bauvorhaben = GUICtrlCreateInput("", 10, 30, 380, 20)
GUICtrlCreateLabel("Postleitzahl eingeben", 10, 70)
$Input_PLZ = GUICtrlCreateInput("", 10, 90, 380, 20)
GUICtrlCreateLabel("Straße eingeben", 10, 130)
$Input_Strasse = GUICtrlCreateInput("", 10, 150, 380, 20)
$Button_OK_Bauvorhaben_Anlegen = GUICtrlCreateButton("OK! Bauvorhaben anlegen", 125, 190, 150, 30)
GUICtrlSetOnEvent($Button_OK_Bauvorhaben_Anlegen, "OK_Bauvorhaben_Anlegen")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE_Window_Neues_Bauvorhaben")
GUISetState(@SW_Show)
EndFunc
Func OK_Bauvorhaben_Anlegen()
$LESEN_Input_Name_Bauvorhaben = GUICtrlRead($Input_Name_Bauvorhaben)
$LESEN_Input_PLZ = GUICtrlRead($Input_PLZ)
$LESEN_Input_Strasse = GUICtrlRead($Input_Strasse)
_GUICtrlListView_AddItem($ListView_Bauvorhaben, $LESEN_Input_Name_Bauvorhaben, 0)
_GUICtrlListView_AddSubItem($ListView_Bauvorhaben, 0, $LESEN_Input_PLZ, 1, 0)
_GUICtrlListView_AddSubItem($ListView_Bauvorhaben, 0, $LESEN_Input_Strasse, 2, 0)
GUIDelete($Window_Neues_Bauvorhaben)
GUISwitch($Window_Main)
EndFunc
Func CLOSE_Window_Main()
Exit
EndFunc
Func CLOSE_Window_Neues_Bauvorhaben()
GUIDelete($Window_Neues_Bauvorhaben)
GUISwitch($Window_Main)
EndFunc
Die Variablen habe ich alle in der decl.au3 deklariert:
;Decl.au3 | Hier befinden sich alle Deklarationen
;Deklarationen für GUI und GUI-Steuerelemente
Global $Window_Main, $ListView_Bauvorhaben, $Window_Neues_Bauvorhaben
Global $Button_Neues_Bauvorhaben, $Button_Auftrag_bearbeiten, $Button_OK_Bauvorhaben_Anlegen
Global $Input_Name_Bauvorhaben, $Input_PLZ, $Input_Strasse
Global $Tab_Daten_Bauvorhaben, $Tab_Daten_Materialbestellung, $Tab_Daten_Fertigung, $Tab_Daten_Verzinkerei, $Tab_Daten_Transport
;Variablen, die für das lesen der Eingabedaten zuständig sind
Global $LESEN_Input_Name_Bauvorhaben, $LESEN_Input_PLZ, $LESEN_Input_Strasse
;Variablen zur ListView
Global $ListView_GetSelect
Mit freundlichen Grüßen
Mikki