Top 属 性

对于控件 指定相对其父对象最顶端的边缘所在位置 对于表单对象 确定表单顶端边缘与 Visual FoxPro 主窗口的距离 设计和运行时可用

语 法

object. Top[ = nValue ]

参 数 描 述

nValue

对 于 控 件 指 定 对 象 的 上 边 缘 和 父 对 象 的 上 边 缘 之 间 的 距 离

对 于 表 单 对 象 确 定 表 单 的 上 边 缘 和 V isual FoxPro 主 窗 口 之 间 的 距 离

说 明

可以使用 Left Top Height 和 W idth 属性改变对象的外部特征 例如移动对象和调整对象大小

注 意 当用于一个列对象中的控件时 Top 属性是只读的

Top 属性的度量单位由控件的 ScaleMode 属性设置值决定

示 例

下面的示例演示了如何使用 Top 属性在表单中放置控件 用 Add 对象 方法向表单中加入一个线条控件和三个命令按钮

Top 属性指定表单中每个控件的垂直位置frmMyForm = CREATEobject 'Form' && 创建一个表单frmMyForm.Closable = .F. && 废止控件菜单框

frmMyForm.Addobject 'shpLine','Line' && 向表单中加入一个线条控件frmMyForm.Addobject 'cmdCmndBtn1','cmdMyCmndBtn1' && Up 命令按钮frmMyForm.Addobject 'cmdCmndBtn2','cmdMyCmndBtn2' && Down 命令按钮frmMyForm.Addobject 'cmdCmndBtn3','cmdMyCmndBtn3' && Quit 命令按钮

frmMyForm.shpLine.Visible = .T. && 使线条控件可见frmMyForm.shpLine.Top = 20 && 指定线条控件行frmMyForm.shpLine.Left = 125 && 指定线条控件列

frmMyForm.cmdCmndBtn1.Visible =.T. && Up 命令按钮可见frmMyForm.cmdCmndBtn2.Visible =.T. && Down 命令按钮可见frmMyForm.cmdCmndBtn3.Visible =.T. && Quit 命令按钮可见

frmMyForm.SHOW && 显示表单

READ EVENT S && 开始事件处理

DEFINE CLASS cmdMyCmndBtn1 AS 命令 BUTTON && 创建命令按钮

Caption = 'Slant \<Up' && 命令按钮的标题

Left = 50 && 命令按钮的列

Top = 100 && 命令按钮的行

Height = 25 && 命令按钮的高度

PROCEDURE Click

ThisForm.shpLine.Visible = .F. && 隐藏线条控件

ThisForm.shpLine.LineSlant ='/' && 向上倾斜

ThisForm.shpLine.Visible = .T. && 显示线条控件

ENDDEFINE

DEFINE CLASS cmdMyCmndBtn2 AS Command Button && 创建命令按钮

Caption = 'Slant \<D own' && 命令按钮上的标题

Left = 200 && 命令按钮的列 Top = 100 && 命令按钮的行Height = 25 && 命令按钮的高度

PROCEDURE Click

ThisForm.shpLine.Visible = .F. && 隐藏线条控件ThisForm.shpLine.LineSlant ='\' && 向下倾斜ThisForm.shpLine.Visible = .T. && 显示线条控件

ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS 命令 Button && 创建命令按钮

Caption = '\<Quit' && 命令按钮的标题 Cancel = .T. && 默认的取消命令按钮 ESC Left = 125 && 命令按钮的列

Top = 150 && 命令按钮的行

Height = 25 && 命令按钮的高度

PROCEDURE Click

CLEAR EVENT S && 停止事件处理 关闭表单

ENDDEFINE

应 用 于

复选框 组合框 命令按钮 命令组 容器对象 控件对象 自定义 编辑框表单 表格 图像 标签 线条 列表框 OLE 绑定型控件 OLE 容器控件选项按钮 选项组 页框 _SCREEN 形状 微调 文本框 计时器 工具栏

请 参 阅

Left 属 性 , Height 属 性 , M ove 方 法 , ScaleMode 属 性 , W idth 属 性