vb模仿画图软件

已于 2022-04-02 20:57:22 修改
阅读量892 收藏 5
点赞数 1
分类专栏： vb小程序 文章标签： 小程序 个人开发 其他
于 2022-04-01 13:18:30 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/MorganFish/article/details/123893865
版权

文章目录

介绍

制作：Morgan   
工具：VisualBasic6.0
邮箱：MorganFish0508@163.com
     1037502595@qq.com
GitHub：https://github.com/MorganNotFound
CSDN:https://blog.csdn.net/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色号
先看看效果：
v2.0

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

v3.0

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

再看看代码：

Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll2.Min = 0
HScroll2.Max = 255
HScroll3.Min = 0
HScroll3.Max = 255
HScroll4.Min = 1
HScroll4.Max = 20
Combo1.AddItem "line"
'Combo1.AddItem "circle"
'Combo1.AddItem "straight line"
Label8.Visible = False
HScroll5.Visible = False
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 Combo1.Text = "line" Then
Label8.Visible = False
HScroll5.Visible = False
If Button = 1 Then Line -(X, Y), Line1.BorderColor
End If
'If Combo1.Text = "circle" Then
'Label8.Visible = True
'HScroll5.Visible = True
'If Button = 1 Then Circle (X, Y), ((M - X) ^ 2 + (N - Y) ^ 2) ^ (1 / 2), Line1.BorderColor
'End If
'If Combo1.Text = "line" Then
'Label8.Visible = False
'HScroll5.Visible = False
'If Button = 1 Then Line Step(X, Y)-Step(M, N), Line1.BorderColor
'End If
End Sub
'Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.CurrentX = M
'Form1.CurrentY = N
'End Sub
Private Sub HScroll1_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text1.Text = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text2.Text = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text3.Text = HScroll3.Value
End Sub
Private Sub HScroll4_Change()
Form1.DrawWidth = HScroll4.Value
Line1.BorderWidth = HScroll4.Value
Text4.Text = HScroll4.Value
End Sub
Private Sub Label5_Click(Index As Integer)
Line1.BorderColor = Label5(Index).BackColor
End Sub
Private Sub label6_click()
Line1.BorderColor = Label6.BackColor
End Sub
Private Sub Label7_Click()
Label6.BackColor = Line1.BorderColor
End Sub
Private Sub Text1_Change()
HScroll1.Value = Text1.Text
End Sub
Private Sub Text2_Change()
HScroll2.Value = Text2.Text
End Sub
Private Sub Text3_Change()
HScroll3.Value = Text3.Text
End Sub
Private Sub Text4_Change()
HScroll4.Value = Text4.Text
End Sub

我原想添加画直线与圆的代码，结果发现并不令人满意，就禁用了hhh…不过基本算是完成了目标，并适当的美化了程序

v3.1

