Question

VB6.0 列表框

高手帮写个VB6.0 列表框代码，
有一个列表框，和一个文本框，想在文本框里显示列表框里有多少项，这样的代码怎样写，谢谢
.

Answer 1

你要控件还是程序？
我先给你写个程序，控件的话再联系我。
主要就是用列表框的ListCount属性。
把下面的代码复制到一个文本文档里，然后把txt后缀改为frm，最后打开就好了。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3270
ClientLeft = 120
ClientTop = 450
ClientWidth = 3180
LinkTopic = "Form1"
ScaleHeight = 3270
ScaleWidth = 3180
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Height = 2895
Left = 1800
TabIndex = 2
Top = 0
Width = 1335
Begin VB.CommandButton Command2
Caption = "删除一项"
Height = 375
Left = 120
TabIndex = 4
Top = 840
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "增加一项"
Height = 375
Left = 120
TabIndex = 3
Top = 240
Width = 1095
End
End
Begin VB.TextBox Text1
Height = 270
Left = 120
TabIndex = 1
Top = 2640
Width = 1575
End
Begin VB.ListBox List1
Height = 2400
Left = 120
TabIndex = 0
Top = 120
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
List1.AddItem "abc"
Text1.Text = List1.ListCount
End Sub

Private Sub Command2_Click()
On Error Resume Next
List1.RemoveItem (List1.ListCount - 1)
Text1.Text = List1.ListCount
End Sub

Private Sub Form_Load()
Text1.Text = 0
End Sub

Answer 2

列表框里的 条目数 可以用
List1.ListCount获得：

Msgbox List1.ListCount

参考（用到Timer控件，由于我电脑没装VB，直接在这里打了，不知道有没有错误）

Private Sub Form_Load()
Timer1.InterVal = 1000 '每隔1000毫秒（1秒）刷新一次
End Sub

Private Sub Timer1_Timer()
Text1.Text = List1.ListCount ‘将List1这个列表框中的条目数显示到Text1中
End Sub