vb6.0倒计时程序怎么再最后10秒出现滴滴滴的警示音

答案:3 悬赏:50 手机版

解决时间 2021-03-11 21:34

提问者网友：记得曾经
2021-03-10 23:17

最佳答案

五星知识达人网友：独行浪子会拥风
2021-03-10 23:44

在窗体上画一个Timer控件、一个按钮，一个ProgressBar控件（需要添加部件Microsoft Windows
Common Controls 6.0），用下面的代码，单击按钮开始10秒倒计时。
Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Value = ProgressBar1.Max
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
ProgressBar1.Value = ProgressBar1.Max
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value - 10
If ProgressBar1.Value <= 0 Then
Timer1.Enabled = False
MsgBox "10秒倒计时结束！"
End If
End Sub

全部回答

1楼网友：第四晚心情
2021-03-11 01:13

可以用 Beep 语句让计算机喇叭发出一个“滴”声，这条语句极其简单，没有任何参数。例如： Private Sub Command1_Click() Beep End Sub按一下按钮就会滴一声

2楼网友：猎心人
2021-03-11 00:46

可以用 Beep 语句让计算机喇叭发出一个“滴”声，这条语句极其简单，没有任何参数。例如： Private Sub Command1_Click() Beep End Sub按一下按钮就会滴一声再看看别人怎么说的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息