嘿嘿，为什么要有v3.1咧？是因为我闲嘛……不不不当然不是，这很重要，众所周知，vb只要类型不匹配就退出，万一输数据的时候一手误就退出咋办咧？别急别急，使用if判断一下不就好了嘛！先看看代码：

Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll2.Min = 0
HScroll2.Max = 255
HScroll3.Min = 0
HScroll3.Max = 255
HScroll4.Min = 1
HScroll4.Max = 20
Combo1.AddItem "line"
'Combo1.AddItem "circle"
'Combo1.AddItem "straight line"
Label8.Visible = False
HScroll5.Visible = False
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 Combo1.Text = "line" Then
Label8.Visible = False
HScroll5.Visible = False
If Button = 1 Then Line -(X, Y), Line1.BorderColor
End If
'If Combo1.Text = "circle" Then
'Label8.Visible = True
'HScroll5.Visible = True
'If Button = 1 Then Circle (X, Y), ((M - X) ^ 2 + (N - Y) ^ 2) ^ (1 / 2), Line1.BorderColor
'End If
'If Combo1.Text = "line" Then
'Label8.Visible = False
'HScroll5.Visible = False
'If Button = 1 Then Line Step(X, Y)-Step(M, N), Line1.BorderColor
'End If
End Sub
'Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.CurrentX = M
'Form1.CurrentY = N
'End Sub
Private Sub HScroll1_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text1.Text = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text2.Text = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Line1.BorderColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Text3.Text = HScroll3.Value
End Sub
Private Sub HScroll4_Change()
Form1.DrawWidth = HScroll4.Value
Line1.BorderWidth = HScroll4.Value
Text4.Text = HScroll4.Value
End Sub
Private Sub Label5_Click(Index As Integer)
Line1.BorderColor = Label5(Index).BackColor
End Sub
Private Sub label6_click()
Line1.BorderColor = Label6.BackColor
End Sub
Private Sub Label7_Click()
Label6.BackColor = Line1.BorderColor
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then
Text1.Text = 0
End If
If Text1.Text > 255 Then
Text1.Text = 255
End If
HScroll1.Value = Text1.Text
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text2_Change()
If Text2.Text = "" Then
Text2.Text = 0
End If
If Text2.Text > 255 Then
Text2.Text = 255
End If
HScroll2.Value = Text2.Text
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text3_Change()
If Text3.Text = "" Then
Text3.Text = 0
End If
If Text3.Text > 255 Then
Text3.Text = 255
End If
HScroll3.Value = Text3.Text
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text4_Change()
If Text4 = "" Then
Text4.Text = 1
End If
If Text4.Text = 0 Then
Text4.Text = 1
End If
If Text4.Text > 20 Then
Text4.Text = 20
End If
HScroll4.Value = Text4.Text
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

这个通过禁用数字和退格之外的按键来确保不会输错，又通过将超出范围的数字给强行改回来确保不会在清空Textbox的时候报错，不理解的可以到网上某度一下

v4.x：新的更新！！！

此版本还处在开发阶段但已上传到GitHub，新增了橡皮擦和本地图片预览与保存等许多功能，但是目前还未完成对于本地图片编辑功能的开发，努力ing…

下载地址

点此前往下载
作者会努力更新，尽量高度还原程序，也邀请大家一起贡献力量哦~

附言

其实还有许多美中不足之处，如果能想到更好的方案，烦请各位朋友在评论区指教，谢谢！
如果您喜欢我的作品，请点赞&关注哦，谢谢啦！

