第8章(讲课2次,上机1次)

《第8章(讲课2次,上机1次)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

3、标题”——“新建”“名称”——“mnuNew”建立“新建”菜单要建立分隔线“标题”中输入“-”建立“打开”菜单“标题”——“打开”“名称”——“mnuOpen”建立“退出”菜单“标题”——“退出”“名称”——“mnuExit”（2）添加菜单：建立“编辑”菜单“编辑”：“mnuEdit”“剪切”：“mnuCut”“复制”：“mnuCopy”“粘贴”：“mnuPaste”“查找”：“mnuSearch”“替换”：“mnuDisplace”“字体”：“mnuFont”“颜色”：“mnuColor”建立“格式”菜单“格式”：“mnuForm”【例8.2】在例

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

5、有字符颜色改为在颜色对话框中所选的颜色。P275【例8.2】在例8.1的基础上编写代码实现以下功能：“文件”菜单下各下拉菜单的代码：PrivateSubmnuNew_Click()txtWord.Text=""EndSubPrivateSubmnuExit_Click()EndEndSub“文件”菜单下各下拉菜单的代码：PrivateSubmnuOpen_Click()DimaAsStringtxtWord.Text=""dlgFile.ShowOpenOpendlgFile.FileNameForInputAs#1DoWhileNotEOF(1)L

6、ineInput#1,atxtWord.Text=txtWord.Text&a&Chr(13)&Chr(10)LoopClose#1EndSub“编辑”菜单下各下拉菜单的代码：PrivateSubForm_Load()Clipboard.ClearEndSubPrivateSubmnuCut_Click()Clipboard.SetTexttxtWord.SelTexttxtWord.SelText=""mnuPaste.Enabled=TrueEndSub清空剪贴板给剪贴板置数删除所选文本“编辑”菜单下各下拉菜单的代码：PrivateSubmnuC

7、opy_Click()Clipboard.SetTexttxtWord.SelTextmnuPaste.Enabled=TrueEndSubPrivateSubmnuPaste_Click()txtWord.SelText=Clipboard.GetTextEndSub从剪贴板取数“编辑”菜单下各下拉菜单的代码：PrivateSubtxtWord_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IftxtWord.SelLength>0ThenmnuCut.Enabled=Tr

8、uemnuCopy.Enabled=TrueEndIfEndSub判断是否选中文本“编辑”菜单下各下拉菜单的代码：PrivateSubmnuSearch_Click()DimiAsInteger,searchAsString,fnAsStringsearch=InputBox("查找内容：","查找")i=InStr(txtWord.Text,search)Ifi=0Thenfn="字符串“"&search&"”不存在!"MsgBoxfnElsetxtWord.SelStart=i–1txtWord.SelLength=Len(search)EndI

9、fEndSub第一次字符串位置反白显示PrivateSubmnuDisplace_Click()Dimcha