Jump to content

Recommended Posts

Posted (edited)

Example:

Opt('GuiOnEventMode', 1)

Dim $hGUI = GUICreate('', 100, 250)

For $i = 0 To 1
    For $j = 1 To 10
        GUICtrlCreateLabel(Chr(Random(65, 90, 1)), $i*30+15, $j*20+15, 30, 20)
        GUICtrlSetOnEvent(-1, 'MyFunc')
    Next
Next

GUISetOnEvent(-3, '_EXIT')
GUISetState()

While 1
    Sleep(20)
WEnd

Func _EXIT()
    GUIDelete()
    Exit
EndFunc


Func MyFunc()
    ConsoleWrite(GUICtrlRead(@GUI_CtrlId) & @LF)
EndFunc

=] =] =] Edit

Edited by Authenticity

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...