怎么用VB程序画一条逐渐加长的直线

怎么用VB程序画一条逐渐加长的直线
Line (a, 300)-(a + 1, 300)Next End Sub

如何用VB编程画直线
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) ' 每次改变颜色。

VB 画直线的方法是?
Line 方法 在对象上画直线和矩形。 语法 object .Line [ Step ] ( x1 , 1 ) [ Step ] ( x2 , y2 ), [color] , [ B ][ F ] Line 方法的语法有以下对象限定符和部分： 部分 描述 object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作...

在VB中画线(急!)
1、绘制线表后肯定要先找到这两个控件。2、然后在这里先画上X和Y两轴线。4、接下来，用标签输入这两个标志。4、在使用这个形状按钮绘制。5、一个个画过去线条就可以了。注意事项：VB可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

VB 画直线
画直线 为了在两个坐标点之间画一条直线，可使用 Line 方法的简单形式，其语法如下：[object.]Line [(x1, y1)]–(x2, y2)[, color]其中 Object 是可选择的；若省略，此方法将在代码所连接的窗体（当前窗体）上画线。第一对坐标也是可选的。就所有的坐标值来说，x 和 y 参数都既可以是...

在vb里面怎么画直线
Private Type point X As Long Y As Long End Type Dim oldP As point Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then oldP.X = X: oldP.Y = Y End Sub Private Sub Form_MouseUp(Button As Integer, Shift As ...

VB 画直线的方法是?
画直线是line (x1,y1)-(x2,y2)清除绘图区是cls 当然，这两个方法前面都需要指明具体的对象啦，如Form1或者PictureBox1

vb编一个用鼠标操控的画直线的程序
简易的：Dim dx, dyPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)dx = Xdy = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Line (dx, dy)-(X, Y), vbRedEnd Sub ...

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...

请教:画图程序中直线的画法,用vb怎样写?谢谢。
直线只能用一段线段表示 画法：object.Line(x1,y1)-(x2,y2)张志晨：在什么对象上画.画线（起点坐标）-（终点坐标）