在30秒的时候弹出个messagebox选择的事件
十余年的峨眉山网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整峨眉山建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“峨眉山网站设计”,“峨眉山网站推广”以来,每个客户项目都认真落实执行。
确定就把timer的enabled属性设置成false 执行关机
取消把timer的enabled属性设置成false 计时器清零就行了
MsgBox函数的格式:
变量=MsgBox(提示信息[,按钮类型][,标题])
或: MsgBox 提示信息[,按钮类型][,标题]
其中按钮类型由3部分组成:按钮类型+图标类型+默认按钮
其值如下表:
只需改变MsgBox函数的第二个参数即可,比如
x
=
MsgBox("只显示“确定”按钮",
vbOKOnly)
x
=
MsgBox("显示“确定”和“取消”按钮",
vbOKCancel)
x
=
MsgBox("显示“中止”、“重试”和“忽略”按钮",
vbAbortRetryIgnore)
x
=
MsgBox("显示“是”、“否”和“取消”按钮",
vbYesNoCancel)
x
=
MsgBox("显示“是”和“否”按钮",
vbYesNo)
x
=
MsgBox("显示“重试”和“取消”按钮",
vbRetryCancel)
也可以用数字:
x
=
MsgBox("只显示“确定”按钮",
0)
x
=
MsgBox("显示“确定”和“取消”按钮",
1)
x
=
MsgBox("显示“中止”、“重试”和“忽略”按钮",
2)
x
=
MsgBox("显示“是”、“否”和“取消”按钮",
3)
x
=
MsgBox("显示“是”和“否”按钮",
4)
x
=
MsgBox("显示“重试”和“取消”按钮",
5)
请注意,根据点击按钮的不同,返回值也是各不相同的,比如:
If
x
=
vbOK
Then
'点了“确定”按钮
If
x
=
vbCancel
Then
'点了“取消”按钮
If
x
=
vbAbort
Then
'点了“中止”按钮
If
x
=
vbRetry
Then
'点了“重试”按钮
If
x
=
vblgnore
Then
'点了“忽略”按钮
If
x
=
vbYes
Then
'点了“是”按钮
If
x
=
vbNo
Then
'点了“否”按钮
同样,也可以用数字:
If
x
=
1
Then
'点了“确定”按钮
If
x
=
2
Then
'点了“取消”按钮
If
x
=
3
Then
'点了“中止”按钮
If
x
=
4
Then
'点了“重试”按钮
If
x
=
5
Then
'点了“忽略”按钮
If
x
=
6
Then
'点了“是”按钮
If
x
=
7
Then
'点了“否”按钮