10 个解决方案
#1
填充样式由fillstyle确定，fillstyle选1
Picture1.Line (10, 10)-(502, 500), RGB(255, 0, 0), BF
Picture1.Line (10, 10)-(502, 500), RGB(255, 0, 0), BF
#2
FillStyle = 1
Picture1.Line (X1, Y1)-(X, Y), RGB(255, 0, 0), BF
Picture1.Line (X1, Y1)-(X, Y), RGB(255, 0, 0), BF
#3
不行的，我试过了
#4
for i=y1 to y
picture1.line (x1,i)-(x,i),rgb(255,0,0),BF
next
picture1.line (x1,i)-(x,i),rgb(255,0,0),BF
next
#5
Picture1.Line (500, 500)-(1000, 1000), RGB(255, 0, 0), BF
#6
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。
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。
#7
MSDN我也有，我要的是例子
#8
在你不设置color参数时系统会已对象的ForeColor属性值作为你填充的颜色，如果你设置的color参数的话，系统将用你设置的color参数作为你填充的颜色值
以ForeColor属性值作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), , BF
以Color参数值（红色：255）作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), 255, BF
以ForeColor属性值作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), , BF
以Color参数值（红色：255）作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), 255, BF
#9
UP 给分呀
#10
改变一下draystyle即可选1或2
#1
填充样式由fillstyle确定，fillstyle选1
Picture1.Line (10, 10)-(502, 500), RGB(255, 0, 0), BF
Picture1.Line (10, 10)-(502, 500), RGB(255, 0, 0), BF
#2
FillStyle = 1
Picture1.Line (X1, Y1)-(X, Y), RGB(255, 0, 0), BF
Picture1.Line (X1, Y1)-(X, Y), RGB(255, 0, 0), BF
#3
不行的，我试过了
#4
for i=y1 to y
picture1.line (x1,i)-(x,i),rgb(255,0,0),BF
next
picture1.line (x1,i)-(x,i),rgb(255,0,0),BF
next
#5
Picture1.Line (500, 500)-(1000, 1000), RGB(255, 0, 0), BF
#6
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。
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。
#7
MSDN我也有，我要的是例子
#8
在你不设置color参数时系统会已对象的ForeColor属性值作为你填充的颜色，如果你设置的color参数的话，系统将用你设置的color参数作为你填充的颜色值
以ForeColor属性值作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), , BF
以Color参数值（红色：255）作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), 255, BF
以ForeColor属性值作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), , BF
以Color参数值（红色：255）作填充颜色：
Me.Line (0, 0)-(100 * 15, 100 * 15), 255, BF
#9
UP 给分呀
#10
改变一下draystyle即可选1或2