Hallo
Ich wollte eine Hälfte meiner GUI einfärben, leider funktionieren die Controlls dann nich mehr!
Also ich kann dann nicht mehr im farbigen Abschnitt die Buttons anklicken oder eine Nummer in das Inputfeld eintippen.
So wollte ich sie gestalten:
autoit.de/wcf/attachment/15071/
Hat das schon mal jemand gehabt oder weiß Hilfe, wie bekommt man das so hin.
Hier der Code:
Spoiler anzeigen
#NoTrayIcon
#RequireAdmin
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
Local $Pfad1, $Pfad2, $Pfad3, $Pfad4, $Jump1, $Jump2, $Jump3, $Jump4, $Input1, $Input2, $Input3, $Input4, $m1, $m2, $m3, $m4
$Pfad1 = "L:\G...\KIen....\ANGEBOT 2011\"
$Pfad2 = "L:\G...\KIen....\AUFTRAG 2011\"
$Pfad3 = "L:\G...\KIen....\ANGEBOT 2012\"
$Pfad4 = "L:\G...\KIen....\AUFTRAG 2012\"
$m1 = "Fehlermeldung!"
$m2 = "Der Ordner ist nicht mehr da!"
$m3 = "Fehlermeldung!"
$m4 = "Der Ordner ist nicht da!"
Global $hSendFocus
$hGui = GUICreate("Ordner-Jumper", 400, 120)
GUICtrlCreateLabel('', 200, 0, 200, 120, 0x01+0x0200)
GUICtrlSetBkColor(-1,0xD6FE9E)
GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 25, 10, 150, 13)
GUICtrlSetColor(-1,0x7C7C7C)
GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 25, 65, 150, 13)
GUICtrlSetColor(-1,0x7C7C7C)
GUICtrlCreateLabel("ANGEBOTS-Nummer eingeben", 230, 10, 150, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
GUICtrlCreateLabel("AUFTRAGS-Nummer eingeben", 230, 65, 150, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
GUICtrlCreateLabel ("|", 200,1,2,120,0x11)
$Input1 = GUICtrlCreateInput("", 63, 30, 35, 20)
GUICtrlSetLimit(-1, 4)
GUICtrlCreateLabel("01-", 42, 33, 20, 13)
GUICtrlSetColor(-1,0x7C7C7C)
GUICtrlCreateLabel("-11", 102, 33, 20, 13)
GUICtrlSetColor(-1,0x7C7C7C)
$Jump1 = GUICtrlCreateButton("1", 125, 29, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2011 springen.")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
$Input2 = GUICtrlCreateInput("", 63, 85, 35, 20)
GUICtrlSetLimit(-1, 4)
GUICtrlCreateLabel("02-", 42, 88, 20, 13)
GUICtrlSetColor(-1,0x7C7C7C)
GUICtrlCreateLabel("-11", 102, 88, 20, 13)
GUICtrlSetColor(-1,0x7C7C7C)
$Jump2 = GUICtrlCreateButton("2", 125, 84, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2011 springen.")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
$Input3 = GUICtrlCreateInput("", 268, 30, 35, 20)
GUICtrlSetLimit(-1, 4)
GUICtrlCreateLabel("01-", 247, 33, 20, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
GUICtrlCreateLabel("-12", 307, 33, 20, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
$Jump3 = GUICtrlCreateButton("3", 330, 29, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Direkt zum ANGEBOTS-Ordner 2012 springen.")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
$Input4 = GUICtrlCreateInput("", 268, 85, 35, 20)
GUICtrlSetLimit(-1, 4)
GUICtrlCreateLabel("02-", 247, 88, 20, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
GUICtrlCreateLabel("-12", 307, 88, 20, 13)
GUICtrlSetBkColor (-1, 0xD6FE9E)
$Jump4 = GUICtrlCreateButton("4", 330, 84, 23, 23, 0x0040)
GUICtrlSetTip(-1, "Direkt zum AUFTRAGS-Ordner 2012 springen.")
GUICtrlSetImage(-1, @SystemDir & '\shell32.dll', -138, 0)
Global $hReturnDummy = GUICtrlCreateDummy()
GUICtrlSetOnEvent($hReturnDummy, "_Enter")
Global $Accels[1][2] = [["{ENTER}", $hReturnDummy]]
GUISetAccelerators($Accels)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
GUICtrlSetState($Input4, $GUI_FOCUS)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Jump1
_go1()
Case $Jump2
_go2()
Case $Jump3
_go3()
Case $Jump4
_go4()
Case $hReturnDummy
_Enter()
EndSwitch
WEnd
Func _Enter()
Switch $hSendFocus
Case $Input1
_go1()
_GUICtrlEdit_SetSel($Input1, 0, 4)
Case $Input2
_go2()
_GUICtrlEdit_SetSel($Input2, 0, 4)
Case $Input3
_go3()
_GUICtrlEdit_SetSel($Input3, 0, 4)
Case $Input4
_go4()
_GUICtrlEdit_SetSel($Input4, 0, 4)
EndSwitch
EndFunc ;==>_Enter
Func _go1()
If Not FileExists($Pfad1 & '01-' & GUICtrlRead($Input1) & '-11') Then
MsgBox(64, $m1, $m2, 2)
Else
ShellExecute('01-' & GUICtrlRead($Input1) & '-11', "", $Pfad1, "open")
EndIf
EndFunc
Func _go2()
If Not FileExists($Pfad2 & '02-' & GUICtrlRead($Input2) & '-11') Then
MsgBox(64, $m1, $m2, 2)
Else
ShellExecute('02-' & GUICtrlRead($Input2) & '-11', "", $Pfad2, "open")
EndIf
EndFunc
Func _go3()
If Not FileExists($Pfad3 & '01-' & GUICtrlRead($Input3) & '-12') Then
MsgBox(64, $m3, $m4, 2)
Else
ShellExecute('01-' & GUICtrlRead($Input3) & '-12', "", $Pfad3, "open")
EndIf
EndFunc
Func _go4()
If Not FileExists($Pfad4 & '02-' & GUICtrlRead($Input4) & '-12') Then
MsgBox(64, $m3, $m4, 2)
Else
ShellExecute('02-' & GUICtrlRead($Input4) & '-12', "", $Pfad4, "open")
EndIf
EndFunc
Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom = $ilParam
Local $iCode = _WinAPI_HiWord($iwParam)
Local $hWndEdit1 = GUICtrlGetHandle($Input1)
Local $hWndEdit2 = GUICtrlGetHandle($Input2)
Local $hWndEdit3 = GUICtrlGetHandle($Input3)
Local $hWndEdit4 = GUICtrlGetHandle($Input4)
Switch $hWndFrom
Case $hWndEdit1, $hWndEdit2, $hWndEdit3, $hWndEdit4;
Switch $iCode
Case $EN_SETFOCUS
Switch $hWndFrom
Case $hWndEdit1
$hSendFocus = $Input1
Case $hWndEdit2
$hSendFocus = $Input2
Case $hWndEdit3
$hSendFocus = $Input3
Case $hWndEdit4
$hSendFocus = $Input4
EndSwitch
Case Else
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_COMMAND