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()
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, 1)
Case " "
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 0)
Picture1.Print " ";
Case "0"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(12, 0, 0)
Picture1.Print "■";
Case "1"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(24,0, 0)
Picture1.Print "■";
Case "2"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(36,0, 0)
Picture1.Print "■";
Case "3"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(48,0, 0)
Picture1.Print "■";
Case "4"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(60,0, 0)
Picture1.Print "■";
Case "5"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(72,0, 0)
Picture1.Print "■";
Case "6"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(84,0, 0)
Picture1.Print "■";
Case "7"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(96,0, 0)
Picture1.Print "■";
Case "8"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(108,0, 0)
Picture1.Print "■";
Case "9"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(120,0, 0)
Picture1.Print "■";
Case "a"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(132,0, 0)
Picture1.Print "■";
Case "b"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(144,0, 0)
Picture1.Print "■";
Case "c"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(156,0, 0)
Picture1.Print "■";
Case "d"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(168,0, 0)
Picture1.Print "■";
Case "e"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(180,0, 0)
Picture1.Print "■";
Case "f"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(192,0, 0)
Picture1.Print "■";
Case "g"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(204,0, 0)
Picture1.Print "■";
Case "h"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(216,0, 0)
Picture1.Print "■";
Case "i"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(228,0, 0)
Picture1.Print "■";
Case "j"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(240,0, 0)
Picture1.Print "■";
Case "k"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(252,0, 0)
Picture1.Print "■";
Case "l"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,12, 0)
Picture1.Print "■";
Case "m"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,24, 0)
Picture1.Print "■";
Case "n"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,36, 0)
Picture1.Print "■";
Case "o"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,48, 0)
Picture1.Print "■";
Case "p"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,60, 0)
Picture1.Print "■";
Case "q"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,72, 0)
Picture1.Print "■";
Case "r"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,84, 0)
Picture1.Print "■";
Case "s"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,96, 0)
Picture1.Print "■";
Case "t"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,108, 0)
Picture1.Print "■";
Case "u"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,120, 0)
Picture1.Print "■";
Case "v"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,132, 0)
Picture1.Print "■";
Case "w"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,144, 0)
Picture1.Print "■";
Case "x"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,156, 0)
Picture1.Print "■";
Case "y"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,168, 0)
Picture1.Print "■";
Case "z"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,180, 0)
Picture1.Print "■";
Case "A"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,192, 0)
Picture1.Print "■";
Case "B"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,204, 0)
Picture1.Print "■";
Case "C"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,216, 0)
Picture1.Print "■";
Case "D"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,228, 0)
Picture1.Print "■";
Case "E"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,240, 0)
Picture1.Print "■";
Case "F"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,252, 0)
Picture1.Print "■";
Case "G"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 12)
Picture1.Print "■";
Case "H"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 24)
Picture1.Print "■";
Case "I"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 36)
Picture1.Print "■";
Case "J"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 48)
Picture1.Print "■";
Case "K"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 60)
Picture1.Print "■";
Case "L"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 72)
Picture1.Print "■";
Case "M"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 84)
Picture1.Print "■";
Case "N"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 96)
Picture1.Print "■";
Case "O"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 108)
Picture1.Print "■";
Case "P"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 120)
Picture1.Print "■";
Case "Q"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 132)
Picture1.Print "■";
Case "R"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 144)
Picture1.Print "■";
Case "S"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 156)
Picture1.Print "■";
Case "T"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 168)
Picture1.Print "■";
Case "U"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 180)
Picture1.Print "■";
Case "V"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 192)
Picture1.Print "■";
Case "W"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 204)
Picture1.Print "■";
Case "X"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 216)
Picture1.Print "■";
Case "Y"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 228)
Picture1.Print "■";
Case "Z"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0,0, 240)
Picture1.Print "■";
Case "/"
Picture1.FontSize = 10
Picture1.ForeColor = RGB(0, 0, 0)
Picture1.Print ""
End Select
Next
End Sub
