Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OptionGroup Control
Message
From
12/05/1998 03:06:53
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
OptionGroup Control
Miscellaneous
Thread ID:
00098671
Message ID:
00098671
Views:
58
01 MainForm=CREATEOBJECT("MyForm")
02 MainForm.AddObject("ObjOption","ClassServiceOption")
03
04 MainForm.ObjOption.Buttons(1).Caption="one"
05 MainForm.ObjOption.Buttons(2).Caption="two"
06 MainForm.ObjOption.Buttons(3).Caption="three"
07 MainForm.ObjOption.Buttons(1).Left=5
08 MainForm.ObjOption.Buttons(1).Top=25
09 MainForm.ObjOption.Buttons(2).Left=5
10 MainForm.ObjOption.Buttons(2).Top=45
11 MainForm.ObjOption.Buttons(3).Left=5
12 MainForm.ObjOption.Buttons(3).Top=65
13 MainForm.ObjOption.SetAll("Width",90)
14
15 MainForm.Show()
16 READ EVENTS
17
18 DEFINE CLASS ClassServiceOption AS OptionGroup
19 ButtonCount=4
20 Height=110
21 Left=650
22 Width=90
23 Top=315
24 Visible=.T.
25 ENDDEFINE

How can I group the line from 04 to 13 to my class ClassServiceOption?
Thank you!
Next
Reply
Map
View

Click here to load this message in the networking platform