LineSlant 属 性

指定线条倾斜方向 是从左上到右下还是从左下到右上 设计和运行时可用

语 法

Line .LineSlant[ = cSlan t]

参 数 描 述

cSlant

LineSlant 属 性 的 设 置 是

设 置 说 明

\
默认值 线条从左上到右下倾斜

/ 线条从左下到右上倾斜

示 例

下面示例演示了如何使用 LineSlant 属性指定线条控件 的 倾向

先向表单添加线条控件 再向表单添加三个命令按钮来更改线条倾向或关闭表单

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 && 显示表单

READ EVENT S && 开始事件处理

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

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

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

PROCED URE 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 EVETNTS && 终止事件处理 关闭表单

ENDDEFINE

应 用 于

线条

请 参 阅

DrawMode 属 性 , DrawStyle 属 性