DirListBox,FileListBox,DriveListBox 三个控件如何连动 （40）

Question

Private Sub Dir1_Change()
    Me.File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Me.Dir1.Path = Me.Drive1.Drive
End Sub

Answer 1

Private Sub Drive1_Change()
    Dim Msg1 As String
    Static Mydir As String
    If Mydir = "" Then
        Mydir = Drive1.Drive
    End If
    Dim drvflag As Integer, a As Long
    drvflag = 0
    On Error GoTo error1
    Dir1.Path = Drive1.Drive
    Text7.Text = ""
    CmdAdd.Enabled = False
    Mydir = Drive1.Drive
    Reset
    Exit Sub
error1:
    If Drive1.Drive = "a:" Or Drive1.Drive = "b:" Then
        Msg1 = "软驱中未有软盘！" & Chr(10) & "请插入软盘再来次。" & Chr(10) & "准备好了吗？"
        a = MessageBox(hWnd, Msg1, "出错了", vbYesNo + 48)
        If a = vbNo Then
            Drive1.Drive = Dir1.Path
            Resume
        End If
        drvflag = drvflag + 1
    Else
        Msg1 = "该盘不存在？！" & Chr(10) & "或是光驱中未有光盘或是虚拟盘！" & Chr(10) & _
        "请插入光盘或检测网络连接是否正确！"
        a = MessageBox(hWnd, Msg1, "出错了", vbRetryCancel + 48)
        If a = vbCancel Then
            Drive1.Drive = Dir1.Path
            Resume
        End If
            drvflag = drvflag + 1
        End If
        If drvflag > 2 Or a = 2 Then
            MessageBox hWnd, "重试失败现在回到原处", "信息", 64
            Drive1.Drive = Dir1.Path
        End If
        'Dir1.Path = "c:"
    Resume
End SubPrivate Sub Dir1_Change()
    File1.Path = Dir1.Path
    Text7.Text = ""
    CmdAdd.Enabled = False
'Reset
End SubPrivate Sub File1_Click()
    If Len(File1.Path) <= 3 Then
        Text7.Text = File1.Path + File1.FileName
    Else
        Text7.Text = File1.Path + "\" + File1.FileName
    End If
    CmdAdd.Enabled = True
    'Reset
End Sub这是我编的，很好用的。不过你可能要改改才用得上。