VB设计自动提醒小程序

发布: 2007-6-21 21:57 | 作者: 侯涛 | 来源: 电脑报 | 查看: 115次 | 进入软件测试论坛讨论

　　在学校机房上机的时候，经常会把软盘忘在机房。等再去找的时候，早已“人去楼空”!辛辛苦苦Copy的好东东，再也无缘相见!我们何不用VB编一个小程序，到了快下课的时候让它提醒我们带走呢?

　　一、界面设计

　　新建一个标准EXE工程在Form1上放置三个Combo控件，依次设置它们的List属性：Combo1为0-23、Combo2为00-59、Combo3为00。再加入一个Timer控件，其Interval属性为1000，Enabled属性为True 。然后再加一个Label控件，Caption属性为“提醒时间是：”。最后再加入两个命令按钮 Command1和 Command2，其Caption属性分别为“确定”和“退出”。

　　二、程序代码

Private Sub Form_Load　
Me.Caption = Time
End Sub
'检查软驱是否有软盘存在
Private Function FloppyDiskFlagsDrive As String　 As Boolean
On Error Resume Next
FloppyDiskFlag = DirsDrive　 <> ″″
End Function
'时间到了，检查软驱是否有软盘存在
Private Sub Timer1_Timer　
Me.Caption = Time
If Time = Combo1.Text & ″″ & Combo2.Text & ″″ & Combo3.Text Then
Dim flag As Boolean
flag = FloppyDiskFlag″A″　
If flag = False Then
MsgBox ″软驱没有软盘!放心走吧!（最好再检查一下软驱!）″ 16 ″注意″
Unload Me
Else
MsgBox ″软驱有软盘!请您及时取出!″ 64 ″注意″
Unload Me
End If
End If
End Sub
Private Sub Command1_Click　
Me.Hide
End Sub
Private Sub Command2_Click　
Unload Me
End Sub

　　这样一个软盘提醒小程序就做好了!当然，以同样方法我们可以再加编一个光盘提醒小程序。该程序非常简单，可是很实用啊!本程序在Windows98/VB6.0环境中通过。