BorderStyle 属性
返回或设置对象的边框样式。对 Form 对象和 Textbox 控件在运行时是只读的。
语法
object.BorderStyle = [value]
BorderStyle 属性语法有这些组成部分:
部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。
value 值或常数,用于决定边框样式,“设置值”中有详细说明。
设置值
Form 对象的 BorderStyle 属性设置值如下:
常数 设置值 描述
vbBSNone 0 无(没有边框或与边框相关的元素)。
vbFixedSingle 1 固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。
vbSizable 2 (缺省值)可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。
vbFixedDouble 3 固定对话框。可以包含控制菜单框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸。
vbFixedToolWindow 4 固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。
vbSizableToolWindow 5 可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在 Windows 95 的任务条中不显示。
MS Flex Grid、Image、Label、OLE 容器、PictureBox、Frame 和 TextBox 控件的 BorderStyle 属性设置值如下:
设置值 描述
0 (Image 和 Label 控件的缺省值)无。
1 (MS Flex Grid、PictureBox、TextBox 和 OLE 容器控件的缺省值)固定单边框。
Line 和 Shape 控件的 BorderStyle 属性设置值如下:
常数 设置值 描述
vbTransparent 0 透明
vbBSSolid 1 (缺省值)实线。边框处于形状边缘的中心。
vbBSDash 2 虚线
vbBSDot 3 点线
vbBSDashDot 4 点划线
vbBSDashDotDot 5 双点划线
vbBSInsideSolid 6 内收实线。边框的外边界就是形状的外边缘。
说明
对于窗体,BorderStyle 属性决定了其主要特征,这些特征从外观上就能确定窗体是通用窗口或对话框。设置值 3(固定对话框)用于标准对话框。设置值 4(固定工具窗口)和 5(可变工具窗口)用于创建工具箱样式的窗口。
设置值为 2(可变尺寸)的 MDI 子窗体,以 Windows 运行环境运行时定义的缺省尺寸,在 MDI 窗体内显示。对于任何其它设置值,窗体按设计时指定的大小显示。
改变 Form 对象的 BorderStyle 属性设置值,可能会改变 MinButton、MaxButton 和 ShowInTaskbar 属性的设置值。当 BorderStyle 设置为 1(固定单边框)或 2(可变尺寸)时,MinButton、MaxButton 和 ShowInTaskbar 属性自动设置为 True。当 BorderStyle 设置为 0(无)、3(固定对话框)、4(固定工具窗口)或 5(可变工具窗口)、MinButton、MaxButton 和 ShowInTaskbar 属性自动设置为 False。
注意 如果带有菜单的窗体设置为 3(固定对话框),该窗体将按设置值 1(固定单边框)显示。
运行时,窗体或者是模式的或者是无模式的,都可以用 Show 方法指定。
----------------
这是MSDN的解释。
按你前面的内容,你应该设置当前绘制的直线的线型,但很抱歉,根据这个MSDN的解释。
对于命令 line 绘制的线型,没有该属性。
该属性于用 line 控件上的,而不是命令上。
在循环前面改成这句
Picture1.DrawStyle = 6
'所选直线属性
另外,Picture
没有 Caption 这个属性。Caption 属性,只有 Form 、 MDIForm 窗体 和 Menu 菜单
、Label 控件才有。
-------下面是 DrawWidth 的说明-------------
DrawStyle 属性
返回或设置一个值,以决定图形方法输出的线型的样式。
语法
object.DrawStyle [= number]
DrawStyle 属性语法包含下面部分:
部分 描述
Object 对象表达式,其值是“应用于”列表中的一个对象。
Number 整数,指定线型,“设置值”中有详细描述。
设置值
number 的设置值为:
常数 设置值 描述
VbSolid 0 (缺省值)实线
VbDash 1 虚线
VbDot 2 点线
VbDashDot 3 点划线
VbDashDotDot 4 双点划线
VbInvisible 5 无线
VbInsideSolid 6 内收实线
说明
若 DrawWidth 属性设置为大于 1, DrawStyle 属性设置值为 1 到 4 会画一条实线( DrawStyle 属性值不改变)。若 DrawWidth 设置为 1, DrawStyle 产生的效果如前面表中的各设置值所述。