vb第十一章 对话框程序设计.ppt

第十一章 对话框程序设计 本章要点： 1. 自定义对话框 2. 公共对话框 3. 选项卡 对话框： 应用程序执行某项操作后打开的一个人机交互界面 主要用于：输入、显示消息 特点：特殊窗口 一般不能改变大小 一般不能切换到其他窗口 “设置”按钮的Click事件过程： Private Sub Command3_Click() Form2.SSTab1.Tab = 0 Form2.Show 1 End Sub “设置”对话框代码 “确定”按钮： Private Sub Command1_Click() If Option1.Value = True Then _ Form1.Timer1.Interval = 1000 If Option2.Value = True Then _ Form1.Timer1.Interval = 10000 If Option3.Value = True Then _ Form1.Timer1.Interval = 30000 If Option4.Value = True Then _ Form1.Timer1.Interval = 60000 For i = 1 To 4 Form1.PBar1(i).Max = Slider1(i).Value Next i Form2.Hide End Sub “取消”按钮 Private Sub Command2_Click() Form2.Hide End Sub * 11.1 自定义对话框 定义：将窗体设置成对话框风格。 步骤： 1．添加窗体 2. 根据需要定义窗体的外观，使其具有对话框风格。 明确属性：能否移动、改变尺寸、最大化、最小化 设置：BorderStyle、ControlBox、 MaxButton、MinButton 例如：BorderStyle—1 不能改变大小、无最大化、最小化按钮。 ControlBox—False 删除控制菜单框。 MaxButton—False 删除最大化按钮 MinButton—False 删除最小化按钮， 3. 在对话框上添加按钮 例如,“确定”与“取消”按钮。对于只显示一些文字，不需要用户做任何设置或选择的对话框，通常只有一个“确定”按钮。 设置： Default属性—设置为True, 运行时按下Enter键与单击该按钮效果相同。 Cancel属性—设置为True, 运行时按下Esc键与单击该按钮效果相同。 4.在对话框上添加其它控件 5. 在适当的位置编写显示对话框的代码。 两种显示方式：模式对话框与无模式对话框， (1)模式对话框：只有在该对话框操作完成之后才可以切换到本应用程序的其他窗口。常用于显示较重要信息。 如：InPutBox、MsgBox 自定义： 窗体名.Show vbModal 或：窗体名.Show 1 例: Private Sub Command1_Click() Form2.Show vbModal End Sub (2)无模式对话框：允许切换到其他窗体， 如“查找”对话框 自定义： 窗体名.Show vbModeless 或：窗体名.Show 0 或：窗体名.Show 例: Private Sub Command1_Click() Form2.Show vbModeless, Form1 End Sub Form2.Show , Form1 6. 编写从对话框退出的代码: Unload或Hide 例：Unload Form2 或： Form2.Hide Unload语句：将对话框从内存中删除，节省内存。 Hide方法：设置对话框的Visible属性为False 该对话框以及它的控件仍