Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
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!
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement