如题

解决方案 »

  1.   

    Private Sub Command1_Click()
        MsgBox List1.List(1)
    End SubPrivate Sub Form_Load()
        List1.AddItem "1"
        List1.AddItem "2"
        List1.AddItem "3"
    End Sub
      

  2.   

    list1.AddItem "你所得到的项目的值"
      

  3.   

    只许单选,可以用 List1.Text
      

  4.   

    Private Sub Command1_Click()    MsgBox List1.List(List1.ListIndex)End Sub
      

  5.   

    修改一下:
    Private Sub list1_Click()
        MsgBox List1.List(List1.ListIndex)
    End SubPrivate Sub Form_Load()
        List1.AddItem "1"
        List1.AddItem "2"
        List1.AddItem "3"
    End Sub