vb画图程序代码

206 阅读 0 评论 136 点赞

我是靠谱客的博主坦率大雁，这篇文章主要介绍vb画图程序代码，现在分享给大家，希望可以做个参考。

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

最后

以上就是坦率大雁最近收集整理的关于vb画图程序代码的全部内容，更多相关vb画图程序代码内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。

点赞(136)

本文分类：人工智能
浏览次数：206 次浏览
发布日期：2023-11-16 23:45:06
本文链接：https://www.kaopuke.com/article/k-p-k_13_u_23_o_14_f2_14_z_2_z.html

相关文章

iOS开发-极光推送SDK使用笔记

iOS开发-极光推送SDK使用笔记

【iOS学习笔记】远程推送

iOS学习笔记22 推送通知

iOS开发笔记8：Remote Notification远程消息推送处理

iOS开发笔记8：Remote Notification远程消息推送处理

vb画图程序代码

php app用户验证失败,Apple App Store无法成功添加沙箱技术测试员账号

php app用户验证失败,Apple App Store无法成功添加沙箱技术测试员账号

Apple推送通知服务教程 PART-2

Apple推送通知服务教程 PART-2

iOS学习笔记5-推送(信鸽推送)

iOS学习笔记5-推送(信鸽推送)

评论列表共有 0 条评论

发表评论取消回复

立即
投稿返回
顶部