ListView里面列出的内容可不可以一次选择多个? 可以。把multiselect属性设为True 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 右键LISTVIEW 在其属性里选中“多重选择”即Multiselect. 有一个checkbox得属性,你试试看for i = 1 to ListView1.ListItems.Count If ListView1.ListItems(i).checked Then endifendif ListView1.Checkboxes = Trueif listview1.ListItems(XX).Checked =true thenendif 又慢了for i = 1 to ListView1.ListItems.Count If ListView1.ListItems(i).selected Then 'add to array end ifend if Dim I As IntegerFor I = 1 To List1.ListCount - 1 If List1.Selected(I) = True Then List1.ListIndex = I MsgBox List1.Text End IfNext 你可以在if list1.selected(i)=true then list1.listindex=i 在这里写入你的数组中 求更改com口号API byref 和byval的区别,请举例说明 用vb如何生成XML文件 我的妹妹该怎么办? 急求一算法:关于字符串 我正在做的一个程序不停的接受其它系统放的udp报文,我怎么判断网络不通了, 快回答我吧,为什末没人理我 请教VB自己定义的IP头的问题!求助ing 简单问题,用SavePicture方法保存图像,3个贴子共300分,解决了一并送上。 WYO的进、销、存源程序开始提供下载(请跟贴,以便让更多的人知道) 为什么连接远程数据库很慢呢?大家HELP,加分 数字问题!!??
for i = 1 to ListView1.ListItems.Count
If ListView1.ListItems(i).checked Then
endif
endif
if listview1.ListItems(XX).Checked =true then
endif
for i = 1 to ListView1.ListItems.Count
If ListView1.ListItems(i).selected Then
'add to array
end if
end if
For I = 1 To List1.ListCount - 1
If List1.Selected(I) = True Then
List1.ListIndex = I
MsgBox List1.Text
End If
Next
list1.listindex=i
在这里写入你的数组中