VB 中listBox的多列显示用法
这项的内容分别返回到添加文本框中，进行修改操作。3.还有就是在列表框中的每一项
前添加一个序号，无论在那个位置插入还是删除，序号始终保持1，2，3……的顺序排列。
问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub
Public Sub List1Change() '先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为 List1。当发生删除List或添加List事件之后加上这个事件。For i = 0 To List1.ListCount - 1
If IsNumeric(CStr(Split(Trim(List1.List(i)) & " ", " ")(0))) = True Then
List1.List(i) = i + 1 & " " & Split(List1.List(i) & " ", " ")(1)
'如果已有标记，更新标记
Else
List1.List(i) = i + 1 & " " & Trim(List1.List(i))
'如果没有标记则添加标记
End If
Next
End Sub
Private Sub cmd1_Click()
List1.AddItem "今天的天气是:" & cmd1.Caption
Call List1Change
End Sub
Private Sub Cmd2_Click()
List1.AddItem "今天的天气是:" & Cmd2.Caption
Call List1Change
End Sub
完成的效果：
否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。
留邮箱，或者QQ，字数超出范围了，真的Debug要太长了。我只能给你指出一个错误：
Dim ind As Integerind = List1.ListIndex
If ind >= 0 Then '这里必须是大于等于，我是喜欢写"ind<>-1"这样子
List1.RemoveItem ind
Else
Beep
End If
然后的话你是想点击"修改"时，把检测到的List的Text根据信息划分分入 Text1，Text2，Text3中嘛。此时我强烈建议你遇到这种情况时，弄个Text控件组。比如Text(1)、Text(2)、Text(3)，这样的话代码会简单很多：（我已经写好，但是放不下了这里）
追问1105753554谢谢
追答话说老友记给个满意答案呗~
1直接在属性窗口中修改。
2.在窗体初始化事件里修改。
3.设置列数：ColumnCount；
4.设置宽度：ColumnWidths ；
VB 中listBox的多列显示用法
Public Sub List1Change() '先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为 List1。当发生删除List或添加List事件之后加上这个事件。 For i = 0 To List1.ListCount - 1 If IsNumeric(CStr(Split(Trim(List1.List(i)) & " ", " ")(0))) = True Then List1.List(i...
VBA中如何使用ListBox控件呢?
ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox 控件上添加滚动条。如果未选定项目，则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0，ListCount 属性值总是比最大的 ListIndex 值大 1。语法ListBox 说明使用 AddItem 或者 Remove...
vb listbox 如何分多列显示
用listview控件能做到. 非得用LISTBOX的话 只能在项上加空格了, 如 listbox1.additem 时间+ space(10)+日期+ ... 要对齐简单可以 left(时间+space(30),30)+日期
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 补充：你又没有说明你的程序的具体情...
vb 运行时创建多列式列表框?
本题重点考察listbox控件的使用，解题者需要了解listbox控件的ListIndex属性以及RemoveItem方法，具体代码如下：Private Sub Command1_Click()For i = List1.ListIndex-1 To 0 Step -1 '一定要从大减到小，以为remove之后列表的各项索引都变化了 List1.RemoveItem iNextEnd Sub'或者点击事件改成这...
vb.net怎样在checklistbox控件中显示两列
设置MultiColumn属性为True
vb.net中控件ListBox的多项选择与输出!
Next End Sub '''选择多项 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load For i As Integer = 0 To 10 ListBox1.Items.Add(i.ToString)Next ListBox1.SelectionMode = SelectionMode.MultiSimple End Sub Private Sub Button1_Click(ByVal s...
vba中,listbox要三列,有三段字符串里字符数有长有短有空格,怎样才能...
既然代码中已经有ListBox.Clear语句，那就就事论事吧：For i = ListBox1.ListCount - 1 To 0 Step -1 ListBox1.RemoveItem i Next 注意ListBox的index从零开始，所以最大的Index是ListCount的值减1
vb中listbox中列表为多行内容时如果全选?
全选：Dim i As Integer For i = 0 To List1.ListCount - 1 List1.Selected(i) = True Next 取消全选：Dim i As Integer For i = 0 To List1.ListCount - 1 List1.Selected(i) = False Next
VB问题:msflexgrid控件中如果实现listbox效果选择多行呢
MSFlexGrid1.SelectionMode = flexSelectionFree 可以实现在MSFlexGrid1中选择多行和多列。另外，MSFlexGrid1.AllowBigSelection = True 指定了可以通过单击行\/列头来选中该行\/列的所有列\/行。可以在MSFlexGrid1_SelChange事件中编写代码，返回当前选择的值。
