|
You last visited: Today at 10:24
Advertisement
Erweitertes Menü "aufklappen"
Discussion on Erweitertes Menü "aufklappen" within the AutoIt forum part of the Coders Den category.
07/29/2013, 19:46
|
#1
|
elite*gold: 0
Join Date: Jul 2009
Posts: 3,441
Received Thanks: 1,473
|
Erweitertes Menü "aufklappen"
Hey E*pvpers.
Denke die meisten von euch werden wissen was ich meine.
Man klickt auf einen kleinen Button, dass Fenster wird u.U größer und es öffnet sich ein erweitertes Menü bzw eine Liste mit weiteren Optionen. Ist es möglich, dass irgendwie umzusetzen?
Könnte es warscheinlich mit GuiSetSate und Hide und Show dann machen aber geht das vllt noch eleganter?!
Ich rede nicht von einer ComboBox. Sondern, dass man einen kleinen Button oder ähnliches drückt, und erweitere Optionen mit InputBoxen, Buttons etc kommen.
Gibt ja genügend Programme wo es das gibt, und das dann so "aufgleitet".
Hoffe ihr wisst was ich meine und könnt mir helfen.
Greets
Belur
|
|
|
07/29/2013, 20:38
|
#2
|
elite*gold: 0
Join Date: Apr 2013
Posts: 980
Received Thanks: 734
|
Guck dir mal das hier an ..vielleicht hilft es dir weiter:
Google 1 Min..
Mfg
Virus.bat
|
|
|
07/31/2013, 13:56
|
#3
|
elite*gold: 0
Join Date: Nov 2011
Posts: 1,448
Received Thanks: 1,257
|
Da hab ich glaub ich was du suchst. nen Script kommt gleich.
EDIT: Hier das Script. Man kann noch die Geschwindigkeit ändern sowie auch obs vertikal oder horizontal auf- und zuklappen soll. Falls dennoch Fragen aufkommen, einfach fragen 
Script:
Code:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Beispiel", 129, 144, -1, -1)
$Button1 = GUICtrlCreateButton("Show", 28, 51, 68, 20)
GUICtrlSetResizing(-1, 802)
$List1 = GUICtrlCreateList("", 144, 12, 209, 123, BitOR($GUI_SS_DEFAULT_LIST,$LBS_DISABLENOSCROLL,$WS_HSCROLL))
GUICtrlSetResizing(-1, 802)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $f = True
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ShowHide()
EndSwitch
WEnd
Func _ShowHide()
Local $size = WinGetPos("[active]")
If $f Then
GUICtrlSetData($Button1, "Hide")
For $i = 129 To 361 Step 5
Sleep(1)
WinMove($Form1, "", $size[0], $size[1], $i, 172) ; Länge von 129 auf 361 setzen
Next
Else
GUICtrlSetData($Button1, "Show")
For $i = 361 To 129 Step -5
Sleep(1)
WinMove($Form1, "", $size[0], $size[1], $i, 172) ; Länge zurück auf 129 setzen
Next
EndIf
$f = not $f
EndFunc
|
|
|
All times are GMT +1. The time now is 10:25.
|
|