求助VB中listview 的行数判断方法。在线等!!!
从textbox录入到listview中,要求录入不少于5个,怎么写代码啊?各位高手帮帮忙啊,先谢谢了运行前先判断listview1中条数是不是大于5...
从textbox录入到listview中,要求录入不少于5个,怎么写代码啊?
各位高手帮帮忙啊,先谢谢了
运行前先判断listview1中条数是不是大于5 展开
各位高手帮帮忙啊,先谢谢了
运行前先判断listview1中条数是不是大于5 展开
2个回答
展开全部
以下代码是把LISTVIEW设置成网格形态,设置成5列,
把TEXT控件数组1-5的数据 保存到其中表头下的第一行
Private Sub Command2_Click()
Dim a As ListView
Set a = Me.ListView1
a.View = 3
a.ColumnHeaders.Clear
a.ListItems.Clear
'如果写入5个TEXTBOX ,就是5列
Dim i As Long
For i = 1 To 5
a.ColumnHeaders.Add i, , i & "列", 300
Next
'将textbox(1-5)中数据写入一行
Dim b As ListItem
Set b = a.ListItems.Add(1, , Text(1).Text)
For i = 1 To 4
b.SubItems(i) = Text(i + 1).Text
Next
End Sub
把TEXT控件数组1-5的数据 保存到其中表头下的第一行
Private Sub Command2_Click()
Dim a As ListView
Set a = Me.ListView1
a.View = 3
a.ColumnHeaders.Clear
a.ListItems.Clear
'如果写入5个TEXTBOX ,就是5列
Dim i As Long
For i = 1 To 5
a.ColumnHeaders.Add i, , i & "列", 300
Next
'将textbox(1-5)中数据写入一行
Dim b As ListItem
Set b = a.ListItems.Add(1, , Text(1).Text)
For i = 1 To 4
b.SubItems(i) = Text(i + 1).Text
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询