2015VB上课课件资料.ppt

通用对话框 通用对话框 应用程序有单窗体、多窗体情况，多窗体时： 1、设置启动窗体 工程属性 → 通用 → 启动对象 2、不使用启动窗体 以一个过程开始，选择 Sub Main 5.6 多窗体 5.6 Sub Main 如果一应用程序只包含1个窗体，则程序从执行窗体Form 的load过程开始。如果有多个窗体，则从设计阶段建立的第1 个窗体开始执行。有时，希望在运行窗体程序之前先执行一 些操作，此时可以将这些操作写在Sub Main过程中。 Sub?Main是在模块中定义的，如果1个程序中包含有多 个模块，只能允许有1个Sub?Main过程。 可以指定程序从哪一个窗体或是Sub Main开始执行。 例：0~12时，显示form1，其他时候显示form2 第7章 菜单和工具栏 Visual Basic 程序设计基础 里仁学院 司亚利 7.1 菜单设计 1、菜单分类：下拉式菜单、弹出式菜单。 2、设计菜单的工具：菜单编辑器 3、启动菜单编辑器： 工具→菜单编辑器 单击窗体右键→菜单编辑器 7.1 菜单设计 1、下拉式菜单 标题、名称(必有，不能重复) 分隔线：- 热键： 快捷键：在下拉列表中选 2、弹出式菜单 设置顶层菜单隐藏 编写mouseup事件, popupmenu 菜单名 3、菜单控件数组 同名，index设置索引值 例题： 文件 形状 工程/部件 选定部件标签 选定Microsoft CommDialog Control 6.0 通用对话框添加到工具箱 确定 通用对话框图标 通用对话框可以提供6种形式的对话框，通过设置Action属性值或调用Show方法来建立不同类型的对话框。如下表： 表9.1 打开通用对话框的方法与Action属性设置 类型 Action属性 方法 无对话框 0 — “打开”对话框 1 ShowOpen “另存为”对话框 2 ShowSave “颜色”对话框 3 ShowColor “字体”对话框 4 ShowFont “打印”对话框 5 ShowPrinter “帮助”对话框 6 ShowHelp 鼠标事件 MouseMove 每当鼠标指针移动到屏幕新位置时发生 MouseDown 按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生 参数Button值 参数（Button） 值 说明 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 键盘事件 KeyPress 按下对应某ASCII 字符的键。 KeyDown 按下键盘的任意键。 KeyUp 释放键盘的任意键只有获得焦点的对象才能够接受键盘事件。 图片框标签数组 第一个Private Sub Form_Load()n = 0For i = 0 To 15For j = 0 To 15 Label1(n).Left = j * 200 Label1(n).Top = i * 200 n = n + 1 If i * j 15 * 15 Then  Load Label1(n) Label1(n).Visible = True end ifNextNextEnd SubPrivate Sub Label1_MouseDown()If Button = 1 ThenLabel1(Index).BackColor = vbBlackElseLabel1(Index).BackColor = vbWhiteEnd IfEnd Sub 例6.10 设计一个造字程序 7.2 创建工具栏 1、工程→部件→控件→microsoft windows common control6.0 2、toolbar控件：具体设置工具栏 设置属性 3、imagelist控件：存放工具栏上显示的图片 图像 到工具栏属性中设置通用和按钮 7.3 Windows界面样式 1、Windows界面样式：SDI、MDI、资源管理器界面。 2、设计SDI 3、设计MDI 多文档界面由父窗口和子窗口组成 父窗口就是MD