vb画图程序代码

最新推荐文章于 2024-06-27 06:31:43 发布
最新推荐文章于 2024-06-27 06:31:43 发布
阅读量743 收藏
点赞数
文章标签： 人工智能 javascript c++
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/128767902
版权

Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Dim i As Long

For i = 0 To 9

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”;

Picture1.FontSize = Int(20) + 1
Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Print “■”

Next

End Sub

Private Sub Command2_Click()
Picture1.Cls
End Sub

Private Sub Command3_Click()
SavePicture Picture1.Image, App.Path & “\我的图片.jpeg”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.AutoSize = True
End Sub

Private Sub Timer1_Timer()

Call Command1_Click

Sleep 1

Call Command2_Click

Sleep 1

Call Command1_Click

End Sub

EYYLTV
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
基于VB的Picture绘图
link_word的博客
09-15 1471
VB picture控件绘制曲线图表
简易的VB画图程序源代码
05-07
内容索引:VB源码,图形处理,画图　　简易的画图程序，基于VB源代码实现可先把画笔颜色、设置画笔尺寸、先把所画的图形，包括矩形、圆形和直线三种模式，画错了可清除画布，画完可保存图像。
VB编写画图程序（含源代码）
11-26
运用vb程序编写画笔程序，可以直接运行，其中包含源代码
屏幕绘画 V1.1 - 一念（VB 绘制 图形）
9.歌工作室
12-09 722
屏幕绘画 V1.1 - 一念 注释：该程序用VB6.0编写，如果疑问在下方留言。 1.打开程序界面 2.打开程序后第二个界面。点击红黄两只笔图按钮，开始绘画。 3.默认是画随意线条，你也可以选择数学几何图形（圆形、方形、三角形、直角三角形、扇形、多边形、五角星、心形、弧线等），你可以点击黑色笔选择笔粗和画图样式及添加文字。颜色，颜色填充，线条粗细，保存绘画图片，画板、橡皮擦等功...
画图工具的VB实现
keenweiwei的专栏
11-23 6622
 ‘用户可以随意的用mouse画图，也可以引入图片，然后进行简单的处理，主要是添加两个picture控件 和几个按钮 (程序运行界面已上传到相册VB6中)Dim x1!, v1!, x2!, v2!, a1!Private Sub Command1_Click()                 清屏的按钮Picture2.Cls               清屏End SubPri
数字画图程序vb代码
qq_32257509的博客
03-14 132
SavePicture Picture1.Image, App.Path & “\我的图片.jpeg”
vb6.0版本vb绘图画图发声程序代码
最新发布
qq_32257509的博客
06-27 888
Text2.Text = Text2.Text & Mid(a, (Rnd * 4) + 1, 10) & Mid(b, (Rnd * 4) + 1, 10) & Mid(a, (Rnd * 4) + 1, 10) & Mid(b, (Rnd * 4) + 1, 10) & vbCrLf '输出n个随机字符串。Text2.Text = Text2.Text & Mid(a, (Rnd * 2) + 1, 3) & “.” '输出n个随机字符串。程序没问题，查看你的系统音量控制，是否调到最大，或选了静音。
vb6仿windows画图程序源代码
09-06
标题中的“vb6仿windows画图程序源代码”指的是使用Visual Basic 6（VB6）编程语言编写的，模仿Windows操作系统内置的“画图”应用程序的源代码。这个程序允许用户进行基本的图形绘制操作，如画线、填充、选择颜色和...
VB编写的 任意函数画图程序
06-21
在文本框里面 自行输入数学函数 计算出结果并画图 代码不复杂 主要通过VB的脚本解释器 来返回
VB几何画图程序-绘图程序实例.rar
07-10
VB6.0几何画图程序-绘图程序实例，可以将绘制的图形保存为.lne格式。可以绘制箭头，直线，方块，圆及颜色叠加的方块（叠加有颜色有偏差），可以对之前保存的图片查看绘制步骤，代码中包括结构类对象的保存问题，所绘制的图形可查看截图。
VB矢量绘图程序实例.7z
07-11
这是一款开源的完整矢量绘图控件源码，或者说是这个控件的一个典型应用，通过这个控件你可以画直线、弧线、矩形、圆角矩形、多边形、文本和图片等，而且还支持旋转、缩放、选择、排列等操作，功能还是不错的！
vb编写的简单画图程序
03-27
vb编写的画图程序。由于本人级别还停留在菜鸟级所以不能自己编写，此程序为别人编写
VB绘图工具（含大多数WINDOWS画图中的功能）
06-14
源代码、论文、幻灯全套。 功能：画笔、直线、矩形、圆形、圆角矩形、多边形、吸管、喷枪、放大镜、油漆桶、橡皮、剪切、复制、粘贴、撤销、新建、打开、保存、插入文字、绘制波形、绘制元器件、调整画布大小、图像大小、翻转
数字画图程序vb源代码.zip
01-30
【标题解析】：“数字画图程序vb源代码.zip”这个标题揭示了我们即将探讨的是一个基于Visual Basic（VB）编程语言开发的数字画图应用程序。这个程序的独特之处在于它能够根据用户输入的数字来确定画布上的颜色，从而...
简易画图程序vb源代码.zip
01-26
《简易画图程序VB源代码解析与探讨》 在编程领域，Visual Basic（简称VB）是一种广泛使用的编程语言，尤其适合初学者入门。本篇文章将深入解析“简易画图程序vb源代码”，揭示其背后的编程逻辑和技术细节，帮助读者...
画图程序vb源代码.zip
01-26
标题中的“画图程序vb源代码.zip”表明这是一个使用Visual Basic（VB）编程语言编写的简单画图程序的源代码包。Visual Basic是Microsoft开发的一种面向对象的编程环境，特别适合初学者和快速应用程序开发。这个程序...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值