vb中的一个列表框内,要求可以同时选择多项,然后按一个按钮后删除~ 可是不知道哪里不对。

现在只能够同时选择多项,然后按一次删除去掉一项
不知道程序该怎么写,求教~

Private Sub Form_Load()
List1.AddItem "Germany"
List1.AddItem "India"
List1.AddItem "France"
List1.AddItem "Canada"
List1.AddItem "USA"
List1.AddItem "Japan", 0
End Sub

Private Sub Command1_Click()
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List1.RemoveItem i
Next i
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

如何同时删除VB列表框中多个选项
用ckear方法 如:List1.clear 这个是清空 或者RemoveItem方法 如:list1.RemoveItem.序号 哈哈~注意看我是谁~

vb列表框内容添加和删除
1、首先,打开VB软件,在窗体上面添加一个列表框,如下图所示。2、单击列表框,在属性窗口中,设置列表框的属性和内容,如下图所示。3、在窗体上面,添加两个命令按钮,如下图所示。4、分别设置,两个命令按钮的属性,名称分别为“复制”,“清除”,如下图所示。5、双击“清除”命令按钮,编辑其代...

用VB编写一个为列表框添加删除选项
1、首先打开VB软件,绘制好相应的控件,两个命令按钮,一个列表框,一个文本框。2、接下来大概更改一下各个控件的属性。3、然后编写命令按钮从键盘输入文本框,并能能够添加项目代码。4、编写删除代码,记得要遍历查询。5、运行后便可以看到这样的程序。即编写一个为列表框添加删除选项成功。

VB向一个列表框中添加一些list当程序结束时list没有了怎么设置_百度知 ...
作为程序下次运行的默认list,那就必须写一段保存list的代码,下次运行程序再读出这个list。可以用读写注册表 、INI文件这2种方式

vb中如何让列表框选中哪项然后点一下按钮就能使选中的那项添加在列表...
你说的是选中项添加在最后面,而并不是移动到最后面,所以一句就可以。List1.AddItem List1.List(List1.ListIndex)如果是移动到最后面,则原来项需要删除。List1.RemoveItem List1.ListIndex

vb文件列表框中的一个问题
在VB文件列表框中,OnError语句是关键的错误处理工具。它允许你启动、禁止、恢复错误处理程序,从而更灵活地管理运行时错误。OnErrorGoToline让你指定错误处理程序从特定行开始执行。发生运行时错误时,程序会跳转到指定的行,激活错误处理程序。确保该行在相同的过程中,否则编译时会出错。OnErrorResumeNext...

vb如何删除文件列表框中的项目?
你是删除的文件本身吧?用kill删除以后,file1.refresh 或者是 file1.removeitem file1.refresh

vb 单击一个按钮 列表框中内容全部到另个列表框
希望下面代码能完成你要的效果.如果楼主还不能满意的话...请再说明白一点...'需要控件:list1,list2,command1 Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i)Next i End Sub Private Sub Form_Load()List1.AddItem "北京"List1.AddItem...

VB列表框内输入文字应该怎么弄?
1、第一步,打开VB软件并在表单上添加一个列表框,见下图,转到下面的步骤。2、第二步,执行完上面的操作之后,单击列表框,然后在属性窗口中,设置列表框的已知属性和内容,见下图,转到下面的步骤。3、第三步,执行完上面的操作之后,在表单上,添加两个命令按钮,见下图,转到下面的步骤。4、第四...

在vb中,从列表框中删除一个项目然后撤销回来,用代码怎么实现?
Dim StrDeled As String '被删除的内容 Dim IntDeled As Integer '被删除的序号 Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyDelete Then If List1.SelCount > 0 Then '记住被删除的内容和序号 StrDeled = List1.Text IntDeled = List1.ListIndex ...

相似回答