VB基础教程第8章.ppt

第8章菜单设计8.1菜单的设计8.1菜单的设计8.1菜单的设计步骤（2）添加菜单：
（2）添加菜单：
【例8.2】在例8.1的基础上编写代码实现以下功能：

“新建”：文本框清空

“打开”：打开在“打开对话框”中所选中的文本文件，并将其中内容显示在文本框中

“退出”：结束整个程序【例8.2】在例8.1的基础上编写代码实现以下功能：

“剪切”：将所选中的内容剪切到剪贴板中
“复制”：将所选中的内容复制到剪贴板中
“粘贴”：将剪贴板中的内容粘贴到文本框中

“查找”：在输入框中输入要查找的字符串并按“确定”按钮后，则第一个找到的反白显示

“替换”：用所输入的字符串替换文本框中选中的字符串【例8.2】在例8.1的基础上编写代码实现以下功能：

“字体”：将文本框中的所有字符字体改为在字体对话框中所选的字体。

“颜色”：将文本框中的所有字符颜色改为在颜色对话框中所选的颜色。
“文件”菜单下各下拉菜单的代码：“文件”菜单下各下拉菜单的代码：“编辑”菜单下各下拉菜单的代码：“编辑”菜单下各下拉菜单的代码：“编辑”菜单下各下拉菜单的代码：“编辑”菜单下各下拉菜单的代码：PrivateSubmnDisplace_Click()
Change$=InputBox("替换内容：","替换")
IfChange$<>""Then
Text1.SelText=Change$
EndIf
EndSubPrivateSubmnFont_Click()
CommonDialog1.Flags=1
CommonDialog1.ShowFont
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
EndSubPrivateSubmnColor_Click()
CommonDialog1.ShowColor
Text1.ForeColor=CommonDialog1.Color
EndSub8.2设计弹出式菜单“剪切”：“mnPopCut”
“复制”：“mnPopCopy”
“粘贴”：“mnPopPaste”PrivateSubForm_MouseUp(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenumnPop
EndIf
EndSubPrivateSubmnPopCut_Click()
mnCut_Click
EndSub
PrivateSubmnPopCopy_Click()
mnCopy_Click
EndSub
PrivateSubmnPopPaste_Click()
mnPaste_Click
EndSub8.3工具栏和状态栏计时器：Interval属性为1000

其他控件设置步骤：
（1）在“部件”对话框中选择MicrosoftWindowsCommonControls6.0在工具箱中添加图像列表、工具栏、状态栏等控件。(2)添加图像列表（ImageList）控件后，在其上按右键选“属性”，用“插入图片”按钮添加若干图片以备使用。图像控件在运行时不可见。改变按钮的高度在“按钮”选项卡中，用“插入按钮”插入按钮（4）添加状态栏（StatusBar）控件后，打开属性页对话框，在“窗格”选项卡中，用“插入窗格”按钮插入两个窗格（Panels，即状态栏控件中有两个格）

在索引为2的窗格中，单击“浏览”按钮，选择所需图片插入。在一个窗格中可以同时显示图和文字。PrivateSubText1_MouseMove(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
IfText1.SelLength>0Then
mnCut.Enabled=True
mnCopy.Enabled=True
StatusBar1.Panels(1)="选中"&Text1.SelLength&"个字符"
EndIf
EndSubPrivateSubText1_Click()
StatusBar1.Panels(1)="没选中字符"
EndSub

PrivateSubTimer1_Timer()
StatusBar1.Panels(2)=Time$()
EndSubPrivateSubToolbar1_ButtonClick(ByValButton
AsMSComctlLib.Button)
SelectCaseButton.Key
Case"cut"
mnC