VB与sql数据库的连接教程.ppt

三、 弹出菜单(快捷菜单) 弹出菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。显示位置取决于单击鼠标键时指针的位置。设计与普通菜单相同（如果不希望菜单出现在窗口的顶部，该菜单名Visible属性设置为False ）。菜单弹出的方法： [对象.]PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键 Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign End Sub 例8.7 弹出菜单。 第一百九十一页，编辑于星期二：十三点 四十三分。 8.3 多重窗体和多文档窗体 一、多重窗体 1. 添加窗体 “工程|添加窗体” 新建 现存 添加“现存”窗体时要注意： 防止多个窗体的Name相同而不能添加； 添加的窗体实际是将其他工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。 2. 保存窗体 一个工程中有多个窗体，应分别取不同文件名保存在磁盘上，VBP工程文件中记录了该工程的所有窗体文件名。 第一百九十二页，编辑于星期二：十三点 四十三分。 3. 设置启动窗体 设置启动对象 4. 窗体语句 (1)Load语句：装入窗体到内存但没有显示窗体 形式： Load 窗体名称 (2)Unload语句：从内存删除窗体 形式： Unload 窗体名称 “工程/属性” “启动对象” 第一百九十三页，编辑于星期二：十三点 四十三分。 5. 窗体方法 (1)Show方法：显示一个窗体（当窗体没有Load，自动Load） [窗体名称].Show [模式] 0 － Modal：关闭才能对其他窗体进行操作。 1 － Modeless，可以对其他窗体进行操作。 (2) Hide方法：隐藏窗体，没有Unload删除 [窗体名称.] Hide 6. 不同窗体间数据的存取 (1)存取控件的属性 另一窗体名.控件名.属性 (2)存取变量的值 另一窗体名.全局变量名 第一百九十四页，编辑于星期二：十三点 四十三分。 例8.8 输入和计算学习成绩。 模块： Public MATH As Single Public PHYSICS As Single Public CHEMISTRY As Single Public CHINESE As Single Public ENGLISH As Single 第一百九十五页，编辑于星期二：十三点 四十三分。 二、 多文档界面(MDI) 例8.9 1. 创建和设计MDI窗体及其子窗体 (1) 创建和设计MDI窗体 创建： “工程/添加MDI窗体”命令 设计：一般有菜单栏、工具栏、状态栏 第一百九十六页，编辑于星期二：十三点 四十三分。 (2) 创建和设计MDI子窗体 创建： MDI子窗体是一个MDIChild属性为True的普通窗体。 要创建多个子窗体，通过窗体类来实现： Public Sub FileNewProc() Dim NewDoc As New frmMDIChild No = No + 1 NewDoc.Caption = no No NewDoc.Show End Sub 设计：可有菜单栏，但必须有文本框。 MDI子窗体的Name 第一百九十七页，编辑于星期二：十三点 四十三分。 2. MDI窗体与子窗体的交互 (1)活动子窗体和活动控件 MDI窗体的两个属性：ActiveForm 和ActiveContro。l 例：将子窗体的文本框中所选文本复制到剪贴板上。 ClipBoard.SetText frmMDI.ActiveForm.ActiveControl.SelText (2)显示MDI窗体及其子窗体 显示任何窗体的方法为show,还有有关规则： 加载子窗体时，其父窗体会自动加载并显示；反之则无。 MDI窗体有AutoShowChildren属性，决定