VB指导:生成autoOK对话框

有些程序可能需要自动运行，无需人工干预。但是，如果您需要允许用户更改程序的默认设置，或者让程序以默认设置运行，该怎么办呢？

实现这个想法的一个方法是使用一个我称之为自动确认的对话框。程序运行时，会弹出一个对话框，供用户根据需要更改选项。如果用户在一段时间内没有响应，对话框将自动关闭，程序将继续运行。我将向你展示如何创建这种对话框。

该方法基于定时器控制实现。具体实现方法如下:

在窗体上放置一个计时器，并将其interval属性设置为1000(即1秒)。
在窗体的load事件期间，初始化一个剩余时间变量，并将其值设置为对话框应保持打开的总秒数。同时将timer控件的enabled属性设置为true开始运行。
在定时器控件的定时器事件期间，递减剩余时间变量(每次减1)。此外，您还可以在对话框上显示剩余时间。
当剩余时间变量减少到0时，调用窗体“确定”按钮的click事件过程，关闭窗体，继续执行程序。
下面是一些示例代码。在表单级别，给出以下语句:

const auto close = 5
dim time left as integer

下面是窗体的load事件过程:

下面是窗体的load事件过程:

私有子窗体_load()

time left = autoclose
定时器1 . interval = 1000
定时器1.enabled = true

末端接头

下面是定时器事件过程:

私有子定时器1_timer()

time left = time left-1
lbltimeremaining . caption = time left
如果timeleft = 0，则
timer 1 . enabled = false
call ok button _ click
end if

末端接头

在本例中，窗体的“确定”按钮被命名为“确定按钮”。这里没有给出ok按钮的事件过程中的代码，它应该包含关闭对话框并继续执行程序所需的代码。

一个可选功能是使用窗体上任何控件的change事件过程来关闭计时器。这样，当用户操作表单上的任何控件时，计时器递减将被取消。