vb鼠标涂鸦板的制作

实验要求

掌握使用Picture1_MouseDown语句/Picture1_MouseUp，Picture1_MouseMove语句和Command Dialog的实现方法。
实现鼠标画图程序。
编写实验报告。

效果

清除画布的代码（本实验没添加这个功能，留着备用）

Privte Sub Command2_Click()Picture1.Cls
End Sub

代码

Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = TrueCommonDialog1.DialogTitle = "颜色"CommonDialog1.ShowColorIf Err <> 32755 ThenPicture1.ForeColor = CommonDialog1.ColorEnd If
End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = False
End SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1
End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2
End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 3
End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 50
End SubPrivate Sub Picture1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)flag = Truex1 = xy1 = yPicture1.Line (x1, y1)-(x1 + 1, y1 + 1)
End SubPrivate Sub Picture1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = xy2 = yPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd Sub
Private Sub Picture1_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)flag = False
End Sub

vb鼠标涂鸦板的制作相关推荐

Canvas制作简易涂鸦板
使用canvas可以做到许多意想不到的功能,尤其动画方面,这次在vue项目中使用canvas制作一个简易涂鸦板 1. html部分代码 <template><div id=" ...
电脑PHP动画制作画板,涂鸦板简单实现 Html5编写属于自己的画画板
这篇文章主要教大家如何使用Html5编写属于自己的画画板,进行绘画.调整颜色等操作,感兴趣的小伙伴们可以参考一下最近了解到html5强大的绘图功能让我惊奇,于是,写了个小玩意---涂鸦板,能实现功能 ...
H5小游戏 - canvas涂鸦板
H5小游戏 - 涂鸦板效果截图: html代码如下: <!DOCTYPE html> <html><head><meta charset="utf ...
[转载]Qt涂鸦板程序图文详细教程..Qt涂鸦板程序图文详
原文地址:Qt涂鸦板程序图文详细教程..Qt涂鸦板程序图文详细教程..作者:棰滈櫟鍚 Technorati 标签: QT http://www.yafeilinux.com/?p=379 (说明:这是 ...
【Qt】2D绘图之涂鸦板
00. 目录文章目录 00. 目录 01. 概述 02. 开发环境 03. 程序设计(基本功能) 04. 程序设计(放大功能) 05. 程序设计(放大功能) 06. 附录 01. 概述结合前面所学 ...
[Qt教程] 第17篇 2D绘图（七）涂鸦板
[Qt教程] 第17篇 2D绘图(七)涂鸦板楼主发表于 2013-5-2 21:37:41 | 查看: 1255| 回复: 16 涂鸦板版权声明该文章原创于Qter开源社区(www.qter ...
UI进阶--Quartz2D和触摸事件的简单使用：简易涂鸦板
需求:实现一个简易的涂鸦板应用,使用鼠标在涂鸦板内拖动即可进行涂鸦,点击保存按钮,可以把完成的涂鸦保存,点击回退按钮可以向后退回一步,点击清空可以让涂鸦板清空. 实现步骤: 1.布局storyboar ...
android 简易涂鸦板,canvas实现的简易涂鸦板效果
用canvas实现的简易涂鸦板效果,用鼠标点击在画布上随意涂鸦涂鸦 *{ margin: 0; padding: 0; } #canvas1{ box-shadow: 0 5px 40px blac ...
HTML5实现涂鸦板
最近闲的,看了看html5,强大的绘图功能让我惊奇,于是,写了个小玩意---涂鸦板,能实现功能有:画画,改色,调整画笔大小 html5的绘图可以分为点,线,面,圆,图片等,点和线,这可是所有平面效果的 ...

vb鼠标涂鸦板的制作

实验要求

效果

代码

vb鼠标涂鸦板的制作相关推荐

最新文章

热门文章