VB基础教程第8章

《VB基础教程第8章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第8章菜单设计8.1菜单的设计8.2设计弹出式菜单8.3工具栏和状态栏8.1菜单的设计【例8.1】设计如图所示的界面MultiLine属性为TrueScrollBars属性为2-Vertical8.1菜单的设计【例8.1】设计如图所示的界面不可用状态有快捷键8.1菜单的设计【例8.1】设计如图所示的界面步骤（1）启动菜单编辑器：【工具】

2、【菜单编辑器】选择菜单添加位置选择菜单的级别选择菜单的级别（2）添加菜单：建立“文件”菜单“标题”——“文件”“名称”——“mnFile”“标题”——“新建”“名称”

3、——“mnNew”建立“新建”菜单要建立分隔线在“标题”中输入“-”建立“打开”菜单“标题”——“打开”“名称”——“mnOpen”建立“退出”菜单“标题”——“退出”“名称”——“mnExit”（2）添加菜单：建立“编辑”菜单“编辑”：“mnEdit”“剪切”：“mnCut”“复制”：“mnCopy”“粘贴”：“mnPaste”“查找”：“mnSearch”“替换”：“mnDisplace”“字体”：“mnFont”“颜色”：“mnColor”建立“格式”菜单“格式”：“mnForm”【例8.2】在

4、例8.1的基础上编写代码实现以下功能：“新建”：文本框清空“打开”：打开在“打开对话框”中所选中的文本文件，并将其中内容显示在文本框中“退出”：结束整个程序【例8.2】在例8.1的基础上编写代码实现以下功能：“剪切”：将所选中的内容剪切到剪贴板中“复制”：将所选中的内容复制到剪贴板中“粘贴”：将剪贴板中的内容粘贴到文本框中“查找”：在输入框中输入要查找的字符串并按“确定”按钮后，则第一个找到的反白显示“替换”：用所输入的字符串替换文本框中选中的字符串【例8.2】在例8.1的基础上编写代码实现以下功能：

5、“字体”：将文本框中的所有字符字体改为在字体对话框中所选的字体。“颜色”：将文本框中的所有字符颜色改为在颜色对话框中所选的颜色。“文件”菜单下各下拉菜单的代码：PrivateSubmnNew_Click()Text1.Text=""EndSubPrivateSubmnExit_Click()EndEndSub“文件”菜单下各下拉菜单的代码：PrivateSubmnOpen_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs

6、#1DoWhileNotEOF(1)LineInput#1,a$Text1.Text=Text1.Text&a$&Chr$(13)&Chr$(10)LoopClose#1EndSub“编辑”菜单下各下拉菜单的代码：PrivateSubForm_Load()Clipboard.ClearEndSubPrivateSubmnCut_Click()Clipboard.SetTextText1.SelTextText1.SelText=""mnPaste.Enabled=TrueEndSub清空剪贴板给剪贴板

7、置数删除所选文本“编辑”菜单下各下拉菜单的代码：PrivateSubmnCopy_Click()Clipboard.SetTextText1.SelTextmnPaste.Enabled=TrueEndSubPrivateSubmnPaste_Click()Text1.SelText=Clipboard.GetTextEndSub从剪贴板取数“编辑”菜单下各下拉菜单的代码：PrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingl

8、e,YAsSingle)IfText1.SelLength>0ThenmnCut.Enabled=TruemnCopy.Enabled=TrueEndIfEndSub判断是否选中文本“编辑”菜单下各下拉菜单的代码：PrivateSubmnSearch_Click()search$=InputBox("查找内容：","查找")i=InStr(Text1.Text,search$)Ifi=0Thenfn$="字符串“"&search$&"”不存在!"MsgBoxfn$ElseText1.SelStart=

9、i–1Text1.SelLength=Len(search$)EndIfEndSub第一次字符串位置反白显示PrivateSubmnDisplace_Click()Change$=InputBox("替换内容：","替换")IfChange$<>""ThenText1.SelText=Change$EndIfEndSub“编辑”菜单下各下拉菜单的代码：PrivateSubmnFont_Click()CommonDialog1.Flags=1CommonD