General information
Category:
Coding, syntax & commands
Title:
OptionGroup Control
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only