1. IT分享知识网首页

vb画图程序代码「终于解决」

老牧童 • • 未分类 • 阅读 258

vb画图程序代码「终于解决」SavePicturePicture1.Image,App.Path&“\我的图片.jpeg”

大家好，欢迎来到IT知识分享网。

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

免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/26240.html

赞 (0)
老牧童老牧童
0

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注微信