程序readme怎么写( 二 ) _程序

3.VB程序实验怎么写这是我写的代码，相信对你有用 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load（) '设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub '设置编辑框的位置和大小 Private Sub Form_Resize() On Error Resume Next '出错处理 RichTextBox1.Top=20 RichTextBox1.Left=20 RichTextBox1.Height = ScaleHeight-40 RichTextBox1.Width = ScaleWidth-40 End Sub '新建文件 Private Sub mnuNew_Click() RichTextBox1.Text = "" '清空文本框 FileName = "未命名" Me.Caption = FileName End Sub '打开文件 Private Sub mnuOpen_Click() CommonDialog1.Filter = "文本文档（*.txt） *.txt RTF文档（*.rtf） *.rtf 所有文件（*.*） *.*" CommonDialog1.ShowOpen RichTextBox1.Text = "" '清空文本框 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName Me.Caption = "超级记事本：" & FileName End Sub '保存文件 Private Sub mnuSave_Click() CommonDialog1.Filter = "文本文档（*.txt） *.txt RTF文档（*.rtf） *.rtf 所有文件（*.*） *.*" CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3)) FileName = CommonDialog1.FileName Select Case FiType Case "txt" RichTextBox1.SaveFile FileName, rtfText Case "rtf" RichTextBox1.SaveFile FileName, rtfRTF Case "*.*" RichTextBox1.SaveFile FileName End Select Me.Caption = "超级记事本：" & FileName End Sub '退出 Private Sub mnuExit_Click() End End Sub '复制 Private Sub mnuCopy_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = "" End Sub '全选 Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text) End Sub '粘贴 Private Sub mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub '查找 Private Sub mnuFind_Click() sFind = InputBox（"请输入要查找的字、词：" ， "查找内容" ， sFind） RichTextBox1.Find sFind End Sub '继续查找 Private Sub mnuFindOn_Click() RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub '使用说明 Private Sub mnuReadme_Click() On Error GoTo handler RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中 Me.Caption = "超级记事本：" & "使用说明" Exit Sub handler: MsgBox "使用说明文档可能已经被移除，请与作者联系。
" ， vbOKOnly ， " 错误信息" End Sub '关于 Private Sub mnuAbout_Click() MsgBox "超级记事本 Ver1.0 版权所有（C） 2001 土人" ， vbOKOnly ， "关于" End Sub '设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单） Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit, vbPopupMenuLeftAlign Else Exit Sub End If End Sub 。
【程序readme怎么写】

文章插图