Question

求vb实现画图程序代码

用vb编程实现画图程序 要求：
界面如图所示，要求使用MDI窗体；
可以实现画直线，任意曲线，方框，圆和椭圆；
可以改变颜色；
可以任意擦除图形；
有菜单可以退出和重新开始

Answer 1

给你个参考：
'加入一个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

Answer 2

提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。
在窗体中添加一个Picture box，然后输入命令如下：

Dim oldx As Single
Dim oldy As Single
 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then       '当鼠标左建按下时发生
        Picture1.Line (oldx, oldy)-(X, Y)
        oldx = X
        oldy = Y
    End If
End Sub
  
Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    oldx = X
    oldy = Y
End Sub

Answer 3

VB6成熟代码 实现功能：直线圆矩形等几何绘制，可修改已画好几何图形颜色、线宽、大小，可删除图形等简单CAD绘图功能；

Answer 4

要求有点高

Answer 5

你这个恐怕得500元人民币，呵呵