1、绘制线表后肯定要先找到这两个控件。
2、然后在这里先画上X和Y两轴线。
4、接下来，用标签输入这两个标志。
4、在使用这个形状按钮绘制。
5、一个个画过去线条就可以了。
注意事项：
VB可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。
为了在两个坐标点之间画一条直线，可使用 Line 方法的简单形式，其语法如下：
[object.]Line [(x1, y1)]–(x2, y2)[, color]
其中 Object 是可选择的；若省略，此方法将在代码所连接的窗体（当前窗体）上画线。第一对坐标也是可选的。就所有的坐标值来说，x 和 y 参数都既可以是整数，也可以是分数。例如，下列语句可在窗体上画一条斜线。
Line (500, 500)–(2000, 2000)
Visual Basic 所画出的一条直线，要包括第一个端点，而不是最后一个端点。这种行为在从点到点画封闭曲线时是有用的。为了画最后一个端点，应使用这种语法：
PSet [Step] (0, 0)[, color]
第一对坐标 (x1, y1) 是可选的。如果省略这些坐标，将把该对象的 x,y 当前位置（画图坐标）作为端点。当前位置是由 CurrentX 和 CurrentY 属性指定的，然而在其它情况它会等于以前的图形方法或 Print 方法所画最后点的位置。如果以前没有使用过图形方法或 Print 方法，或没有设置 CurrentX 和 CurrentY 属性，则缺省位置为对象的左上角。
例如，以下语句通过三点连接画出一个三角形。
'设置起点的 x 坐标。
CurrentX = 1500
'设置起点的 y 坐标。
CurrentY = 500
'向起点的右下方画一直线。
Line -(3000, 2000)
'向当前点的左方画一直线。
Line -(1500, 2000)
'向右上方画一直线到起点。
Line -(1500, 500)
Blanker 应用程序使用 Line 方法创建出了一些有趣的图案样式。为了看到这些图案，可从“选项”菜单中，选定“Crossfire”，然后选定“Start Demo”按钮，即可看到。
Step 关键字
PSet、Line、和 Circle 方法使用以下语法可指定一个或多个点：
(x, y)
可在每个点之前加上 Step 关键字，用来指定要画出的点，是相对最后画出点的位置。Visual Basic 要将 x 和 y 的值加到最后所画的点上。例如，下边这条语句：
Line (100, 200)–(150, 250)
等价于：
Line (100, 200)–Step(50, 50)
在许多情况下，Step 关键字可免除持续不断地记录最后所画点位置的负担。经常最为关心的可能是两点的相对位置，而不是它们的绝对位置。
使用颜色参数
为了改变直线的颜色，应将可选的 color 参数与图形方法一起使用。例如，下述语句将画一条深蓝色的直线：
Line (500, 500)–(2000, 2000), RGB(0, 0, 255)
如果省略了 color 参数，将使用在其上画线的对象的 ForeColor 属性，来决定直线的颜色。本回答被提问者采纳
Picture1.Scale (-5, 10)-(10, -10)
设置图片框的坐标，在上面的例子中，图片框的左上角坐标为(-5, 10)，右下角坐标为（10, -10)
Picture1.ForeColor = RGB(255, 255, 0)
Picture1.DrawWidth = 2
设置画线颜色和粗细
Picture1.Line (-5, 0)-(10, 0)
画线
Picture1.PSet (X, Y)
画点
在VB中画线(急!)
1、绘制线表后肯定要先找到这两个控件。2、然后在这里先画上X和Y两轴线。4、接下来，用标签输入这两个标志。4、在使用这个形状按钮绘制。5、一个个画过去线条就可以了。注意事项：VB可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。
如何用VB编程画直线
Step 可选的。关键字，指定相对于线的起点的终点坐标。(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。B 可选的。如果包括，则利用...
VB 画直线的方法是?
Line 方法 在对象上画直线和矩形。 语法 object .Line [ Step ] ( x1 , 1 ) [ Step ] ( x2 , y2 ), [color] , [ B ][ F ] Line 方法的语法有以下对象限定符和部分： 部分 描述 object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作...
VB 画直线的方法是?
画直线是line (x1,y1)-(x2,y2)清除绘图区是cls 当然，这两个方法前面都需要指明具体的对象啦，如Form1或者PictureBox1
vb 中怎么画虚线 (点划线)
Form1.DrawStyle = 2 Line (x1, y1)-(x2, y2)即可 画点划线的话可以使Form1.DrawStyle = 3，这个属性的值可以从1取到6，你可以取不同值看效果
VB 画直线
画直线 为了在两个坐标点之间画一条直线，可使用 Line 方法的简单形式，其语法如下：[object.]Line [(x1, y1)]–(x2, y2)[, color]其中 Object 是可选择的；若省略，此方法将在代码所连接的窗体（当前窗体）上画线。第一对坐标也是可选的。就所有的坐标值来说，x 和 y 参数都既可以是...
vb中画出线条或形状(例如圆)的代码并注释其格式
在窗体上画一条(0, 0)到(1000,1000)的直线 me.line (0,0)-(1000,1000)画圆或者椭圆用circle方法。circle方法的语法如下 对象名.circle (x , y) , 半径 , [,颜色] [, 起始角] [, 终止角] [, 长短轴比率]如，在窗体上以(1000,1000)为圆心画一个半径为500的圆。me.circle (1000, ...
VB问题,在什么控件内可以画图,线的宽度和颜色如何控制?
For i = 0 To 6 Me.DrawStyle = i '设置线条类型 Me.Line (1000 * i + 100, 100)-(1000 * i + 100, 6000), vbRed '线的起点、终点和颜色 Next i End Sub 下面是一个在图片框内画线的例子（当然窗体内必须有一个图片框，并且假定name属性为picture1）：Private Sub Form_Click()Pi...
VB中画直线问题?
“双击起点第二下不松开并拖动鼠标时会画同以起点开始的N多条直线”，这是程序的响应事件问题，第一次MouseDown、MouseUp，再按下时，就产生DblClick事件，同时阻断MouseDown事件，再松开时，就产生MouseUp事件。（需要按同一个键）DblClick事件只需要MouseDown、MouseUp、MouseDown就会产生。可以这么说，DblClick...
vb编程,画直线
窗体中添加一个Command1按钮，复制如下代码，点击命令按钮后，清屏然后随机画出20条线段 Private Sub Command1_Click()Dim I As Integer, X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer Dim ColorR As Long, ColorG As Long, ColorB As Long, DrawColor As Long Randomize Cls...
