VB6.0的ListBox控件怎么批量删除内部元素?
VB6.0的ListBox控件怎么批量删除内部元素?比如:
干掉所有元素是: List1.Clear
干掉一个元素是: List1.RemoveItem 元素位置变量
干掉一片元素怎么写?比如从第五个一直干到第十个。
注:不想使用for套上Removeltem，因为影响运行速度。
List1.RemoveItem 4
List1.RemoveItem 4
List1.RemoveItem 4
List1.RemoveItem 4
List1.RemoveItem 4
List1.RemoveItem 4
请注意，要删除第5到第10个项目，只需要连续删除6次第5个项目即可，因为删除一次第5项，原来的第6项就会自动顶上来变成第5项，所以只需要删除第5项即可！
其实用For循环就简单了，效率是一样的：
For i = 1 To 6
List1.RemoveItem 4
Next
不存在你想象中的批量删除多条项目的专门方法的，因为这种用简单语句就能实现的过程（而且并不是大众化的需求），VB是不可能提供专门的方法的，否则的话还不如直接让电脑把程序写好再给我们啦，还要程序员干嘛。追问
看来只有这样了，一个个干掉。
VB6.0的ListBox控件怎么批量删除内部元素?
List1.RemoveItem 4 List1.RemoveItem 4 请注意，要删除第5到第10个项目，只需要连续删除6次第5个项目即可，因为删除一次第5项，原来的第6项就会自动顶上来变成第5项，所以只需要删除第5项即可！其实用For循环就简单了，效率是一样的：For i = 1 To 6 List1.RemoveItem 4 Next 不存在你想象...
VB6.0中删除listbox选中内容的问题
因为删除的时候改变了List1.ListCount.修改一下For语句即可：For a = List1.ListCount - 1 To 0 Step -1 另外也不需要Exit For，我帮你改了下代码：Option Explicit Private Sub Command1_Click()Dim a As Integer If List1.SelCount > 0 Then For a = List1.ListCount - 1 To 0 Step ...
VB6.0 中的 列表框——list
实际是就是在按钮事件里对ListBox项的增加和删除ListBox2.Items.Add(ListBox1.SelectedItem)ListBox1.Items.Remove(ListBox1.SelectedItem)
在vb中,列表框可以使用additem和removeitem方法可以在程序运行时添加或...
1、首先打开VB，绘制好相应的控件，两个命令按钮，一个列表框，一个文本框。2、接下来大概更改一下各个控件的属性。3、然后编写命令按钮从键盘输入文本框，并能能够添加项目代码。4、接下来就能够编写删除代码，记得要遍历查询。5、运行后便可以看到这样的程序，就完成了。
VB6.0如何删除系统盘里的文件?
strTmp Else Exit For End If Next i GetExtName = strTmp End Function Private Sub Command1_Click()Command1.Enabled = False FindFiles "c:\\", ".tmp"Command1.Enabled = True End Sub 添加个LISTBOX,一个COMMAND BUTTON.上面功能是删除C: 下的TMP文件.时间有限,我就给你写这么多好了....
VB6.0中如何把Listbox的表项,上移或下移一个位置
Private Sub Command1_Click()Dim n As Long Dim s As String If List1.ListIndex > 0 Then n = List1.ListIndex s = List1.List(n)List1.RemoveItem List1.ListIndex List1.AddItem s, n - 1 End If End Sub '下移 Private Sub Command2_Click()Dim n As Long Dim s As String...
vb 6.0中listbox 怎样添加列序号,需要详细的代码
ListBox本身有内部的列序号啊，那就是ListIndex属性，如果你的意思是想把这个序号显示到每行，可以这样：Private Sub Command1_Click()Dim i As Long For i = 0 To List1.ListCount - 1 List1.List(i) = i+1 & "." & List1.List(i)Next End Sub 补充：你又没有说明你的程序的具体...
vb6.0中listbox控件问题
这样比较好！Private Sub List1_Click()Dim i As Integer Text1.Text = ""For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then Text1.Text = Text1.Text & List1.List(i) & vbCrLf Next End Sub
VBA中如何使用ListBox控件呢?
语法ListBox 说明使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。实例 Dim Entry, I, Msg ' 声明变量。 Msg = "Choose OK to add 100...
VB6.0中LISTBOX的查找问题
Private Sub Command1_Click() '搜索 Dim strtemp As String '定义变量为字符串型，Dim a As String '定义变量为字符串型 Dim i As Integer '定义变量为整值 strtemp = Trim(Text1.Text) ' 初始变量Strtemp 等于文本框中的内容 ，也就是要搜索的内容 For i = 0 To List1.ListCount - ...
