VB指导:生成auto-OK对话框
添加时间: 2007-5-6 2:33:03 作者: 计算机等级考试认证参考 阅读次数:53 来源: http://www.d9soft.com
一些程序可能需要在没有人干预的情况下自动运行。但是如果你需要让用户能够更改程序默认设置，或者需要让程序使用默认设置来运行呢？
实现这一想法的一个方法是使用我称之为 auto-OK 的对话框。在程序运行时，对话框会弹出来让用户根据其需要更改选项。如果用户在一段时间内不响应的话，对话框会自动关闭自己，程序则继续运行。下面我将向你示范如何创建这类对话框。
这种方法是基于 Timer 控件实现的。具体实现方法如下：
将一个 timer 放到窗体上，将其 Interval 属性设置为1000（即1秒）。
在窗体的 Load 事件过程中，初始化一个Time Remaining 变量，将其值设置为对话框应该保持打开的总秒数。同时，将 Timer 控件的 Enabled 属性设计为 True 以使其开始运行。
在 Timer 控件的 Timer 事件过程中，递减Time Remaining 变量（每次减1）。另外，你还可以在对话框上显示所剩时间。
在Time Remaining 变量减到0时，调用窗体的 OK 按钮的 Click 事件过程，关闭窗体继续执行程序。
下面是一些示例代码。在窗体一级，给出以下声明：
Const AUTOCLOSE = 5
Dim TimeLeftAs Integer
Here's the form's Load event procedure:
下面是窗体的 Load 事件过程：
Private Sub Form_Load()
TimeLeft = AUTOCLOSE
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
下面是 Timer 事件过程：
Private Sub Timer1_Timer()
TimeLeft = TimeLeft - 1
lblTimeRemaining.Caption = TimeLeft
If TimeLeft = 0 Then
Timer1.Enabled = False
Call OKButton_Click
End If
End Sub
在这个例子中，窗体的 OK 按钮名为OKButton。这里没有给出 OK 按钮的事件过程中的代码，里面应该包含关闭对话框以及继续执行程序所需的代码。
一个可选特性是使用窗体上任何控件的 Change 事件过程来关闭定时器。这样在用户在对窗体上的任何控件进行动作时会取消定时器递减。
上一篇文章: 使用VB的布局工具节省编程时间 下一篇文章: VB编程:如何在列表框中自动查找
相关软件: