如何在VFP中向表单添加用户定义的控件

Question

嗨：我使用Visual Foxpro 9的可视化IDE创建了一个非常简单的用户定义控件（容器），并将其存储到VCX文件中（sisweb.vcx）

之后我已经（在视觉上）创建了一个表单，在INIT事件中我试图实例化前一个容器控件并添加到表单中：

oContainer=newobject("xContainer","sisweb.vcx")
ThisForm.AddObject("Contx","oContainer")
ThisForm.Contx.Width=230

不幸的是，在尝试添加容器对象时，会出现错误，说oContainer不存在。

你能帮我吗？

Answer 1

如果要在运行时动态添加对象，可以执行类似

的操作

Thisform.NewObject("Contx", "xContainer", "sisweb.vcx")
Thisform.Contx.Width = 230
Thisform.Contx.Visible = .T.

明确指定Visible属性非常重要。

另一方面，您也可以通过从项目管理器的“类”选项卡中拖动它，或者使用表单/类设计器的“控件”工具栏的书架图标，或者“工具”菜单中的“工具箱”