《VB基础教程第8章课件》由会员分享，可在线阅读，更多相关《VB基础教程第8章课件（35页珍藏版）》请在金锄头文库上搜索。
1、第8章 菜单设计,8.1菜单的设计 8.2设计弹出式菜单 8.3工具栏和状态栏,8.1菜单的设计,【例8.1】设计如图所示的界面,8.1菜单的设计,【例8.1】设计如图所示的界面,8.1菜单的设计,【例8.1】设计如图所示的界面,步骤,（1）启动菜单编辑器：【工具】|【菜单编辑器】,选择菜单添加位置,（2）添加菜单：,要建立分隔线 在“标题”中输入“-”,（2）添加菜单：,建立“编辑 ”菜单,“编辑”：“mnEdit”,“剪切”：“mnCut” “复制”：“mnCopy” “粘贴”： “mnPaste” “查找”：“mnSearch” “替换”：“mnDisplace”,“字体”： “mnFo
2、nt” “颜色”：“mnColor”,建立“格式”菜单,“格式”：“mnForm ”,【例8.2】在例8.1的基础上编写代码实现以下功能： “新建”：文本框清空 “打开”：打开在“打开对话框”中所选中的文本文件，并将其中内容显示在文本框中 “退出”：结束整个程序,【例8.2】在例8.1的基础上编写代码实现以下功能： “剪切”：将所选中的内容剪切到剪贴板中 “复制”：将所选中的内容复制到剪贴板中 “粘贴”：将剪贴板中的内容粘贴到文本框中 “查找”：在输入框中输入要查找的字符串并按“确定”按钮后，则第一个找到的反白显示 “替换”：用所输入的字符串替换文本框中选中的字符串,【例8.2】在例8.1的基
3、础上编写代码实现以下功能： “字体”：将文本框中的所有字符字体改为在字体对话框中所选的字体。 “颜色”：将文本框中的所有字符颜色改为在颜色对话框中所选的颜色。,“文件”菜单下各下拉菜单的代码：,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 Whi
4、le 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,清空剪贴板,给剪贴板置数,删除所选文本,“编辑”
5、菜单下各下拉菜单的代码 ：,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.S
6、elLength 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$
7、) End If End Sub,第一次字符串位置,反白显示,Private Sub mnDisplace_Click() Change$ = InputBox(替换内容：, 替换) If Change$ Then Text1.SelText = Change$ End If End Sub,“编辑”菜单下各下拉菜单的代码 ：,Private Sub mnFont_Click() CommonDialog1.Flags = 1 CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = Comm
8、onDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End Sub,“格式”菜单下各下拉菜单的代码 ：,Private Sub mnColor_Click() CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub,“格式”菜单下各下拉菜单的代码 ：,8.2设计弹出式菜单,【例8.3】在例8.2中添加弹出式菜单功能（含有“剪切”、“复制”、“粘贴”）。,“剪切
9、”：“mnPopCut” “复制”：“mnPopCopy” “粘贴”：“mnPopPaste”,Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnPop End If End Sub,Button：用户所按的鼠标键 1左键，2右键，4中间键,控制弹出式菜单,Private Sub mnPopCut_Click() mnCut_Click End Sub Private Sub mnPopCopy_Click(
10、) mnCopy_Click End Sub Private Sub mnPopPaste_Click() mnPaste_Click End Sub,直接调用即可,8.3工具栏和状态栏,【例8.4】在例8.2基础上添加图像列表控件、工具栏和状态栏。当文本框中选中一些文字后，状态栏的第一个格中显示所选中字符的个数，第二个格中始终显示当前时间。,计时器：Interval属性为1000 其他控件设置步骤： （1）在“部件”对话框中选择Microsoft Windows Common Controls 6.0在工具箱中添加图像列表、工具栏、状态栏等控件。,(2)添加图像列表（ImageList）控件
11、后，在其上按右键选“属性”，用“插入图片”按钮添加若干图片以备使用。图像控件在运行时不可见。,改变按钮的高度,在工具栏中用图像,（3）添加工具栏（Toolbar）后，打开属性页对话框。,在 “按钮”选项卡中，用“插入按钮”插入按钮,（4）添加状态栏（StatusBar）控件后，打开属性页对话框，在“窗格”选项卡中，用“插入窗格”按钮插入两个窗格（Panels，即状态栏控件中有两个格） 在索引为2的窗格中，单击“浏览”按钮，选择所需图片插入。在一个窗格中可以同时显示图和文字。,Private Sub Text1_MouseMove(Button As Integer, Shift As Inte
12、ger, X As Single, Y As Single) If Text1.SelLength 0 Then mnCut.Enabled = True mnCopy.Enabled = True StatusBar1.Panels(1) = 选中 & Text1.SelLength & 个字符 End If End Sub,Private Sub Text1_Click() StatusBar1.Panels(1) = 没选中字符 End Sub Private Sub Timer1_Timer() StatusBar1.Panels(2) = Time$() End Sub,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case cut mnCut_Click Case copy mnCopy_Click Case paste mnPaste_Click End Select End Sub,不能在Click事件中编写,
