|
在学校机房上机的时候，经常会把软盘忘在机房。等再去找的时候，早已“人去楼空”!辛辛苦苦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 FloppyDiskFlagsDrive As String As Boolean
On Error Resume Next
FloppyDiskFlag = DirsDrive <> ″″
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环境中通过。
| 
