vfp中,表单如何添加选项按钮?

首先要打开控件工具栏,将图中红色框里的选项按钮控件点一下, 然后在表单上画一个矩形,这样就放置了一个选项按钮组控件.

在选项按钮上点击右键, 菜单中选择生成器

在生成器里设置

ps.如果你没有控件工具箱, 请这样打开:

在vfp界面上方的工具栏空白处,右键, 出现的菜单里看表单控件前面是否打勾, 没有就打上

把下面的代码写到表单的init事件中

this.AddObject('CommandGroup1','CommandGroup')

With this.CommandGroup1

.ButtonCount = 15

.left = 0

.top = 0

.Height = 185

.Width = 220

Endwith

m.x = 10

m.y = 10

For i = 1 To 15

lcObject = 'Command' + Transform(i)

With thisform.CommandGroup1.&lcObject

.top = m.y

.left = m.x

.Height = 25

.Width = 60

Endwith

m.x = m.x + 60 + 10

If i % 3 == 0

m.x = 10

m.y = 10 + (25 + 10) * Int(i / 3)

Endif

Next

this.CommandGroup1.visible = .t.

假设：①你将其作为逻辑型数据输入当前表的当前记录的“选择”字段中（该字段的数据类型是逻辑型）；②按钮组的NAME="Optiongroup1"，按钮“是”的NAME="Option1"；③则在“确定”键的CLICK事件方法中写一条语句：

REPLACE 选择 WITH THISFORM.Optiongroup1.Option1.VALUE=1

即可。

---