Oicq头像自己作

　　　　　End If

　　　End Sub

　　4.New菜单的Click事件:

　　　Private Sub NewMenu_Click(Index As Integer)

　　　　Dim i As Integer

　　　　Dim j As Integer

　　　　　For i = 1 To 10

　　　　　　For j = 1 To 20

　　　　　　　imagearray(i, j) = " " '数组全清为空格

　　　　　　Next

　　　　　Next

　　　　　For i = 0 To 199

　　　　　　Shape1(i).FillColor = vbWhite '控件的颜色全置为白色

　　　　　Next

　　　End Sub

　　5.Char菜单的Click事件:

　　　Private Sub CharMenu_Click(Index As Integer)

　　　　Dim str As String

　　　　str = InputBox("请输入描绘字符串:", "输入描绘字符串:", curstr)

　　　　If str <> "" Then '如输入的字符串不为空

　　　　　curstr = str

　　　　End If

　　　End Sub

　　6.Save菜单的Click事件:

　　　Private Sub SaveMenu_Click(Index As Integer)

　　　　Dim i As Integer

　　　　Dim j As Integer

　　　　Dim fso As Object

　　　　Dim ts As TextStream

　　　　Dim filename As String

　　　　Set fso = CreateObject("Scripting.FileSystemObject")

　　　　filename = InputBox("请输入文件名:", "输入文件名:", "*.txt") '输入文件名

　　　　Set ts = fso.CreateTextFile(filename, True)

　　　　For i = 1 To 10

　　　　　For j = 1 To 20

　　　　　　ts.Write imagearray(i, j)

　　　　　Next

　　　　　ts.WriteLine '写一新行

　　　　Next

　　　End Sub

　　7.Exit菜单的Click事件:

　　　Private Sub ExitMenu_Click(Index As Integer)

　　　　end '程序结束

　　　End Sub

　　做完以上工作后就可以运行程序了,该程序只是一个简化版本,由许多可以改进的地方.以上代码大家也可到http://cattyxin.yeah.net/下载.

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!