vb6.0版本彩虹画图板代码

EYYLTV

于 2024-07-19 05:19:21 发布

阅读量498

点赞数 13

文章标签： vb6.0 开发语言算法

本文链接：https://blog.csdn.net/qq_32257509/article/details/140507318

版权

Private Sub Check1_Click()
If Check1.Value = 1 Then

Text2.Visible = True

ElseIf Check1.Value = 0 Then

Text2.Visible = False

End If
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 Command1_Click()
Text1.Text = “”

End Sub

Private Sub Form_Load()

Text2.Visible = False

Picture1.AutoRedraw = True
Picture1.AutoSize = True
End Sub

Private Sub Timer1_Timer()

Call Command2_Click

Dim s As String
Dim i As Integer

s = Text1.Text
For i = 1 To Len(s)

Select Case Mid(s, i, 2)

Case " "
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 0)
Picture1.Print " ";

Case “00”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(12, 0, 0)
Picture1.Print “■”;
Case “01”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(24, 0, 0)
Picture1.Print “■”;

Case “02”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(36, 0, 0)
Picture1.Print “■”;

Case “03”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(48, 0, 0)
Picture1.Print “■”;
Case “04”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(60, 0, 0)
Picture1.Print “■”;
Case “05”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(72, 0, 0)
Picture1.Print “■”;
Case “06”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(84, 0, 0)
Picture1.Print “■”;
Case “07”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(96, 0, 0)
Picture1.Print “■”;
Case “08”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(108, 0, 0)
Picture1.Print “■”;
Case “09”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(120, 0, 0)
Picture1.Print “■”;
Case “0a”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(132, 0, 0)
Picture1.Print “■”;
Case “0b”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(144, 0, 0)
Picture1.Print “■”;
Case “0c”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(156, 0, 0)
Picture1.Print “■”;
Case “0d”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(168, 0, 0)
Picture1.Print “■”;
Case “0e”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(180, 0, 0)
Picture1.Print “■”;
Case “0f”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(192, 0, 0)
Picture1.Print “■”;
Case “0g”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(204, 0, 0)
Picture1.Print “■”;
Case “0h”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(216, 0, 0)
Picture1.Print “■”;
Case “0i”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(228, 0, 0)
Picture1.Print “■”;
Case “0j”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(240, 0, 0)
Picture1.Print “■”;
Case “0k”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(252, 0, 0)
Picture1.Print “■”;

Case “0l”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 12, 0)
Picture1.Print “■”;
Case “0m”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 24, 0)
Picture1.Print “■”;
Case “0n”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 36, 0)
Picture1.Print “■”;
Case “0o”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 48, 0)
Picture1.Print “■”;
Case “0p”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 60, 0)
Picture1.Print “■”;
Case “0q”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 72, 0)
Picture1.Print “■”;
Case “0r”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 84, 0)
Picture1.Print “■”;
Case “0s”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 96, 0)
Picture1.Print “■”;
Case “0t”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 108, 0)
Picture1.Print “■”;
Case “0u”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 120, 0)
Picture1.Print “■”;
Case “0v”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 132, 0)
Picture1.Print “■”;
Case “0w”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 144, 0)
Picture1.Print “■”;
Case “0x”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 156, 0)
Picture1.Print “■”;
Case “0y”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 168, 0)
Picture1.Print “■”;
Case “0z”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 180, 0)
Picture1.Print “■”;
Case “0A”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 192, 0)
Picture1.Print “■”;
Case “0B”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 204, 0)
Picture1.Print “■”;
Case “0C”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 216, 0)
Picture1.Print “■”;
Case “0D”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 228, 0)
Picture1.Print “■”;
Case “0E”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 240, 0)
Picture1.Print “■”;
Case “0F”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 252, 0)
Picture1.Print “■”;

Case “0G”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 12)
Picture1.Print “■”;
Case “0H”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 24)
Picture1.Print “■”;
Case “0I”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 36)
Picture1.Print “■”;
Case “0J”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 48)
Picture1.Print “■”;
Case “0K”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 60)
Picture1.Print “■”;
Case “0L”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 72)
Picture1.Print “■”;
Case “0M”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 84)
Picture1.Print “■”;
Case “0N”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 96)
Picture1.Print “■”;
Case “0O”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 108)
Picture1.Print “■”;
Case “0P”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 120)
Picture1.Print “■”;
Case “0Q”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 132)
Picture1.Print “■”;
Case “0R”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 144)
Picture1.Print “■”;
Case “0S”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 156)
Picture1.Print “■”;
Case “0T”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 168)
Picture1.Print “■”;

