第三章：面向对象程序设计~VFP语法、实例、函数和类库参考手册~

代码 注释

DEFINE CLASS grdProducts AS Grid
   Left = 24
   Top = 10
   Width = 295
   Height = 210
   Visible = .T.
   RowHeight = 28
   ColumnCount = 2

类定义开始。设置有关决定表格外观的属性。

设置 ColumnCount 属性值为 2，表示在表格中加入两列，每个列都含有名为 Header1 的标头。另外，每列都有自己一组独立属性，这些属性决定其外观和动作。

Column1.ControlSource ="prod_name"
Column2.ControlSource ="discontinu"

设置了一个列的 ControlSource 属性后，这列将显示表中所有记录中该字段的值。
Discontinu 是一个逻辑型字段。

Column2.Sparse = .F.

Column2 含有复选框，设置列的 Sparse 属性为 .F.，使得所有行上复选框皆可见，而不仅仅在选中单元内可见。

Procedure Init
   THIS.Column1.Width = 175
   THIS.Column2.Width = 68
   THIS.Column1.Header1.Caption = ;
      "Product Name"
   THIS.Column2.Header1.Caption = ;
      "Discontinued"

   THIS.Column2.AddObject("chk1", ;
      "checkbox")
   THIS.Column2.CurrentControl = ;
      "chk1"
   THIS.Column2.chk1.Visible = .T.
   THIS.Column2.chk1.Caption = ""
ENDPROC

设置列宽和标头标题。







AddObject 方法程序允许向容器内加入对象，在这里是一个名为 chkl 的复选框。
设置列的 CurrentControl 属性，显示这个复选框。
确认该复选框可见。
设置标题为空字符串，这样其默认标题“chk1”就不显示。

ENDDEFINE

类定义结束。