VB設計自動提醒小程序
在學校機房上機的時候，經常會把軟盤忘在機房。等再去找的時候，早已“人去樓空”!辛辛苦苦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環境中通過。