实验9创建记事本应用程序.docVIP

实验9 创建记事本应用程序 实验目的 1、掌握菜单编辑器的使用方法； 2、熟悉菜单事件的编程方法； 3、了解手工创建工具栏和状态栏的基本方法。 实验内容 1、实验要求 设计一个文本编辑器，能够实现文本编辑的基本功能。 2、分析设计 在“文件”菜单中至少有“保存”、“另存为……”对话框。在“格式”菜单中有“字体”和“颜色”菜单项。在状态栏显示系统时间、编辑状态等，在工具栏上添加新建、打开、保存、剪切、复制、粘贴等按钮。 3、窗体属性 对象名 属性名 设置值 Form1 caption 文本编辑器 StatusBar1 Panels(2).Text 编辑\锁定 RichTextBox1 text 空 4、窗体设计 5、源代码 Private Sub Ecopy_Click() Clipboard.SetText RichTextBox1.SelText End Sub Private Sub Ecut_Click() Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = End Sub Private Sub Epaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub Private Sub fexit_Click() End End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu tpopmenu, , , , tpop3 End If End Sub Private Sub Form_Resize() RichTextBox1.Left = 0 If Vtoolbar.Checked = True Then RichTextBox1.Top = Toolbar1.Height Else RichTextBox1.Top = 0 End If RichTextBox1.Width = ScaleWidth If Vstatusbar.Checked = True Then RichTextBox1.Height = ScaleHeight - RichTextBox1.Top - StatusBar1.Height Else RichTextBox1.Height = ScaleHeight - RichTextBox1.Top End If End Sub Private Sub fnew_Click() RichTextBox1.Text = End Sub Private Sub fopen_Click() CommonDialog1.Filter = text(*.txt)|*.txt|all(*.*)|*.* CommonDialog1.ShowOpen RichTextBox1.LoadFile CommonDialog1.FileName, 1 End Sub Private Sub fsave_as_Click() CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName, 1 End Sub Private Sub fsave_Click() RichTextBox1.SaveFile CommonDialog1.FileName, 1 End Sub Private Sub help1_Click() SendKeys {F1} ‘将一个或多个按键消息发送到活动窗口 End Sub Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu tpopmenu, , , , tpop3 End If End Sub Private Sub search_Click() Static i Dim str$ str = InputBox(请输入要查找的内容：) i = InStr(i + 1, RichTextBox1.text, str) If i 0 Then RichTextBox1.SelStart = i - 1 RichTextBox1.SelLength = Len