Case “0U”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 180)
Picture1.Print “■”;
Case “0V”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 192)
Picture1.Print “■”;
Case “0W”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 204)
Picture1.Print “■”;
Case “0X”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 216)
Picture1.Print “■”;
Case “0Y”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 228)
Picture1.Print “■”;
Case “0Z”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 240)
Picture1.Print “■”;

Case “10”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(12, 12, 0)
Picture1.Print “■”;
Case “11”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(24, 24, 0)
Picture1.Print “■”;

Case “12”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(36, 36, 0)
Picture1.Print “■”;

Case “13”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(48, 48, 0)
Picture1.Print “■”;
Case “14”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(60, 60, 0)
Picture1.Print “■”;
Case “15”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(72, 72, 0)
Picture1.Print “■”;
Case “16”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(84, 84, 0)
Picture1.Print “■”;
Case “17”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(96, 96, 0)
Picture1.Print “■”;
Case “18”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(108, 108, 0)
Picture1.Print “■”;
Case “19”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(120, 120, 0)
Picture1.Print “■”;
Case “1a”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(132, 132, 0)
Picture1.Print “■”;
Case “1b”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(144, 144, 0)
Picture1.Print “■”;
Case “1c”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(156, 156, 0)
Picture1.Print “■”;
Case “1d”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(168, 168, 0)
Picture1.Print “■”;
Case “1e”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(180, 180, 0)
Picture1.Print “■”;
Case “1f”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(192, 192, 0)
Picture1.Print “■”;
Case “1g”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(204, 204, 0)
Picture1.Print “■”;
Case “1h”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(216, 216, 0)
Picture1.Print “■”;
Case “1i”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(228, 228, 0)
Picture1.Print “■”;
Case “1j”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(240, 240, 0)
Picture1.Print “■”;
Case “1k”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(252, 252, 0)
Picture1.Print “■”;

Case “1l”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 12, 12)
Picture1.Print “■”;
Case “1m”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 24, 24)
Picture1.Print “■”;
Case “1n”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 36, 36)
Picture1.Print “■”;
Case “1o”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 48, 48)
Picture1.Print “■”;
Case “1p”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 60, 60)
Picture1.Print “■”;
Case “1q”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 72, 72)
Picture1.Print “■”;
Case “1r”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 84, 84)
Picture1.Print “■”;
Case “1s”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 96, 96)
Picture1.Print “■”;
Case “1t”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 108, 108)
Picture1.Print “■”;
Case “1u”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 120, 120)
Picture1.Print “■”;
Case “1v”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 132, 132)
Picture1.Print “■”;
Case “1w”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 144, 144)
Picture1.Print “■”;
Case “1x”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 156, 156)
Picture1.Print “■”;
Case “1y”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 168, 168)
Picture1.Print “■”;
Case “1z”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 180, 180)
Picture1.Print “■”;
Case “1A”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 192, 192)
Picture1.Print “■”;
Case “1B”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 204, 204)
Picture1.Print “■”;
Case “1C”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 216, 216)
Picture1.Print “■”;
Case “1D”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 228, 228)
Picture1.Print “■”;
Case “1E”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 240, 240)
Picture1.Print “■”;
Case “1F”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 252, 252)
Picture1.Print “■”;

Case “1G”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(12, 0, 12)
Picture1.Print “■”;
Case “1H”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(24, 0, 24)
Picture1.Print “■”;
Case “1I”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(36, 0, 36)
Picture1.Print “■”;
Case “1J”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(48, 0, 48)
Picture1.Print “■”;
Case “1K”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(60, 0, 60)
Picture1.Print “■”;
Case “1L”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(72, 0, 72)
Picture1.Print “■”;
Case “1M”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(84, 0, 84)
Picture1.Print “■”;
Case “1N”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(96, 0, 96)
Picture1.Print “■”;
Case “1O”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(108, 0, 108)
Picture1.Print “■”;
Case “1P”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(120, 0, 120)
Picture1.Print “■”;
Case “1Q”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(132, 0, 132)
Picture1.Print “■”;
Case “1R”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(144, 0, 144)
Picture1.Print “■”;
Case “1S”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(156, 0, 156)
Picture1.Print “■”;
Case “1T”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(168, 0, 168)
Picture1.Print “■”;

Case “1U”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(180, 0, 180)
Picture1.Print “■”;
Case “1V”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(192, 0, 192)
Picture1.Print “■”;
Case “1W”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(204, 0, 204)
Picture1.Print “■”;
Case “1X”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(216, 0, 216)
Picture1.Print “■”;
Case “1Y”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(228, 0, 228)
Picture1.Print “■”;
Case “1Z”
Picture1.FontSize = 10
Picture1.ForeColor = RGB(240, 0, 240)
Picture1.Print “■”;