求助 Drive1控件与Dir1 控件关联问题的错误

Question

Option Explicit
Dim lastDrive As StringPrivate Sub Dir1_Change()
    File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
    On Error GoTo EH
    Dir1.Path = Drive1.Drive
    lastDrive = Drive1.Drive
    Exit Sub
EH:
    If Err.Number = 68 Then
        MsgBox "驱动器中没有光盘。", vbExclamation, "抱歉"
        Drive1.Drive = lastDrive
        Exit Sub
    End If
    
    MsgBox "实时错误 " & Err.Number & ":" & vbCrLf & Err.Description
End SubPrivate Sub Form_Load()
    lastDrive = Drive1.Drive
End Sub

Answer 1

不能用代码。在编辑界面上，将 Form 的 MaxButton 属性设为 False。