VB基础教程第8章课件.pptVIP

第8章 菜单设计 8.1菜单的设计 8.2设计弹出式菜单 8.3工具栏和状态栏 8.1菜单的设计 【例8.1】设计如图所示的界面 8.1菜单的设计 【例8.1】设计如图所示的界面 8.1菜单的设计 【例8.1】设计如图所示的界面 步骤 （1）启动菜单编辑器：【工具】|【菜单编辑器】 （2）添加菜单： （2）添加菜单： 【例8.2】在例8.1的基础上编写代码实现以下功能： “新建”：文本框清空 “打开”：打开在“打开对话框”中所选中的文本文件，并将其中内容显示在文本框中 “退出”：结束整个程序 【例8.2】在例8.1的基础上编写代码实现以下功能： “剪切”：将所选中的内容剪切到剪贴板中 “复制”：将所选中的内容复制到剪贴板中 “粘贴”：将剪贴板中的内容粘贴到文本框中 “查找”：在输入框中输入要查找的字符串并按“确定”按钮后，则第一个找到的反白显示 “替换”：用所输入的字符串替换文本框中选中的字符串 【例8.2】在例8.1的基础上编写代码实现以下功能： “字体”：将文本框中的所有字符字体改为在字体对话框中所选的字体。 “颜色”：将文本框中的所有字符颜色改为在颜色对话框中所选的颜色。 “文件”菜单下各下拉菜单的代码： Private Sub mnNew_Click() Text1.Text = End Sub Private Sub mnExit_Click() End End Sub “文件”菜单下各下拉菜单的代码： Private Sub mnOpen_Click() CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, a$ Text1.Text = Text1.Text a$ Chr$(13) Chr$(10) Loop Close #1 End Sub “编辑”菜单下各下拉菜单的代码 ： Private Sub Form_Load() Clipboard.Clear End Sub Private Sub mnCut_Click() Clipboard.SetText Text1.SelText Text1.SelText = mnPaste.Enabled = True End Sub “编辑”菜单下各下拉菜单的代码 ： Private Sub mnCopy_Click() Clipboard.SetText Text1.SelText mnPaste.Enabled = True End Sub Private Sub mnPaste_Click() Text1.SelText = Clipboard.GetText End Sub “编辑”菜单下各下拉菜单的代码 ： Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength 0 Then mnCut.Enabled = True mnCopy.Enabled = True End If End Sub “编辑”菜单下各下拉菜单的代码 ： Private Sub mnSearch_Click() search$ = InputBox(查找内容：, 查找) i = InStr(Text1.Text, search$) If i = 0 Then fn$ = 字符串“ search$ ”不存在! MsgBox fn$ Else Text1.SelStart = i – 1 Text1.SelLength = Len(search$) End If End Sub “编辑”菜单下各下拉菜单的代码 ： Private Sub mnDisplace_Click() Change$ = InputBox(替换内容：, 替换) If Change$ Then