关于listbox控件

Question

不知道listbox控件有没有类似itemdata的属性，返回值为字符串

Answer 1

我不是这个意思
请高手看下下面的
 Private Sub Form_Load()
     Dim i As Integer
     For i = 1 To 5
         List1.AddItem i
     Next i
End SubPrivate Sub List1_dblClick()
    '在这里我想实现下面的功能应该怎么做呢？
    '如果双击第一个  msgbox "a"
     '如果双击第2个  msgbox "dddd"
      '如果双击第3个  msgbox "d"
       '如果双击第4个  msgbox "asdfasdf"
        '如果双击第5个  msgbox "a3434awsdfasdf"
End Sub

Answer 2

简单!!!
select case listbox1.listindex
case 1
    msgbox "a"
case 2
    ...
...
end select或者
  ss=listbox1.list(listbox1.listindex))

Answer 3

ss=listbox1.list(listbox1.listindex))

Answer 4

to  dgczy(dgczy) 
对不起 说的有点过头了 
你还是先看看我的问题再回答
listbox中显示的是1，2，3，4，5
msgbox中的是"aaa","bbb","ccc","cdddd","eeeee"

Answer 5

放两个listbox 
 
 Private Sub Form_Load()
     dim xx
     Dim i As Integer
     xx=array("aaa","bbb","ccc","cdddd","eeeee")
     For i = 1 To 5
         List1.AddItem i
         list2.additem xx(i-1)
     Next i
End SubPrivate Sub List1_dblClick()
   if list1.listindex<>-1 then
           msgbox list2.list(list1.listindex)
 end if
End Sub