Oicq头像自己作(2)

　　　　　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/下载.

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有