VB的简单问题

Question

我想问个简单问题 我在窗体上放了（驱动器列表）drivelistbox,（目录列表框）dirlistbox,（文件列表框）filelistbox  目的是可以在这几个框中选出一个路径放到一个文本框中去，最后3个LISTBOX选择的内容形成一个完整的路径，这样就可以实现数据恢复的路径直接从文本框中取出，
我用的是Text1.text=driver1.text & dir1.text1 &file1.text ？不知道对不对但是我不知道怎么才能把内容从选择的框中取出，我没有MSDN，所以不知道用什么方法。

Answer 1

driver1、dir1、file1 的属性不应该用 text。

Answer 2

Private Sub Drive1_Change()
   Dir1.path = Drive1.Drive   '设置目录路径。
End SubPrivate Sub Dir1_Change()
   File1.path = Dir1.path   '设置文件路径。
End SubPrivate Sub File1_Click()
    Text1.Text = IIf(Right(File1.path, 1) = "\", File1.path, File1.path & "\") & File1.FileName
End Sub

Answer 3

private Sub Driver1_Change()
    dir1.path = Driver1.Drive
end sub
private Sub Dir1_Change()
   File1.path = Dir1.path
end Subprivate Sub File1_Click()end sub

Answer 4

private Sub Driver1_Change()
    dir1.path = Driver1.Drive
end sub
private Sub Dir1_Change()
   File1.path = Dir1.path
end Subprivate Sub File1_Click()end sub

Answer 5

Private Sub Drive1_Change()
   Dir1.path = Drive1.Drive   '设置目录路径。
End SubPrivate Sub Dir1_Change()
   File1.path = Dir1.path   '设置文件路径。
End SubPrivate Sub File1_Click()
    Text1.Text = IIf(Right(File1.path, 1) = "\", File1.path, File1.path & "\") & File1.FileName
End Sub

Answer 6

Option ExplicitPrivate Sub Dir1_Change()
    File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
    Label1.Caption = File1.Path & "\" & File1.FileName
End Sub