DirListBox问题

Question

DirListBox   控件没有水平滚动条，当目录较长时右边就看不到了，如何增加水平滚动条，或者鼠标指向某个目录时可以显示目录名？

Answer 1

添加滚动条比较复杂，还是加个提示吧
Private Sub Dir1_Click()
Dir1.ToolTipText = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Answer 2

谢谢,我发觉这样更好点:
Private Sub Dir1_Change()
Dir1.ToolTipText = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub