请高手帮忙解释以下VB代码的意思!!帮忙注释一下,谢谢拉!

显示全部楼层 · 2009-6-27 12:18:04

rivate Sub Drive1_Change() 'Drive1发生改变触发
On Error GoTo DriErr '当出错时跳到 DriErr
Dir1.Path = Drive1.Drive 'Dir1路径为Drive1选择的盘符路径
Exit SubDriErr: '出错标记
If Err.Number = 68 Then '如果返回出错代号为68时
If MsgBox("请问要重试还是取消?", vbRetryCancel + vbCritical, "硬盘不存在或光驱没有插入磁盘!") = vbRetry Then '弹出提示框
Resume 0...

千问 · 2009-6-27 12:18:04

载入图片的代码。...