vb画直线程序代码(vb编程代码)
vb编一个用鼠标操控的画直线的程序
简易的：
Dim?dx,?dy
Private?Sub?Form_MouseDown(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
dx?=?X
dy?=?Y
End?Sub
Private?Sub?Form_MouseUp(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
Line?(dx,?dy)-(X,?Y),?vbRed
End?Sub
vb中实现用鼠标绘制直线的代码
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button 1 Then
Picture1.Cls '按右键可清屏
ElseIf Picture1.CurrentX = 0 And Picture1.CurrentY = 0 Then
Picture1.PSet (X, Y), vbBlack '开始画第一个点
Else
Picture1.Line -(X, Y), vbBlack '画线
End If
End Sub
求vb实现画图程序代码
给你个参考：
'加入一个Picture控件和1个按钮
Private Sub Command1_Click()
Picture1.Cls
axis Picture1
For i = -9 To 9 Step 0.005
Picture1.PSet (i, MyFun(i))
Next i
End Sub
Private Function MyFun(ByVal X As Double) '这里定义函数
Dim Y As Double
Y = Sin(X)
MyFun = Y
End Function
Private Sub Form_Load()
Show
Picture1.Scale (-10, 10)-(10, -10)
Picture1.BackColor = vbWhite
axis Picture1
End Sub
Private Sub axis(obj As Object)
'x轴
obj.Line (-obj.ScaleWidth / 2 + 0.5, 0)-(obj.ScaleWidth / 2 - 0.5, 0)
obj.Line -(obj.ScaleWidth / 2 - 1, 0.2)
obj.Line (obj.ScaleWidth / 2 - 0.5, 0)-(obj.ScaleWidth / 2 - 1, -0.2)
'y轴
obj.Line (0, obj.ScaleHeight / 2 + 0.5)-(0, -obj.ScaleHeight / 2 - 0.5)
obj.Line -(-0.2, -obj.ScaleHeight / 2 - 1)
obj.Line (0, -obj.ScaleHeight / 2 - 0.5)-(0.2, -obj.ScaleHeight / 2 - 1)
obj.Font.Size = 9
'刻度
For cx = -9 To 9 Step 3
obj.Line (cx, 0)-(cx, 0.2)
If cx 0 Then
obj.CurrentX = cx - 0.3
obj.CurrentY = -0.2
obj.Print cx
End If
Next
For cy = -9 To 9 Step 3
obj.Line (0, cy)-(0.2, cy)
If cy 0 Then
obj.CurrentX = -0.8
obj.CurrentY = cy + 0.2
obj.Print cy
End If
Next
obj.CurrentX = -0.5
obj.CurrentY = -0.2
obj.Font.Size = 12
obj.Print "O" '
End Sub
用VB怎么编写利用按钮控件数组来画几何图形（包括直线，矩形，圆等）的程序。
在窗体上 画3个单项按钮 一个命令按钮 （单项按钮为控件数组）
然后再窗体中添加代码
Dim a As Single, b As Single
Private Sub Command1_Click() '清除按钮
Cls
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a = X
b = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Option1(0).Value = True Then Me.Line (a, b)-(X, Y) '画直线
If Option1(1).Value = True Then Me.Line (a, b)-(X, Y), , B '画矩形
If Option1(2).Value = True Then Me.Circle (a, b), Sqr((X - a) ^ 2 + (Y - b) ^ 2) '画圆
End Sub
不懂追问
用VB编程如何画直线
示例
这个示例用 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
在VB中画线（急！）
1、绘制线表后肯定要先找到这两个控件。
2、然后在这里先画上X和Y两轴线。
4、接下来，用标签输入这两个标志。
4、在使用这个形状按钮绘制。
5、一个个画过去线条就可以了。
注意事项：
VB可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active?X控件，用于高效生成类型安全和面向对象的应用程序。