【原】数字画图软件vb代码

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(255, 255, 255)

Picture1.Print "■";

Case 1

Picture1.FontSize = 10

Picture1.ForeColor = RGB(255, 0, 0)

Picture1.Print "■";

Case 2

Picture1.FontSize = 10

Picture1.ForeColor = RGB(255, 165, 0)

Picture1.Print "■";

Case 3

Picture1.FontSize = 10

Picture1.ForeColor = RGB(255, 255, 0)

Picture1.Print "■";

Case 4

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 255, 0)

Picture1.Print "■";

Case 5

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 255, 255)

Picture1.Print "■";

Case 6

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 0, 255)

Picture1.Print "■";

Case 7

Picture1.FontSize = 10

Picture1.ForeColor = RGB(128, 0, 128)

Picture1.Print "■";

Case 8

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 0, 0)

Picture1.Print "■";

Case 9

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 0, 0)

Picture1.Print "□";

Case "/"

Picture1.FontSize = 10

Picture1.ForeColor = RGB(0, 0, 0)

Picture1.Print ""

End Select

Next

End Sub