Hab etwas gefummelt ![]()
Spoiler anzeigen
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <ListviewConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <INet.au3>
$Form1 = GUICreate("Lagerverwaltung", 850, 800, 0,0)
GUISetState(@SW_SHOW)
Global $LAGER[200], $CLICKLAGER[200]
[/autoit] [autoit][/autoit] [autoit]$Combo = GUICtrlCreateCombo("Combo1", 350, 20, 200, 35)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo
LAGERVERWALTUNG()
EndSwitch
WEnd
Func LAGERVERWALTUNG()
For $I = 1 To 3 + 18 * 3 + 64
Next
$TEMP1 = GUICtrlCreateLabel(" ", 9, 49, 87, 24)
GUICtrlSetBkColor(-1, 0)
$TEMP2 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 10, 50, 85, 22)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 7807539)
$TEMP3 = GUICtrlCreateLabel(" ", 289, 49, 87, 24)
GUICtrlSetBkColor(-1, 0)
$TEMP4 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 290, 50, 85, 22)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 7807539)
$TEMP5 = GUICtrlCreateLabel(" ", 569, 49, 87, 24)
GUICtrlSetBkColor(-1, 0)
$TEMP6 = GUICtrlCreateLabel(" " & ("Lagerort") & ":", 570, 50, 85, 22)
GUICtrlSetFont(-1, 10, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 7807539)
$TEMP7 = GUICtrlCreateLabel(" ", 9, 59 + 18, 272, 666 - 17)
GUICtrlSetBkColor(-1, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$TEMP8 = GUICtrlCreateLabel(" ", 289, 59 + 18, 272, 666 - 17)
GUICtrlSetBkColor(-1, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$TEMP9 = GUICtrlCreateLabel(" ", 569, 59 + 18, 272, 666 - 17)
GUICtrlSetBkColor(-1, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput($LAGER,100, 50, 180, 22)
$Input2 = GUICtrlCreateInput($LAGER,380, 50, 180, 22)
$Input3 = GUICtrlCreateInput($LAGER,660, 50, 180, 22)
For $I = 1 To 108
If $I < 37 Then
$TEMP7 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I & ":", 10, 60 + ($I * 18), 99, 17)
GUICtrlSetFont(-1, 9, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 2258739)
$Input1 = GUICtrlCreateInput($LAGER[$I + 3], 110, 60 + ($I * 18), 170, 18)
ElseIf $I < 73 Then
$TEMP8 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I - 36& ":", 290, 60 + (($I - 36) * 18), 99, 17)
GUICtrlSetFont(-1, 9, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 2258739)
$Input2 = GUICtrlCreateInput($LAGER[$I + 3], 390, 60 + (($I - 36) * 18), 170, 18)
ElseIf $I > 37 And $I < 109 Then
$TEMP9 = GUICtrlCreateLabel(" " & ("Lagerplatz") & " " & $I - 72 & ":", 570, 60 + (($I - 72) * 18), 99, 17)
GUICtrlSetFont(-1, 9, 800)
GUICtrlSetBkColor(-1, 16777215)
GUICtrlSetColor(-1, 2258739)
$Input3 = GUICtrlCreateInput($LAGER[$I + 3], 670, 60 + (($I - 72) * 18), 170, 18)
EndIf
Next
$TEMP10 = GUICtrlCreateButton("Bankschliessfach", 10, 750, 150, 30)
EndFunc