VB程序设计--菜单、对话框及多重窗体.pptVIP

【例2 】设计菜单界面如下图所示，下拉菜单中的子菜单项用于对文本框设置字体、字号、文字颜色和效果。其中，效果菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框初始状态一致 菜单编辑器设置如下： 续上表： 菜单项事件代码设计如下： 【例3 】在例2的基础上设计窗体和文本框的弹出式菜单，如下图所示： 文本框的MouseDown事件代码设计如下： Private Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EE, 0 Or 0 End If End Sub 菜单项事件代码设计如下： 是一种特殊类型的窗体对象 主要用于用户和应用程序的交互 建立对话框的方法三种 使用预定义对话框，如函数 InputBox、MsgBox 自定义对话框 使用CommonDialog控件创建通用对话框 添加窗体：使用“工程/添加窗体”命令 将窗体定义成对话框风格，不能移动、最大或最小化 在对话框上添加按钮，如“确定”与“取消”按钮 在对话框上添加其它控件 在适当的位置编写显示对话框的代码 显示模式对话框（打开时焦点不可切换）: 窗体名.Show vbModal (或窗体名.Show 1) 显示无模式对话框: 窗体名.Show vbModeless (或窗体名.Show 0) 编写从对话框退出的代码 例如 Unload Form2 或 Form2.Hide 【例4】设计对话框Form2如下图所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框 对话框Form2代码设计如下： 通用对话框 通用对话框可置于窗体的任意位置，运行时不显示 设置通用对话框控件的“属性页” 在代码中使用以下方法打开对话框 ShowOpen：显示“打开文件”对话框√ ShowSave：显示“文件存储”对话框 ShowColor：显示“颜色”对话框 √ ShowFont：显示“字体”对话框 √ ShowPrinter：显示“打印”对话框 ShowHelp：显示“帮助”对话框 示例：commondialog1.showopen 【例5】使用打开文件对话框，在运行时打开一幅图像 “打开/另存为”对话框的属性页设置如下： “装入图像”按钮代码设计如下： 【例6】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色 “颜色”、“字体”对话框的属性页设置如下： “背景色”按钮Command1的Click事件过程如下： Private Sub Command1_Click() CommonDialog1.ShowColor‘将通用对话框显示为颜色对话框 Text1.BackColor = CommonDialog1.Color End Sub 常见错误及难点分析 2 ．使用Load语旬加载窗体，窗体不显示 Load语句将窗体装入内存并设置窗体的Visible属性为False（无论在设计时如何设置Visible属性），此时可以引用窗体中的控件及各种属性。为了使窗体可见，在用Load语句后，再将窗体的Visible属性设置为True，或使用Show方法加载窗体。 3．在因体加载过程中使用 SetFocus方法出现“无效的过程调用或参数”错误 焦点只能移到可视的窗体或控件上。在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以不能在 Form_ Load事件中把焦点移到正在加载的窗体上，也不能在Load事件内使用SetFocus方法将焦点移至窗体上的控件。此外，也不能把焦点移到Enabled或Vsible属性被设置为False的窗体或控件。如果已在设计时将Enabled或Visible属性设置为False，必须在使用SetFocus方法前将Enabled或Visible属性设置为True。 在首次用Load语句将窗体（假定该窗体在内存中还没有创建）调人内存之时依次发生Initialize和Load事件。Initialize是在窗体创建时发生的事件。在窗体的整个生命周期中， Initialize 事件只触发一次。用户可以将一个窗体装入内存或从内存中删除很多