Question

请问，VB中可以画线的粗细和指定画出的线是什么颜色吗？

比如我想画一排线，规定线的粗细是5mm,颜色前五个是红色，后五个是蓝色。谢谢！急！

Answer 1

Line 方法

在对象上画直线和矩形。

语法

object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

Line 方法的语法有以下对象限定符和部分：

部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。
Step 可选的。关键字，指定相对于线的起点的终点坐标。
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
B 可选的。如果包括，则利用对角坐标画出矩形。
F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。

说明

画联结的线时，前一条线的终点就是后一条线的起点。

线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。

执行 Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。

这个方法不能用于With...End With 语句块。

Answer 2

当然可以，否则这工具能卖出去么？MSDN里面有示例，看一下就知道怎么画 。

这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。

Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' 声明变量。
ScaleMode = 3 ' 设置 ScaleMode 为像素。
CX = ScaleWidth / 2 ' 水平中点。
CY = ScaleHeight / 2 ' 垂直中点。
DrawWidth = 8 ' 设置 DrawWidth。
For I = 50 To 0 Step -2
F = I / 50 ' 执行中间步骤。
F1 = 1 - F: F2 = 1 + F ' 计算。
Forecolor = QBColor(I Mod 15) ' 设置前景颜色。
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' 做其它处理。
If CY > CX Then ' 设置 DrawWidth。
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
F1 = 1 - F: F2 = 1 + F ' 计算。
Line (CX * F1, CY)-(CX, CY * F1) ' 画左上角。
Line -(CX * F2, CY) ' 画右上角。
Line -(CX, CY * F2) ' 画右下角。
Line -(CX * F1, CY) ' 画左下角。
Forecolor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
DoEvents ' 进行其它处理。
End Sub

Answer 3

可以参考一下：
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 6 '单位设为毫米
Me.DrawWidth = 5 '5毫米
Dim i, j As Long
For i = 1 To 10
If i > 5 Then
Line (5, i * 2)-(50, i * 2), vbBlue
Else
Line (5, i * 2)-(50, i * 2), vbRed
End If
Next i
End Sub

Answer 4

Private Sub Form_click()
Me.DrawWidth = 5 '5像素 自己转换你想要的5毫米
For i = 1 To 5
Me.Line (100, 200 * i)-(1500, 200 * i), vbRed
Next

For i = 1 To 5
Me.Line (100, 1000 + 200 * i)-(1500, 1000 + 200 * i), vbBlue
Next

End Sub

Answer 5

object..drawwidth = 10