如何选择ListBox中的最后一个项目

[zhxiongying]

如何选择ListBox中的最后一个项目
还有如何删除选中的项目和他以下的项目

[xiaohuasz]

选择ListBox中的最后一个项目:
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
删除选中的项目和他以下的项目:
i = ListBox1.SelectedIndex
For j = 1 To ListBox1.Items.Count - i
ListBox1.Items.RemoveAt(i)
Next

[点点星灯]

Me.ListBox1.SelectedIndex = ListBox1.Items.Count - 1

[daisy8675]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me.ListBox1
.Items().Add("111")
.Items().Add("222")
.Items().Add("333")
.Items().Add("444")
.Items().Add("555")
End With
End Sub
'选择操作
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1().SetSelected(Me.ListBox1.Items.Count - 1, True)
End Sub
'删除操作
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To Me.ListBox1.Items.Count - 1
If Me.ListBox1.GetSelected(i) = True Then
Me.ListBox1.Items.RemoveAt(i)
Exit For
End If
Next

End Sub

[zhxiongying]

还有我要在ListBox的项目中添加注解(注解可选择),在选择一个项目后如果有注解就将注解显示出来,要如何做呀

[softbugg]

选择ListBox中的最后一个项目
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
删除
i = ListBox1.SelectedIndex
For j = ListBox1.Items.Count - i to i Step -1
ListBox1.Items.RemoveAt(i)
Next
注解：？？
可使用ToolTip 类

[hamadou]

选择ListBox中的最后一个项目:
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
删除选中的项目和他以下的项目:
i = ListBox1.SelectedIndex
For j = 1 To ListBox1.Items.Count - i
ListBox1.Items.RemoveAt(i)
Next

[xdwlb]

if listbox1.items.count>0 then
listbox1.selectedindex=listbox1.items.count-1
endif

[xdwlb]

删除：
i = ListBox1.SelectedIndex
For j = 1 To ListBox1.Items.Count - i
ListBox1.Items.RemoveAt(i)
Next