VB第四章高级界面设计.pptVIP

第四章 高级界面设计 菜单设计 工具栏和状态栏 通用对话框 MDI窗口 常用重要控件 VB特殊对象 VB菜单设计 菜单编辑器 编写菜单处理代码 菜单事件处理子程序） 弹出菜单 动态菜单 菜单编辑器 菜单项属性 Caption(标题):显示在菜单中的文字(可定义访问键) Name(名称):标识菜单对象名称 Index(索引):对于菜单数组，该菜单项的索引号 ShoutCut(快捷键):末级菜单才定义 Checked(复选):菜单项前面加上 Enabled(有效):菜单项可用 Visible(可见):菜单项可见 WindowList(显示窗口列表):MDI窗口显示窗口列表 NegotiatePosition(协调位置):激活OLE时本菜单项位置 HelpContextID(帮助上下文ID):对应该菜单的帮助序号 菜单编辑器说明 每个菜单项必须有名称 菜单分隔线，采用-，但必须给其名称 只有最末级菜单可以定义快捷键 不能有多余的空白菜单项，最后一项只能向下移动一行 左右箭头调整菜单项的从属关系 实际完成确定后在当前窗体上产生一个菜单 编写菜单处理代码 处理子程序产生方法 在窗体窗口中选择某个菜单项单击鼠标左键，菜单对象响应Click事件 在代码窗口中分别选择菜单对象（以设计时的菜单名称标识）和Click事件 示例 Private Sub System_Parameter_Click() Form9.Show vbModal End Sub 弹出菜单 方法 采用菜单编辑器编辑一个主菜单(如EditManage)及其所属子菜单(如Cut等)，必要时将其Visible属性设成False 编写Form的MouseDown事件，用PopUpMenu方法弹出菜单 Private Sub Form_MouseDown( …) If Button = 2 Then PopupMenu EditManage End Sub 编写子菜单项对应的事件处理子程序 PopupMenu 菜单名 , 标志, x,y 动态菜单 在菜单编辑器中，建立第一个菜单项（如CurrentFile） ，设其Index=0 对代码的某个事件处理子程序中(如Form_Load())用Load语句动态加载菜单 Load CurrentFile(1) CurrentFile(1).Caption=FileName$ CurrentFile(1).Visible=True 必要时用UnLoad语句卸载菜单项 UnLoad CurrentFile(1) 工具栏 将ToolBar(工具栏) 和ImageList加入VB控件箱 工程部件Microsoft Windows Common Controls 6.0 在Form上放置一个工具栏控件对象ToolBar1和一个图象列表控件对象ImageList1(ToolBar1放在菜单下面，ImageList1位置任意) 向ImageList1中加入图象 先选择图象的大小，一般选择16x16或32x32 插入图象，设置每个图象的Index(索引，从1开始)、Key(关键词)、Tag(标记) 设置ToolBar1对象的属性 编写工具栏事件处理子程序 工具栏属性设置 选择与工具栏相应的图象列表(ImageList1) 插入按钮，设置每个按钮的属性 Index:按钮的序号(1开始)； Caption:按钮上的文字 Key:可用于检索按钮； Description:描述 Value:按钮按下的状态； TooltipText:小提示 Tag:按钮的标记 Image:按钮上的图标，为ImageList1中的图象索引或关键词 Style: = 0 普通按钮; = 1 开关按钮; = 2 成组按钮; = 3 分隔按钮; = 4 占位按钮; = 5 菜单按钮 （只有Sp4以上才有） 工具栏事件处理子程序 状态栏 将StatusBar(状态栏)控件加入VB控件箱 工程部件Microsoft Windows Common Controls 6.0 在Form上放置一个状态栏控件对象StatusBar1(放在Form的最下面) 设置状态栏的Style(样式)属性 (普通多格sbrNomal或单格sbrSimple) 给状态栏添加新的格(Panel)，并设置每一格的属性 将文字写入状态栏的格中 StatusBar1.SimpleText=打开文件 StatusBar1.Panels(1).Text=打开文件