vblistbox中添加一条记录

你瞎迹想问的是vblistbox中如何添加一条记录吧？点击右键选择添加。

鼠标挪到所要添加的位置点击右键选择添加就可以插入新的一行代码。

列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法，意思是清除项目。这个则是符友野合现代编程理念的。好神喊

用ListView的方法比较简单，直接添加一和者个控件顺便把0001写到Tag属性里去就行了。如果只用ListBox的话，

先创建一个类代表城市

Public Class City

Public Name As String

Public Num As String

Public Sub New(na As String, nu As String)

Name = na

Num = nu

End Sub

Public Overrides Function ToString() As String 'ListBox需要这个函数来显示

Return Name

End Function

End Class

然后把这个类的实例添加进去即可，比如：

ListBox1.Items.Add(New City("北京", "0001"))

读取培拆的话就很配棚枣简单，比如我要读第一项

Dim obj = ListBox1.Items(0)

If TypeOf obj Is City Then

Dim c As City = obj

'c.Name就是"北京"，c.Num就是"0001"了

End If

遍历之类的可以灵活使用，你也可以在类里面加些其它内容。

Private Sub Command1_Click()

'代码中Text1.Text是袭凳一个文本框用以输入要添加的数据

Dim mIndex As Integer

If List1.ListCount = 0 Then

List1.AddItem Text1.Text

Else

If List1.ListIndex >拦禅带= 0 Then

mIndex = List1.ListIndex

List1.AddItem Text1.Text, mIndex + 1

Else

List1.AddItem Text1.Text

End If

End If

End Sub

本答案可以直接运行简芦

---