vb.net Listbox功能演示------AddRem
Public Class Form1'将ListBox1中的选中项移动到ListBox2
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
For i As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i))) '把选项添加到最后
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i)) '删除索引指定位置的选项
Next
End Sub
'将ListBox2中的选中项移动到ListBox1
Private Sub ListBox2_DoubleClick(sender As Object, e As EventArgs) Handles ListBox2.DoubleClick
For i As Integer = ListBox2.SelectedIndices.Count - 1 To 0 Step -1
ListBox1.Items.Add(ListBox2.Items(ListBox2.SelectedIndices(i)))
ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(i))
Next
End Sub
'选中ListBox2最后一项
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox2.SelectedItem = ListBox2.Items(ListBox2.Items.Count - 1) 'Selectedltem 项目内容
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox1.Items.Add("选项A") '把选项添加到最后
ListBox1.Items.Add("选项B")
ListBox1.Items.Add("选项C")
ListBox1.Items.Add("选项D")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ListBox1.Items.Remove（"选项A"） '删除指定项
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
ListBox1.Items.Clear() '清除所有项
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If ListBox1.Items.Count = 0 Then
' 列表框为空，退出当前方法
Return
Else
ListBox1.Items.RemoveAt(ListBox1.Items.Count - 1) '删除最后一项
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
ListBox1.Items.Insert(0, "选项E") '添加到列表的开头（索引0处） 更改索引到任意位置
End Sub
End Class
zhukun1980 发表于 2025-3-9 11:17
谢谢大佬谢谢谢谢
MOBAIDALAO
生成的文件还不大，语法和delphi差不多。 以前用过一段时间VB.NET,现在用C#
页:
[1]