如何通过listindex访问listbox中的项目的text属性

解决方案 »

  1.   

    text1 = list1.list(list1.listindex)  即可
      

  2.   

    再加上这个
    在窗体上画:  listbox textbox  ,将下面代码粘入 即可
    Private Sub Form_Load()
        
        List1.AddItem "a"
        List1.AddItem "b"
        List1.AddItem "c"
        
        
        
    End SubPrivate Sub List1_Click()
        Text1 = List1.List(List1.ListIndex)
    End Sub
      

  3.   

    再加上这个
    在窗体上画:  listbox textbox  ,将下面代码粘入 即可
    Private Sub Form_Load()
        
        List1.AddItem "a"
        List1.AddItem "b"
        List1.AddItem "c"
        
        
        
    End SubPrivate Sub List1_Click()
        Text1 = List1.List(List1.ListIndex)
    End Sub