#90857 - 2003-01-07 04:03 PM
Re: kiXforms question
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
Jens,
I have to disagree :
break on
global $ctrls[5]
$form = createobject("Kixtart.Form") $form.Caption = "Control Arrays"
for $i = 0 to ubound($ctrls) $ctrls[$i] = "btn$i","MyFunction($i)" $ctrls[$i][0] = $form.Button("Button $i",20,$i*30,80,25) $ctrls[$i][0].On Click = "" + $ctrls[$i][1] next
$form.show
while $form.Visible $ = execute($form.DoEvents) loop
quit ()
function MyFunction($i) $box = $form.MsgBox("Button # $i was clicked","Button down",64) endfunction
Jochen
PS: remove the space in On Click [ 07. January 2003, 16:06: Message edited by: jpols ]
_________________________
|
|
Top
|
|
|
|
#90860 - 2003-01-07 04:30 PM
Re: kiXforms question
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 1452 anonymous users online.
|
|
|