Beiträge von Sirius

Sirius

Hi Bitnugger,

ich hab das mal getestet. Es wird weder beim 1. noch beim 2. Block ein Fehler angezeigt. Zudem der 1. Block ja auch komplett funktioniert!

Hast du sonst noch eine Idee?

Gruß

Sirius

Sirius

Hallo zusammen.

Ich habe 2 Sachen Programmiert, der erste Block funktioniert und der zweite nicht! Ich finde den Fehler nicht, obwohl alles korrekt in der MSGBox und _ArrayDisplay angezeigt wird.

Vielleicht kann mir einer von Euch sagen, was nicht stimmt.

Es geht um die beiden Blöcke wo ich mit ICACLS die Rechte auf Ordner vergeben möchte. Der erste Block mit (Zeile 12 bis 20) funzt und der zweite mit Block (Zeile 23 bis 30) funktioniert nicht.

Vielen Dank!!

Gruß

Sirius

Spoiler anzeigen

AutoIt

Case $Button1; Objekt anlegen
            Local $Objektnr = GUICtrlRead($Input1)
            Local $Bezeichnung = GUICtrlRead($Input2)
            Local $Ort = GUICtrlRead($Input3)
			If (FileExists ($sPathO & "\" & $Objektnr & " " & "*" & ", " & "*")) Or ($Objektnr <= 0) Or ($Bezeichnung = '') Or ($Ort = '') Then
                MsgBox(16, "Fehler!", "Entweder das Objekt wurde bereits angelegt, oder die Felder Objektnummer, Objektbezeichnung und/oder Ort ist leer!")
            Else
                DirCreate($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort)
                DirCopy(@ScriptDir & "\Strukturvorlagen\Objektvorlage", $sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\", 1)


				
				$OAWPath = ($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\" & "02 Wartungen" & "\")
				;MsgBox(0,"",$OAWPath)
				$OAWList = _FileListToArray($OAWPath)
				;_ArrayDisplay($OAWList)
				For $i = 1 To $OAWList[4]
					Run('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
					Run('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)

				Next



				$OASCHPath = ($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\" & "03 Schriftverkehr" & "\")
				MsgBox(0,"",$OASCHPath)
				$OASCHList = _FileListToArray($OASCHPath)
				_ArrayDisplay($OASCHList)
				For $i = 1 To $OASCHList[26]
					Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
					Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)
				Next




                MsgBox(64, "Objekt", "Das Objekt wurde erfolgreich angelegt!")
				_GUICtrlComboBox_ResetContent($hCombo1)
				_GUICtrlComboBox_ResetContent($hCombo2)
				_GUICtrlComboBox_ResetContent($hCombo4)
				aktualisieren()
            EndIf

Alles anzeigen

Sirius

Hat sich erledigt!

Sirius

Hallo.

ich habe das Problem mit den 2 GUIs gelöst. Vielen Dank!
Ich habe aber noch andere Fragen. Wenn ich jetzt einen Ordner anlege, wie bekomme ich es hin, dass sich die Anzeige in der ComboBox $hCombo1 direkt aktualisiert und den neu angelegten Ordner mit anzeigt?

Gruß
Sirius

Sirius

Vielen Dank für die Antworten. Nur leider weiß ich immer noch nicht weiter.
Ich habe in meinem Script ja bereits 2 GUIs, die auch Funktionierten, aber dafür funktioniert das eigentliche Script nicht mehr.
Vielleicht kann sich das mal jemand anschauen, und mir kurz erklären, was ich falsch gemacht habe.

Vielen Dank

Gruß
Sirius

Sirius

Hallo.

Ich habe folgendes Script programmiert:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiListBox.au3>
#include <GUIComboBox.au3>
#include <GuiComboBoxEx.au3>
#include <MsgBoxConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

Global $Serverstruktur_1, $hGUI2 = 9999, $MenuItem4, $hButton3 = 9999

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

Global $Serverstruktur_1 = GUICreate("Serverstrukturverwaltung", 791, 640, 199, 119)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close")
Global $datei = GUICtrlCreateMenu("&Datei")
Global $MenuItem3 = GUICtrlCreateMenuItem("Beenden Alt + F4", $datei)
GUICtrlSetOnEvent(-1, "On_Close")
Global $ueber = GUICtrlCreateMenu("Ü&ber...")
Global $MenuItem4 = GUICtrlCreateMenuItem("Über", $ueber)
GUICtrlSetOnEvent(-1, "On_Button")
Global $Tab1 = GUICtrlCreateTab(-3, 34, 793, 585)
Global $TabSheet1 = GUICtrlCreateTabItem("Objekte anlegen")
GUICtrlSetState(-1,$GUI_SHOW)
Global $hCombo1 = GUICtrlCreateCombo("", 5, 115, 321, 455, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label1 = GUICtrlCreateLabel("Vorhandene Objekte:", 5, 96, 105, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label4 = GUICtrlCreateLabel("Neue Objektnummer:", 357, 168, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label5 = GUICtrlCreateLabel("Bezeichnung des neuen Objektes:", 357, 208, 167, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label6 = GUICtrlCreateLabel("Ort, in dem das neue Objekt liegt:", 357, 248, 161, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input1 = GUICtrlCreateInput("", 533, 168, 45, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlSetLimit(-1, 5)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetTip(-1, "Hinweis meines Labels")
Global $Input2 = GUICtrlCreateInput("", 533, 208, 217, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetTip(-1, "Hinweis meines Labels")
Global $Input3 = GUICtrlCreateInput("", 533, 248, 217, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetTip(-1, "Hinweis meines Labels")
Global $Button1 = GUICtrlCreateButton("Neues Objekt erstellen", 533, 296, 217, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $TabSheet2 = GUICtrlCreateTabItem("Projekte anlegen")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label2 = GUICtrlCreateLabel("Vorhandene Objekte:", 5, 96, 105, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input4 = GUICtrlCreateInput("", 497, 120, 273, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label7 = GUICtrlCreateLabel("Ausgewähltes Objekt:", 346, 120, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label8 = GUICtrlCreateLabel("Vorhandene Projekte:", 346, 170, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label9 = GUICtrlCreateLabel("Neue Projektnummer:", 346, 468, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label10 = GUICtrlCreateLabel("Neue Projektbezeichnung:", 346, 509, 128, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input6 = GUICtrlCreateInput("", 497, 468, 65, 22, $GUI_SS_DEFAULT_INPUT); Projektnummer
GUICtrlSetLimit(-1,
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input5 = GUICtrlCreateInput("", 497, 509, 273, 22, $GUI_SS_DEFAULT_INPUT); Projektbezeichnung
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $hCombo2 = GUICtrlCreateCombo("", 5, 115, 321, 455, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $hCombo3 = GUICtrlCreateCombo("", 497, 170, 273, 280, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button2 = GUICtrlCreateButton("Neues Projekt erstellen", 497, 544, 273, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $TabSheet3 = GUICtrlCreateTabItem("Wartungsjahr anlegen")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label3 = GUICtrlCreateLabel("Vorhandene Objekte:", 5, 96, 105, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $hCombo4 = GUICtrlCreateCombo("", 5, 115, 321, 455, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $hCombo5 = GUICtrlCreateCombo("", 497, 170, 273, 280, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input7 = GUICtrlCreateInput("", 497, 120, 273, 22, $GUI_SS_DEFAULT_INPUT); Ausgewähltes Objekt
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input8 = GUICtrlCreateInput("", 497, 468, 38, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)); Wartungsjahr
GUICtrlSetLimit(-1, 4)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button3 = GUICtrlCreateButton("Neues Wartungsjahr erstellen", 497, 519, 273, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label11 = GUICtrlCreateLabel("Neues Wartungsjahr:", 346, 468, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label12 = GUICtrlCreateLabel("Vorhandene Wartungsjahre:", 346, 170, 144, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Label13 = GUICtrlCreateLabel("Ausgewähltes Objekt:", 346, 120, 104, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $TabSheet4 = GUICtrlCreateTabItem("Wartungsjahr für alle Objekte anlegen")
Global $Label14 = GUICtrlCreateLabel("Neues Wartungsjahr für alle Objekte:", 393, 147, 181, 21, $SS_CENTERIMAGE)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input9 = GUICtrlCreateInput("", 601, 147, 38, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlSetLimit(-1, 4)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button4 = GUICtrlCreateButton("Neues Wartungsjahr für alle Objekte anlegen", 392, 198, 265, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Input10 = GUICtrlCreateInput("ACHTUNG!!!", 32, 144, 321, 32, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 15, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Input11 = GUICtrlCreateInput("Mit diesem Programmsegment wrid für alle vorhandenen Objekte ein bestimmtes Leistungsjahr für die Wartung angelegt. Bereits vorhandene Wartungsjahre werden nicht überschrieben.", 32, 198, 321, 320, $ES_Multiline, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 15, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState()

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

;Objekte
Global $sPathO = "D:\Test"
Global $sFilter = "*"
Global $iFlag = 2
Global $ordnerO = _FileListToArray($sPathO, $sFilter, $iFlag)

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

For $i = 1 To $ordnerO[0]
_GUICtrlComboBox_AddString($hCombo1, $ordnerO[$i])
_GUICtrlComboBox_AddString($hCombo2, $ordnerO[$i])
_GUICtrlComboBox_AddString($hCombo4, $ordnerO[$i])
Next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $hCombo2; Liste Projekte
GuiCtrlSetData($Input4,GuiCtrlRead($hCombo2))
$ListP = GUICtrlRead($Input4)
Local $sPathP = "D:\Test\" & $ListP & "\01 Projekte"
Local $sFilter = "*"
Local $iFlag = 2
_GUICtrlComboBoxEx_ResetContent(GUICtrlGetHandle($hCombo3))
$ordnerP = _FileListToArray($sPathP, $sFilter, $iFlag)
For $i = 2 To $ordnerP[0]
_GUICtrlComboBox_AddString($hCombo3, $ordnerP[$i])
Next

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

Case $hCombo4; Liste Wartungsjahre
GuiCtrlSetData($Input7,GuiCtrlRead($hCombo4))
$ListW = GUICtrlRead($Input7)
Local $sPathW = "D:\Test\" & $ListW & "\02 Wartungen\05 Leistungsjahre"
Local $sFilter = "*"
Local $iFlag = 2
_GUICtrlComboBoxEx_ResetContent(GUICtrlGetHandle($hCombo5))
$ordnerW = _FileListToArray($sPathW, $sFilter, $iFlag)
For $i = 2 To $ordnerW[0]
_GUICtrlComboBox_AddString($hCombo5, $ordnerW[$i])
Next

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

Case $Button1; Objekt anlegen
Local $Objektnr = GUICtrlRead($Input1)
Local $Bezeichnung = GUICtrlRead($Input2)
Local $Ort = GUICtrlRead($Input3)
If FileExists ($sPathO & "\" & $Objektnr & " " & "*" & ", " & "*") Then
MsgBox(16, "Fehler!", "Das Objekt wurde bereits angelegt!")
Else
DirCreate($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort)
DirCopy("C:\Users\test\Desktop\Neuer Ordner\Strukturvorlagen\Objektvorlage", $sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\", 1)
MsgBox(64, "Objekt", "Das Objekt wurde erfolgreich angelegt!")
EndIf

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

Case $Button2 ;Projekt anlegen $hCombo2
Local $Projnr = GUICtrlRead($Input6)
Local $PBezeichnung = GUICtrlRead($Input5)

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

If FileExists ($sPathP & $Projnr & " " & "*") Then
MsgBox(16, "Fehler!", "Das Projekt" & " " & $Projnr & " " & "wurde bereits angelegt!")
Else
DirCreate ($sPathP & "\" & $Projnr & " " & $PBezeichnung)
DirCopy("C:\Users\test\Desktop\Neuer Ordner\Strukturvorlagen\Projektvorlage", $sPathP & "\" & $Projnr & " " & $PBezeichnung & "\", 1)
MsgBox(64, "Projektnummer", "Die Projektnummer " & $Projnr & " " & "wurde erfolgreich angelegt!")
EndIf

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

Case $Button3 ;Wartungsjahr anlegen $hCombo4
Local $Wartungsjahr = GUICtrlRead($Input8)

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

If FileExists ($sPathW & "\" & $Wartungsjahr) Then
MsgBox(16, "Fehler!", "Das Wartungsjahr wurde bereits angelegt!")
Else
DirCreate ($sPathW & "\" & $Wartungsjahr)
DirCopy("C:\Users\test\Desktop\Neuer Ordner\Strukturvorlagen\Leistungsjahrvorlage\", $sPathW & "\" & $Wartungsjahr & "\", 1)
MsgBox(64, "Wartungsjahr", "Das Wartungsjahr" & " " & $Wartungsjahr & " " & "wurde erfolgreich angelegt!")

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

EndIf

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

Case $Button4; Wartungsjahre für alle Objekte anlegen
Local $WartungsjahrA = GUICtrlRead($Input9)
Local $sPathA = "D:\Test"
Local $sFilter = "*"
Local $iFlag = 2
Local $ordnerA = _FileListToArray($sPathO, $sFilter, $iFlag)

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

For $i = 1 To $ordnerA[0]
DirCreate($sPathA & "\" & $ordnerA[$i] & "\02 Wartungen\05 Leistungsjahre" & "\" & $WartungsjahrA)
DirCopy("C:\Users\test\Desktop\Neuer Ordner\Strukturvorlagen\Leistungsjahrvorlage\", $sPathA & "\" & $ordnerA[$i] & "\02 Wartungen\05 Leistungsjahre\" & $WartungsjahrA & "\" , 1)
Next

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

MsgBox(64, "Wartungsjahre für alle Objekte", "Das Wartungsjahr" & " " & $WartungsjahrA & " " & "wurde für alle vorhandenen Objekte erfolgreich angelegt!")

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

EndSwitch
WEnd

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

Func gui2()
$hGUI2 = GUICreate("Über...", 615, 438, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close")
$Pic1 = GUICtrlCreatePic("S:\08 Vorlagen\Ressourcen\test.jpg", 159, 48, 297, 113)
$hButton3 = GUICtrlCreateButton("Schließen", 251, 368, 113, 41)
GUICtrlSetOnEvent(-1, "On_Close")
$Label1 = GUICtrlCreateLabel("TEST" & @CRLF & "TEST" & @CRLF & "TEST", 157, 200, 300, 153)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState()
EndFunc

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

Func On_Close()
Switch @GUI_WINHANDLE
Case $Serverstruktur_1
Exit
Case $hGUI2
GUIDelete($hGUI2)
GUICtrlSetState($MenuItem4, $GUI_ENABLE)
EndSwitch
EndFunc

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

Func On_Button()
Switch @GUI_CTRLID
Case $MenuItem4
GUICtrlSetState($MenuItem4, $GUI_DISABLE)
gui2()
EndSwitch
EndFunc

[/autoit]

Und zwar habe ich zuletzt im Menü-->Über mit einem 2. Gui ein Fenster erstellt, damit ich das Fenster per Button "Schließen" beenden kann.

Leider funktioniert der Rest des Scripts nicht mehr.

Vielleicht kann mir jemand helfen. Ich denke das alles etwas unübersichtlich ist, das liegt daran, dass ich Anfänger bin.

Zudem bekomme ich es nicht hin, eine Abfrage für die für die Inputboxen: Neue Objektnummer, Bezeichnung des neuen Objektes, Ort, in dem das neue Objekt liegt, zu schreiben, dass wenn die Inputbox leer sind es eine Fehlermeldung gibt und das Objekt dann nicht angelegt wird.

Über Eure Hilfe würde ich mich sehr freuen, ich komme alleine einfach nicht weiter!

Gruß
Sirius

Sirius

Vielen Dank drainen,

ich habe das ohne Guictrlsetdata gemacht, das war mein Fehler!

Gruß
Sirius

Sirius

Hi Oscar.

Kannst mir vielleicht helfen? Und zwar möchte ich in $Input1 angezeigt bekommen, was gerade in der ComboBox ausgewählt wurde. Zudem soll sich das, was in $Input1 angezeigt wird auch ändern, wenn man die Auswahl in der ComboBox ändert. Ich bekomme nicht hin. Vielleicht hast du ein Beispiel, damit ich es verstehe!?

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GuiComboBox.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$test = GUICreate("test", 791, 640, 199, 119)
$datei = GUICtrlCreateMenu("&Datei")
$MenuItem3 = GUICtrlCreateMenuItem("Beenden Alt + F4", $datei)
$ueber = GUICtrlCreateMenu("Ü&ber...")
$Tab1 = GUICtrlCreateTab(-3, 34, 793, 585)
$TabSheet1 = GUICtrlCreateTabItem("Objekte anlegen")
$hCombo1 = GUICtrlCreateCombo("", 5, 115, 321, 455, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
$Input1 = GUICtrlCreateInput("", 533, 115, 217, 22)
$TabSheet2 = GUICtrlCreateTabItem("Projekte anlegen")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit]

Local $sPathO = "C:\"
Local $sFilter = "*"
Local $iFlag = 2
Local $ordnero = _FileListToArray($sPathO, $sFilter, $iFlag)

For $i = 1 To $ordnero[0]
_GUICtrlComboBox_AddString($hCombo1, $ordnero[$i])
Next

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $MenuItem3
Exit
EndSwitch
WEnd

[autoit][/autoit]

Vielen Dank!

Gruß
Sirius

Sirius

Hallo!

ist es möglich bei der GUICtrlCreateCombo das obere Feld, welches anzeigt was in der Box angeklickt ist, auszulesen?

Vielen Dank!

Gruß
Sirius

Sirius

Hi Bugfix. Ich werde mich mal dran setzen und versuchen, ob ich es auch mit der anderen combobox hin bekomme.

Vielen Dank!

Gruß Sirius

Sirius

Hi BugFix,

und mit einer ComboboxEx ist das nicht machbar? Eigentlich brauche ich genau diese Box, weil ich nicht weiss, wie ich es anders umsetzen soll.

Gruß
Sirius

Sirius

Hallo zusammen,
und ein frohes neues Jahr wünsche ich Euch noch!

Ich habe nochmal eine Frage zur ComboBox. Ich habe zwei Tab´s in meinem Tool, und möchte die Combobox nur auf dem ersten Tab angezeigt bekommen. Wie und wo muss ich das definieren?

Spoiler anzeigen

[autoit]

#include <GuiComboBoxEx.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

$test = GUICreate("test", 791, 640, 199, 119)
$datei = GUICtrlCreateMenu("&Datei")
$MenuItem3 = GUICtrlCreateMenuItem("Beenden Alt + F4", $datei)
$ueber = GUICtrlCreateMenu("Ü&ber...")
$Tab1 = GUICtrlCreateTab(-3, 34, 793, 585)
$TabSheet1 = GUICtrlCreateTabItem("Objekte anlegen")
$hCombo1 = _GUICtrlComboBoxEx_Create($test, "", 24, 135, 294, 400, BitOR($CBS_SIMPLE, $WS_VSCROLL, $WS_BORDER))
$TabSheet2 = GUICtrlCreateTabItem("Projekte anlegen")

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

GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $MenuItem3
Exit

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

EndSwitch
WEnd

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

Vielen Dank!

Gruß
Sirius

Sirius

Hi bugfix. Werde ich mir anschauen, obwohl ich mit combo schon erfolgreich war. Ging einfacher als ich gedacht habe. Wollte meine Version mit der Combo mal posten, bin aber zeitlich nicht mehr dazu gekommen. Das werde ich am Freitag nachholen, wenn es gewünscht ist!?

Sirius

Hallo.

Könnte man das auch mit _GUICtrlComboBoxEx_ realisieren?

Wenn ja, kann mir dann jemand helfen? Ich habe noch nie damit gearbeitet.

Vielen Dank!

Gruß
Sirius

Sirius

Hi Tweaky!

Ich habe folgendes versucht:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

Global $sFilePath = @DesktopDir
Global $iFlag = 2
Global $ordnerl = _FileListToArray ( $sFilePath, "*" ,$iFlag)
Global $iRows = UBound($ordnerl, $UBOUND_ROWS)

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

For $i = 1 To $iRows

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

$Form1_1 = GUICreate("Form1", 736, 545, 580, 104)
$walle = GUICtrlCreateTab(0, 72, 753, 489)
$Objekt = GUICtrlCreateTabItem("Objekt anlegen")
$Input1 = GUICtrlCreateInput("", 24, 144, 273, 21)
$Input2 = GUICtrlCreateInput($ordnerl[$i], 24, 168, 273, 340)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd
Next

[/autoit]

Sirius

Hallo zusammen.

Ich würde mir gerne in einer InputBox alle Ordner (ohne Unterordner) die sich z.B. auf C:\ befinden anzeigen lassen.

Wie kann ich das umsetzen?

Vielen Dank!

Gruß Sirius

Sirius

Nabend. Also... es liegt wohl doch an Office 2013 Pro Plus. Damit ist alles geklärt! Vielen Dank! Gruß Sirius

Sirius

Nabend!

AspirinJunkie: Dein Code hat mir leider nicht weitergeholfen.

Schnuffel: Ich habe mir bereits die Änderungen durchgelesen. Aber danke für den Link!

Warum mir bei _ArrayDisplay auf einmal die Reihen- und Spaltenanzahl des Arrays nicht mehr angezeigt wird verstehe ich nicht.

Vielleicht liegt es auch daran, dass ich Windows 2013 Plus installiert habe!?

Gruß
Sirius

Sent from my Aspire VN7-571G using Tapatalk

Sirius

Zitat von Alina

For $i = 2 To $asheet[0][0]

Eigentlich geht es um diese Zeile, weil ich im Array nicht mehr angezeigt bekomme, wie viele Reihen er durchlaufen muss, bis er am Ende angekommen ist.

Sirius

Spoiler anzeigen

Func oeffnen()
Global $code = FileOpenDialog("Wähle Datenbank (XLSX, XLS) aus!",@StartupDir, "(*.xlsx;*.xls)",1 + 4)
If Not @error Then GUICtrlSetState($Convert , $GUI_ENABLE)
Global $aFiles = StringSplit($code, "|", 1)

For $i = 2 To UBound($aFiles) -1
$aFiles[$i] = $aFiles[1] & "\" & $aFiles[$i]

Next
EndFunc

Func convert()

If $aFiles[0] <= 1 Then
For $i = 1 To $aFiles[0]

Local $oExcel = _Excel_Open()
Local $sWorkbook = $afiles[$i]
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook, Default, Default, True)
Local $asheet = _Excel_Rangeread($oWorkbook)

_ArrayDisplay($asheet)

For $i = 2 To $asheet[0][0]

WinActivate("V1 - 111.111.11.1 - Remotedesktopverbindung")

Do
$iResult = _ImageSearch("no.png",1,$x,$y,80)
If $iResult <> 1 Then Sleep(600)
Until $iResult = 1
MouseClick("Left", $x, $y)

Do
$iResult = _ImageSearch("1kdnr.png",1,$x,$y,80)
If $iResult <> 1 Then Sleep(600)
Until $iResult = 1
MouseClick("Left", $x, $y)
MouseClick("Left", $x, $y)
Send($asheet[$i][1]) ;KD-Nr.:
Sleep(600)
;Send("{TAB}")

Next
Next
EndIf
EndFunc

Func beenden()
Exit
EndFunc

Beiträge von Sirius

ICACLS: Ich finde den Fehler einfach nicht

ICACLS: Ich finde den Fehler einfach nicht

Problem 2 Guis

Problem 2 Guis

Problem 2 Guis

Problem 2 Guis

GUICtrlCreateCombo

GUICtrlCreateCombo

GUICtrlCreateCombo

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

Alle Ordner in einer Inputbox anzeigen lassen

_ArrayDisplay "neue" Version

_ArrayDisplay "neue" Version

_ArrayDisplay "neue" Version

_ArrayDisplay "neue" Version