MorganFish
关注
  • 1
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
画图工具的VB实现
miaozk2006的专栏
05-26 612
直接上代码： '用户可以随意的用mouse画图，也可以引入图片，然后进行简单的处理，主要是添加两个picture控件 和几个按钮 Dim x1!, v1!, x2!, v2!, a1!Private Sub Command1_Click()                 ' 清屏的按钮    Picture2.Cls               '清屏End Sub Privat...
VB6.0软件。
04-13
VB6.0软件。。
VB源码（个人工具箱制作）特别趣味实例1
08-02
(共两个分卷) 这个是以前写的一个实例，我们不要求把所有的代码的都记住，但我们想做什么的时候，我们会查得到或者会调用这些代码就可以了，这是比较现实的。对新手很有用处 相片是我女朋友的，这里我就把它们删了，当时做这个工具的时候，只是给女朋友一个惊喜，以及方便她自己管理，这个工具箱里面有很多秘密，生成后一般人是找不到的， 比如你点它的左耳朵，右耳朵。它的脚板底，。。。。。这里列出一点罢了。当你点击它的脚板底的时候，整个屏幕会出现“爱你，永远”啊什么的，要删除的话，就点击屏幕上的某个字就可以了 ,就是那个“愿”字。点击旋转字上的“敏”字就可以进入个人基地了，密码就藏在原图里面的某个地方，这个先不告诉你。多了啦,自己慢慢找。。 不好意思，这里不支持网盘链接，只好发两次了
彩虹画图板软件vb代码
qq_32257509的博客
03-24 100
SavePicture Picture1.Image, App.Path & “\我的图片.jpeg”
VB仿Windows画图程序源码.7z
07-08
VB仿Windows画图程序源码，很像，感觉比系统的画图程序功能还要多。可以在上面打字，可以打开一幅背景图片，画线条，填充，不规则图形等。有兴趣的朋友可以下载自己研究一下，里面很多类是可以借鉴的。
数字画图软件vb代码
qq_32257509的博客
03-14 74
SavePicture Picture1.Image, App.Path & “\我的图片.jpeg”
vb.rar_VB软件
09-19
vb 一个比较简单的VB管理软件,适合初学者
VB模仿Windows计算器.zip
02-22
这是一个适合初学者入门做计算器的程序，拥有加减乘除、退格、清空以及平方，负数的功能，希望广大VB初学者多多练习！
VB模仿的纸牌游戏
05-07
内容索引:VB源码,游戏编程,纸牌,VB游戏源码　VB模仿的翻纸牌游戏，程序非常简单，因此如果你是VB新手的话，你会比较喜欢的。游戏玩法：左键翻牌或选牌，右键在目标位置放牌，双击浮在最上的已翻开的牌可按规则自动放...
VB软件试题.docx
12-18
VB软件试题.docx
vb画图工具
02-15
vb开发的画图工具，百分百仿制windows自带，并且体积极小，打开仅需0.5s
VB6.0编的CAD绘图软件
01-20
一款用VB编制的小型CAD制图软件，内含工程和EXE文件
11款多风格VB仿Windows风格按钮控件源码.rar
07-10
多风格按钮控件示例，一共有11款多风格VB仿Windows风格按钮控件源码，立体按钮风格、水晶按钮风格、圆角按钮风格等，示例中的按钮每款都有不同的按钮悬停风格，用在你的VB窗体中，一定会让你的窗口更加漂亮的。
vb图片图像剪切合成
02-18
图像剪切合成 运行程序后，添加要处理的图片到程序的图片编辑区，选择菜单栏中的“编辑”/“裁剪状态”命令，或是在工具栏中单击带裁剪图标的按钮，使程序切换到裁剪状态，在图片编辑区上按下鼠标左键，拖动鼠标，将使用矩形框选中鼠标划过的区域。按下组合键，或是选择菜单栏中的“编辑”/“复制”命令，将复制选中的区域。如果需要，在图片编辑区内添加一张要作为背景的图片，选择菜单栏中的“编辑”/“合成”命令，打开图像合成窗口，
用vb做的简易图片处理程序
12-20
用vb编写的简易图片处理程序，包括图片灰度处理、图片翻转、图片旋转、图片亮度处理、图片对比度处理、滤镜、万花筒等功能，供大家学习交流使用
vb.net画图程序介绍
SimilarDuckweed的博客
11-09 5335
方法： 1.新建一个窗体  2.在窗体上新建label 3.在窗体的左边缘新建VScrollBar1,在其下边新建TextBox1 4.在窗体的下边缘新建HScrollBar1，在其右边新建TextBox2 5.在窗体的右下角新建button1 程序： Imports System.Math Public Class Form1 Const pi As Doub
Winform仿Win10画图工具
-_^汪洸*的博客
12-30 1168
Winform仿Win10画图工具： 源码区： using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Thread...
========VB 图片剪切出来的三个方法，待代码。。。
白话魔法师
04-17 2911
对一个图片进行剪切有三种方法： 一、PictureClip 二、Object.PaintPicture 三、BitBlk  API的利用。
vb串口调试软件 源码
最新发布
08-10
VB串口调试软件的源码由VB语言编写，主要用于串口通信的调试和测试。以下是一个示例的代码： ``` Imports System.IO.Ports Public Class MainForm Dim myPort As New SerialPort() Private Sub MainForm_Load...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值