双击listbox中的文件名获取它完全路径并把返回值赋给某个变量可以吗 高手请进

Question

双击listbox中的文件名获取它完全路径  请高手指点  谢谢

Answer 1

你先存到listitem.tag里，双击时取出
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

Private Sub Form_Load()List1.AddItem "C:\windows\regedit.exe"
List1.AddItem "D:\1.xls"
List1.AddItem "光驱弹出或关闭(Ctrl+Alt+↓).exe"
End Sub
Private Sub List1_DblClick()
s = List1.List(List1.ListIndex)
MsgBox s
End Sub

Answer 3

SYSSZ朋友请看好
我说的是双击列表中不含路径的文件名调出它的路径

Answer 4

Dim arr()
Private Sub Form_Load()
arr = Array("C:\windows\regedit.exe", "D:\1.xls", "E:\光驱弹出或关闭(Ctrl+Alt+↓).exe")
List1.AddItem "C:\windows\regedit.exe"
List1.AddItem "D:\1.xls"
List1.AddItem "光驱弹出或关闭(Ctrl+Alt+↓).exe"
End Sub
Private Sub List1_DblClick()s = arr(List1.ListIndex)
MsgBox s
End Sub
你看,这不就解决了!