line 控件示例

下面的示例演示了如何向表单中添加线条控制，以及如何使用 lineslant 属性来指定线条的倾斜方向。先用 addobject方法向表单中添加一个线条控制，再添加三个命令按钮。借助于这些按钮，您可以更改线条的倾斜方向或关闭表单。

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 events && 开始事件处理

define class cmdmycmndbtn1 as commandbutton && 创建命令按钮
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 commandbutton && 创建命令按钮
caption = 'slant \<down' && 命令按钮标题
left = 200 && 命令按钮列
top = 100 && 命令按钮行
height = 25 && 命令按钮高度

procedure click
thisform.shpline.visible = .f. && 隐藏线条控制
thisform.shpline.lineslant ='\' && 斜向下
thisform.shpline.visible = .t. && 显示线条控制
enddefine

define class cmdmycmndbtn3 as commandbutton && 创建命令按钮
caption = '\<quit' && 命令按钮标题
cancel = .t. && 默认取消命令按钮 (esc)
left = 125 && 命令按钮列
top = 150 && 命令按钮行

height = 25 && 命令按钮高度

procedure click
clear events && 停止事件处理并关闭表单
enddefine