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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
