Private Sub Form_Load() List1.AddItem "list1" List1.AddItem "list2" End SubPrivate Sub List1_Click() Me.Caption = "选中第 " & List1.ListIndex & " 项:" & List1.List(List1.ListIndex) End SubPrivate Sub Form_Click() '删除选中项 List1.RemoveItem List1.ListIndex End Sub
樓上的.......妳看錯嘞? 是listview啊! 不是listbox啊!
怎么最近老是看错…… - -bPrivate Sub Form_Load() ListView1.ListItems.Add , , "list1" ListView1.ListItems.Add , , "list2" End SubPrivate Sub Form_Click() '删除选中项 ListView1.ListItems.Remove ListView1.SelectedItem.Index End SubPrivate Sub ListView1_Click() Me.Caption = "选中第 " & ListView1.SelectedItem.Index & " 项:" & ListView1.SelectedItem.Text End Sub
List1.AddItem "list1"
List1.AddItem "list2"
End SubPrivate Sub List1_Click()
Me.Caption = "选中第 " & List1.ListIndex & " 项:" & List1.List(List1.ListIndex)
End SubPrivate Sub Form_Click()
'删除选中项
List1.RemoveItem List1.ListIndex
End Sub
是listview啊!
不是listbox啊!
ListView1.ListItems.Add , , "list1"
ListView1.ListItems.Add , , "list2"
End SubPrivate Sub Form_Click()
'删除选中项
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End SubPrivate Sub ListView1_Click()
Me.Caption = "选中第 " & ListView1.SelectedItem.Index & " 项:" & ListView1.SelectedItem.Text
End Sub