社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

wfyfvdx

学分:0

+关注

私信

立即签到

版块推荐

Listbox 删除问题

发表在VB答疑区 2007-02-10

是否精华是否

版块置顶: 是否

`A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题 `A `A！
       非常感??=  4     Listbox 删除问题

分享到：

关注

支持(0)

反对(0)

精彩评论 1

sd3794419

学分：0 LV1

+关注

私信

2007-02-25

沙发

您好，将移除按钮中代码修改为：
Private Sub Command2_Click()
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List2.RemoveItem i
End If
Next i
Text1.Text= ""
For i = 0 To List2.ListCount - 1
If Text1.Text = "" Then
Text1.Text = List2.List(i)
Else
Text1.Text = Text1.Text + "+" + List2.List(i)
End If
Next i
End Sub

支持(0)

反对(0)

首页上一页 1 下一页尾页 1 条记录 1/1页