网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,192贴子：1,165,855
  • 7回复贴，共1页

关于listbox问题

listbox的style设置为checkbox
  For i = List1.ListCount - 1 To 0 Step -1
     If List1.Selected(i) Then List1.RemoveItem (i)
  Next i
请问我在删除被选中的项的时候如何获得对应项的text


jj=list1.listindex '被选中的Index

list1.list(jj) '对应项的text


快试试吧，
可以对自己使用挽尊卡咯~
◆
◆
Private Sub Command1_Click()
 For i = List1.ListCount - 1 To 0 Step -1
 If List1.Selected(i) Then
 Label1.Caption = List1.List(i) & " is deleted"
 List1.RemoveItem (i)
 End If
 Next i
End Sub


楼上正解，记得别在删除后再去获取TEXT


2楼的报错
3楼正解，但还有个问题，如果我在删除的时候选了两项，那么在label1.caption中只显示出了一个项


Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
 If List1.Selected(i) Then
 Label1.Caption = Label1.Caption & List1.List(i) & " , "
 List1.RemoveItem (i)
 End If
Next
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
End Sub


Private Sub Command1_Click()
Label1.Caption = ""
For i = List1.ListCount - 1 To 0 Step -1
 If List1.Selected(i) Then
 Label1.Caption = Label1.Caption & List1.List(i) & " , "
 List1.RemoveItem (i)
 End If
Next
End Sub

Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
End Sub


谢谢


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 7回复贴，共1页
分享到: