vb模仿画图软件

介绍

制作：Morgan   
工具：VisualBasic6.0
邮箱：MorganFish0508@163.com
     1037502595@qq.com
GitHub：https://github.com/MorganNotFound
优快云:https://blog.youkuaiyun.com/MorganFish
欢迎点赞+收藏+下载+评论   

附代码，附源程序，附成品

代码&制作

这个程序说难不难，就是制作要有耐心，否则难以完成。不过这也是优点，可以尽情创作、更改，在总体的框架结构下，可以一步步的完善，下面我将展示一下我三个阶段的代码，并展示我的制作方法（但准确来说如果要改进还可以有v4.0、v5.0版本）

v1.0

（一）新建一个标准exe并适当调大窗口，为画图提供空间   
（二）插入三个HScrollBar控件即水平滚动条,并使用三个Label来对滚动条控制对象进行标注，右侧再加入一个垂直滚动条VScrollBar，更改HScroll1~3的Min属性为0，Max为255，VScroll1的Min为1，Max为15   
（三）插入一个Label，删除其Caption   
（四）插入代码

代码如下：

Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll2.Min = 0
HScroll2.Max = 255
HScroll3.Min = 0
HScroll3.Max = 255
VScroll1.Min = 1
VScroll1.Max = 15
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Line -(X, Y), RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll1_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub VScroll1_Change()
Form1.DrawWidth = VScroll1.Value
End Sub

这里是运用了MouseDown和MouseMove的检测，记录按下鼠标时的坐标，然后使用line进行绘画

v2.0

使用一个line1替代了变换颜色的label，使其可以同时预览画笔粗细，为了方便还将VScroll换成了HScroll，新增TextBox显示RGB色号
先看看效果：

我插入了许多色块（label5(index as integer)）,单击选中绘画颜色，成品都在我的GitHub仓库，代码和v3.0的合并在了一起，由于3的代码其实不太完善，我都使用'把代码禁用了，可以自己更改哦~
注意：此时的Textbox仅可以用来输出，v3.0可以输入数据，但是输错类型将退出程序，v3.1修复了此bug

v3.0

新增自定义颜色存储并支持画圆（增用了一个Combo1），并升级了TextBox使其同时可以控制颜色，即可以输入来改变颜色
看看效果：

再看看代码：

Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max