Question

VB 中listBox的多列显示用法

这项的内容分别返回到添加文本框中，进行修改操作。3.还有就是在列表框中的每一项

前添加一个序号，无论在那个位置插入还是删除，序号始终保持1，2，3……的顺序排列。





Answer 1

问题有点乱啊……小弟认为的话做一个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 Integer
 ind = 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谢谢

追答

话说老友记给个满意答案呗~

Answer 2

1直接在属性窗口中修改。
2.在窗体初始化事件里修改。

3.设置列数：ColumnCount；
4.设置宽度：ColumnWidths  ；