【vfp开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了vfp开源代码-选项按钮组示例.prg的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
PUBLIC oForm1
oForm1=NEWOBJECT("form1")
oForm1.Show
RETURN
DEFINE CLASS form1 AS Form
Top=0
Left=0
Height=181
Width=452
Caption="选项按钮组示例"
Name="Form1"
ADD OBJECT OptionGroup1 AS OptionGroup WITH ;
ButtonCount=2, ;
Value=0, ; &&注意这里对Value属性值的设置
Height=54, ;
Left=12, ;
Top=24, ;
Width=402, ;
Name="OptionGroup1", ;
Option1.Caption="男(\<M)", ;
Option1.Value=1, ;
Option1.Height=16, ;
Option1.Left=5, ;
Option1.Top=12, ;
Option1.Width=63, ;
Option1.Name="Option1", ;
Option2.Caption="女(\<W)", ;
Option2.Height=16, ;
Option2.Left=5, ;
Option2.Top=30, ;
Option2.Width=63, ;
Option2.Name="Option2"
ADD OBJECT Label1 AS Label WITH ;
AutoSize=.T., ;
Caption="Numeric型选项按钮示例", ;
Height=16, ;
Left=24, ;
Top=18, ;
Width=140, ;
Style=3, ;
Name="Label1"
ADD OBJECT OptionGroup2 AS OptionGroup WITH ;
ButtonCount=2, ;
Value="", ; &&注意这里对Value属性值的设置
Height=54, ;
Left=12, ;
Top=102, ;
Width=402, ;
Name="Optiongroup2", ;
Option1.Caption="Windows \<XP操作系统", ;
Option1.Value=0, ;
Option1.Height=16, ;
Option1.Left=5, ;
Option1.Top=12, ;
Option1.Width=127, ;
Option1.Name="Option1", ;
Option2.Caption="\<Unix操作
系统", ;
Option2.Height=16, ;
Option2.Left=5, ;
Option2.Top=30, ;
Option2.Width=97, ;
Option2.Name="Option2"
ADD OBJECT Label2 AS Label WITH ;
AutoSize=.T., ;
Caption="Character型选项按钮示例", ;
Height=16, ;
Left=24, ;
Top=96, ;
Width=128, ;
Style=3, ;
Name="Label2"
ADD OBJECT Label3 AS Label WITH ;
Caption="按钮组的值:", ;
Height=16, ;
Left=168, ;
Top=54, ;
Width=66, ;
Name="Label3"
ADD OBJECT Label4 AS Label WITH ;
Caption="按钮组的值:", ;
Height=16, ;
Left=168, ;
Top=132, ;
Width=66, ;
Name="Label4"
ADD OBJECT Text1 AS TextBox WITH ;
Height=24, ;
Left=240, ;
Top=48, ;
Width=163, ;
Name="Text1"
ADD OBJECT Text2 AS TextBox WITH ;
Height=24, ;
Left=240, ;
Top=126, ;
Width=163, ;
Name="Text2"
*!* 当值改变时,在Text1文本框中显示选项按钮组OptionGroup1的值
PROCEDURE OptionGroup1.InteractiveChange
Thisform.Text1.Value=This.Value
ENDPROC
*!* 当值改变时,在Text2文本框中显示选项按钮组OptionGroup2的值
PROCEDURE OptionGroup2.InteractiveChange
Thisform.Text2.Value=This.Value
ENDPROC
ENDDEFINE