7.3 菜单-7.4 多重窗体课件.ppt

菜单在windows应用程序中有广泛的应用，是应用程序图形化界面中一个必不可少的组成元素。;一、菜单系统的功能;二、菜单系统的种类和结构;二、菜单系统的种类和结构;　7.3 菜单设计;　7.3.1 菜单编辑器; （3）结构 ;①属性区 属性区为窗口标题栏下面的 5 行，用来输入或修改菜单项，设置菜单控件的主要属性。;③菜单项列表区;;菜单控件的主要属性 ;（2）菜单控件的事件 菜单控件只有一个Click事件。;例7.15 设计一个类似Word的带下拉式菜单的简易文本编辑器。;1．下拉式菜单的设计步骤 （1）建立窗体，添加控件； （2）打开菜单编辑器，设计菜单及其属性； （3）为菜单项编写相应的事件过程。;（1）建立窗体，添加控件;（2）打开菜单编辑器，设计菜单及其属性;　7.3.2 下拉式菜单 ;（3） 编写菜单事件过程 ①最简单的情形 编写“文件”主菜单中的“退出” 菜单项的事件过程只需用End方法即可。 例题代码 Private Sub FileExit_Click() End End Sub; ②菜单的控制——菜单项的状态 有效性控制Enabled 菜单项的复选标志Checked 在菜单项上添加或去除选中符号。 可见性Visible ;菜单项的状态控制实现过程： （最初编辑子菜单都不可用） 例题代码 Private Sub Form_Load() Clipboard.Clear EditCopy.Enabled = False EditCut.Enabled = False EditPaste.Enabled = False End Sub;菜单项的状态控制实现过程： （点击“编辑”主菜单项后，应先判断文本框中是否有文本被选中） 例题代码 Private Sub Editmenu_Click( ) If Text1.SelLength 0 Then EditCut.Enabled = True EditCopy.Enabled = True Else EditCut.Enabled = False EditCopy.Enabled = False End If End Sub;（3） 编写菜单事件过程 ③编写具体功能代码——文件子菜单功能 通用对话框(Microsoft common Dialog control 6.0) 应用。;例题代码（新建文件） Private Sub FileNew_Click() Text1.Text = End Sub;例题代码（打开文件） Private Sub FileOpen_Click() On Error GoTo nofile 设置错误陷阱 CommonDialog1.InitDir = C:\Windows 设置属性（可以在设计中完成） CommonDialog1.Filter = 文本文件 | *.Txt CommonDialog1.CancelError = True CommonDialog1.ShowOpen 或用Action = 1显示文件打开对话框 Text1.Text = 清除文本框的内容 ;例题代码续（打开文件） Open CommonDialog1.FileName For Input As #1 打开文件进行读操作 Do While Not EOF(1) Line Input #1, inputdata 读一行数据到变量inputdata Text1.Text = Text1.Text inputdata vbCrLf vbCrLf为回车换行 Loop Close #1 关闭文件 Exit Sub nofile: 错误处理 If Err.Number = 32755 Then Exit Sub