Question

VB中用做一个对话框，即弹出一个对话框，对话框内容是:提示还有10秒删除！ 这个内容中的10是随时

VB中用做一个对话框，即弹出一个对话框，对话框内容是:提示还有10秒删除！
这个内容中的10是随时间倒数的，即10，9，8，...，2，1
谢谢大家。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

使用另外一个窗体完成对话框功能：
'Form1中，添加一个commandbutton：
Private WithEvents frm2 As Form2
Private Sub Command1_Click()
Command1.Caption = "打开对话框"
Set frm2 = New Form2
frm2.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)

If Not frm2 Is Nothing Then
Unload frm2
End If
Set frm2 = Nothing
End Sub
Private Sub frm2_ExitForm()

Unload frm2
Set frm2 = Nothing
End Sub
'Form2中，添加一个commandbutton，一个label和一个timer：
Public Event ExitForm()
Dim num As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()

num = 10
Command1.Caption = "关闭"
Label1.Caption = "提示还有10秒删除！"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)

RaiseEvent ExitForm
End Sub
Private Sub Timer1_Timer()

num = num - 1
If num = 0 Then
Unload Me'在此可添加其它代码，实现计时到后的功能
Else
Label1.Caption = "提示还有" & num & "秒删除！"
End If
End Sub

追问

谢谢你，晚上回去试一试

Answer 2

我晚上试下 需要用到对话框和timer控件