
Private Sub Command1_Click()
Dim i%
For i = 1 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
End Sub
你 *** 作一下,我是成功了。
listview这点是与listbox不一样的,listview只能第一列被选中,高亮显示。其他列不可以的。也就是说,listview不可能一行
高亮。至于第二个问题;我看你在textbox2.text之前,把它强制转换成整型了,之后又赋值它
字符串
。。我试了一下VS
错。。不知道你那是不是这问题,可以删除那就句
代码
试试。。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)