自动提醒小程序

IT商界

候涛

　　在学校机房上机的时候，经常会把软盘忘在机房。等再去找的时候，早已“人去楼空”！辛辛苦苦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环境中通过。

　　本期主要知识点：

　　软驱监控函数、时间提醒