vb 判断List1是否为空白

热心网友回答时间：10分钟前

1、用List的ListCount属性即可判断
List1.ListCount=0 为空白
List1.ListCount>0 则不为空
2、使用循环就可以解决
List2.Clear
for i = 0 to List1.ListCount-1
List2.AddItem List1.List(i)
next i
这样就将List1的内容复制到List2了

热心网友回答时间：9分钟前

if(list1.value.trim() <> "")
{
list2.items.add(list1.item[x])
}

热心网友回答时间：10分钟前

1、用List的ListCount属性即可判断
List1.ListCount=0 为空白
List1.ListCount>0 则不为空
2、使用循环就可以解决
List2.Clear
for i = 0 to List1.ListCount-1
List2.AddItem List1.List(i)
next i
这样就将List1的内容复制到List2了

热心网友回答时间：9分钟前

'1、
Private Sub Command1_Click()
MsgBox IIf(List1.ListCount > 0, "不", "") & "是空白"

'2、
Private Sub Command2_Click()
Dim i As Long
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

'3
Private Sub Command3_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

'4
Private Sub List1_Click()
List1.RemoveItem List1.ListIndex
End Sub

热心网友回答时间：9分钟前

if(list1.value.trim() <> "")
{
list2.items.add(list1.item[x])
}

热心网友回答时间：9分钟前

'1、
Private Sub Command1_Click()
MsgBox IIf(List1.ListCount > 0, "不", "") & "是空白"

'2、
Private Sub Command2_Click()
Dim i As Long
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

'3
Private Sub Command3_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

'4
Private Sub List1_Click()
List1.RemoveItem List1.ListIndex
End Sub

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

首页

互助专区

登录

注册

vb 判断List1是否为空白