Question

帮我用VB制作画图程序

帮我用VB制作一个画图程序
要和Windows的画图程序一样 就是Windows的画图程序的功能它都要有
注:
我只要代码,废话少说.
不要100%的像, 有常用的功能就可以了.
只要有直线,放大,反回上一步(ctrl+z),复制粘贴,填充就可以了,其他的就随便了
功能越多越好!!!

Answer 1

拿去做参考，要实现大部分功能，很费劲。麻烦，自己修改下吧。

Option Explicit

' 声明窗体级逻辑变量 DrawNow，用来控制开始绘图与停止绘图。
Dim DrawNow As Boolean
' 初始化窗体及绘图状态
Private Sub Form_Load()
Form1.Caption = "简单的鼠标绘图板"
Form1.ForeColor = vbRed
Form1.DrawWidth = 2
DrawNow = False
End Sub
' MouseDown事件将通知应用程序开始绘图，并设置窗体的当前坐标CurrentX与CurrentY 属性。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
DrawNow = True
CurrentX = X
CurrentY = Y
End Sub
' MouseUp事件将通知应用程序终止绘图，将DrawNow 的值赋值为False
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
DrawNow = False
End Sub
' 当DrawNow为True时，MouseMove事件过程才绘制直线，否则不执行任何操作。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If DrawNow Then Line -(X, Y)
End Sub

Answer 2

你给偶100元钱，偶保证给你源码，一定实现“画图”的所有功能……悬赏分偶不稀奇……

Answer 3

http://eden-server.vicp.net:8069/vbeden.com/download/code/code_4/drawer.zip

Answer 4

二楼的那个很好

Answer 5

9494
要程序源码拿RMB
100都少了