Jump to content

Recommended Posts

Posted

I would like to program a gui with a vertical scroll bar. The gui has a lot oft buttons. Half of the buttons are visible. By scrolling down I want that the buttons above are not visible and the following buttons will be seen.

My UDFs:- _RegEnumKey
Posted

This is my script:

Opt("GUIOnEventMode", 1)
#include <GUIConstants.au3>
GUICreate("GUI-Scrollbar", 140, 200, -1, -1, $WS_CAPTION + $WS_MINIMIZEBOX + $WS_SYSMENU + $WS_VSCROLL)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
GUICtrlCreateButton("Button 1", 20, 20, 80, 30)
GUICtrlCreateButton("Button 2", 20, 70, 80, 30)
GUICtrlCreateButton("Button 3", 20, 120, 80, 30)
GUICtrlCreateButton("Button 4", 20, 170, 80, 30)
GUICtrlCreateButton("Button 5", 20, 220, 80, 30)
GUICtrlCreateButton("Button 6", 20, 270, 80, 30)
GUICtrlCreateButton("Button 7", 20, 320, 80, 30)
GUICtrlCreateButton("Button 8", 20, 370, 80, 30)
GUICtrlCreateButton("Button 9", 20, 420, 80, 30)
GUICtrlCreateButton("Button 10", 20, 470, 80, 30)
GUISetState(@SW_SHOW)
Func _close()
    Exit
EndFunc   ;==>_close
While 1 
    sleep(500)
WEnd
My UDFs:- _RegEnumKey

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...