ViewPort W idth 属 性
包含 一个表单的视口宽度 设计和运行时只读
语 法
Ob jec t.V iewPortWidth
说 明
视口 一个表单在容器中显示的矩形区域 表单容器 控制了 视口 的大小 如果 更改 表单容器 的大小 视口 也将改变大小
视口 的属性和 方法 通常用于 ActiveDocuments 中的表单 如果 一个 ActiveDocument 显示 了一个带滚动条的表单 则当 视口 的尺寸小于围绕表单上控件的矩形的大小时 就会在该表单上显示滚动条
视口 高度的度量单位由表单的 ScaleMode 属性设置 确定 像素 默认的 或
foxels
应 用 于
表 单 对 象
请 参 阅
ScaleMode 属 性 , SetViewPort 方 法 ,V iewPortHeight 属 性 ,V iewPortLeft 属性 ,V iewPortTop 属 性
Visible 属 性
指定对象是可见还是隐藏 设计和运行时可用
语 法
Ob jec t.V isible[= lExp r]
参 数 描 述
lExpr
V isible 属 性 的 设 置 有
设 置 说 明
真
(.T.)
在表单设计器中为默认值 对象可见
假 (.F.) 在程序代码中为默认值 对象隐藏
说 明
设置 _SCREEN 系统变量的 Visible 属性 在 VisualFoxProforWindows 中不起作用即使对象隐藏 在代码中也可以访问该属性
为了在启动时隐藏对象 请在设计时设置 Visible 属性为 假 .F. 如果在代码中设置了 Visible 属性 可以隐藏对象 并在运行时 响应一个特定的事件而显示它
当表单的 Visible 属性设置为 假 .F. 时 表单就隐藏起来 而最近活动的表单
集 表单或其他对象则变为活动的 当表单的 Visible 属性设置为 真 .T. 时 表单变为可见的 将表单的 Visible 属性设置为 真 .T. 并不影响表单的 Order 属性设置 在表单的 Visible 属性设置为 真 .T. 时 它并不变为活动的 可使用Show 方法来激活表单并同时使之可见
注 意 如 果 表 单 对 象 的 Visible 属 性 设 置 为 假 .F. 则 不 显 示 该 表 单 即
使 表 单 集 对 象 的 Visible 属 性 设 置 为 真 .T. 然 而 如 果 表 单 集对 象 的 Visible 属 性 设 置 为 假 .F. 则 所 有 包 含 在 该 表 单 集 中 的表 单 对 象 都 不 可 见
示 例
下面的示例演示了 Visible 属性在用 AddObject 方法加到表单之后 是如何用来显示控
件的
用 AddObject 方法可向表单中添加一个 线条 控件和三个命令按钮 将这些控件和按钮的 Visible 属性设置为 真 .T. 以便在表单中显示 Visible 属性也用来在
线条 控件的倾斜方向改变之前 隐藏它 并在其倾斜方向改变之后显示它
frmMyForm=CREATEOBJECT('Form')&& 创建一个表单
frmMyForm.Closable=.F.&& 废止控件菜单框
frmMyForm.AddObject('shpLine','Line')&& 在表单上添加线条控件frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')&& 向上命令按钮frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')&& 向下命令按钮frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')&& 退出命令按钮
frmMyForm.shpLine.Visible =.T.&&使线条控件可见frmMyForm.shpLine.Top=20&& 指定线条控件起始点所在的行frmMyForm.shpLine.Left=125&& 指定线条控件起始点所在的列
frmMyForm.cmdCmndBtn1. Visible =.T.& &向上命令按钮可见frmMyForm.cmdCmndBtn2. Visible =.T.& &向下命令按钮可见frmMyForm.cmdCmndBtn3. Visible =.T.& &退出命令按钮可见
frmMyForm.SHOW&& 显示表单
READEVENTS&& 进入事件循环
DEFINECLASScmdMyCmndBtn1ASCOMMANDBUTTON&& 创建命令按钮
Caption='Slant\<Up'&& 命令按钮的标题Left=50&& 命令按钮起始点所在的列Top=100&& 命令按钮起始点所在的行Height=25&& 命令按钮高度
PROCEDURE Click
ThisForm.shpLine.Visible =.F.&& 隐藏线条控件ThisForm.shpLine.LineSlant='/'&& 向上倾斜ThisForm.shpLine.Visible =.T.&& 显示线条控件
ENDDEFINE
DEFINECLASScmdMyCmndBtn2ASCommandButton&& 创建命令按钮
Caption='Slant\<Down'&& 命令按钮的标题Left=200&& 命令按钮起始点所在的列Top=100&& 命令按钮起始点所在的行Height=25&& 命令按钮高度
PROCEDUREClick
ThisForm.shpLine.Visible =.F.&& 隐藏线条控件ThisForm.shpLine.LineSlant='\'&& 向下倾斜ThisForm.shpLine.Visible =.T.&& 显示线条控件
ENDDEFINE
DEFINECLASScmdMyCmndBtn3ASCommandButton&& 创建命令按钮
Caption='\<Quit'&& 命令按钮的标题Cancel=.T.&& 默认取消按钮 (Esc) Left=125&& 命令按钮起始点所在的列Top=150&& 命令按钮起始点所在的 行Height=25&& 命令按钮高度
PROCEDUREClick
CLEAREVENTS&& 中止事件循环 关闭表单
ENDDEFINE
应 用 于
复选框 列 组 合 框 命令按钮 命令组 容器对象 控件对象 编辑框 表单 表单集 表格 图像 标签 线条 列表框 OLE 绑定型控件 OLE 容器控件 选项按钮 选项组 页框 项目对象 _SCREEN 形状 微调 文本框 工具栏
请 参 阅
Show 方 法 , ZOrder 方 法