UC知道帮我用VB制作画图程序
来源：百度知道 编辑：UC知道 时间：2024/06/17 08:16:14
帮我用VB制作一个画图程序
要和Windows的画图程序一样 就是Windows的画图程序的功能它都要有
注:
我只要代码,废话少说.
不要100%的像, 有常用的功能就可以了.
只要有直线,放大,反回上一步(ctrl+z),复制粘贴,填充就可以了,其他的就随便了
功能越多越好!!!
要和Windows的画图程序一样 就是Windows的画图程序的功能它都要有
注:
我只要代码,废话少说.
不要100%的像, 有常用的功能就可以了.
只要有直线,放大,反回上一步(ctrl+z),复制粘贴,填充就可以了,其他的就随便了
功能越多越好!!!
http://eden-server.vicp.net:8069/vbeden.com/download/code/code_4/drawer.zip
你给偶100元钱，偶保证给你源码，一定实现“画图”的所有功能……悬赏分偶不稀奇……
9494
要程序源码拿RMB
100都少了
二楼的那个很好
拿去做参考，要实现大部分功能，很费劲。麻烦，自己修改下吧。
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