直线Control控件(Line)用来在窗体和其他容器Control控件中创建简单
线段
它没有自己特殊思路方法
也不产生任何事件设计和运行时可以通过它属性来改变它位置、粗细和颜色等1．直线Control控件
常用属性BorderColor、Borderwidth、BorderStyle等
(1)BorderColoR属性设置直线
颜色(2)Borderwidth属性设置直线
粗细(3)BorderStyle属性设置直线样式
0～6种类型1-实线6-内实线2．直线Control控件
特有属性xl
x2y1y2属性指定起点和终点x坐标及y坐标可以通过改变x1x2y1y2值来改变线位置和长度介绍说明:
直线Control控件没有Left、Top、width和HeighT:属性
运行时也不能用Move思路方法决定直线位置和长短【例9．6】 在窗体上使用直线Control控件画7条线(其中第1条线BorderStyle=0是透明
显示不出来)编写1个命令按钮单击事件过程改变它们颜色及类型如图9．6所示画直线命令按钮
事件过程代码如下:Private SuB Commandl_Click
F0r i=0 T0 6
LLine(i)． BorderColor=QBColor(i+9)
LLine(i)．BorderStyle=i
Next i
End Sub
退出命令按钮
事件过程代码如下:Private Sub Command2_Click
End
End Sub
QBcolor(i)是颜色
当i为区别值时给出区别颜色上述
运行结果是将窗体上7条线分别改变区别颜色和区别类型直线
最新评论