如何在列表框中显示数字？

Question

简介：您好！我是 VB6 新手 UI，我只想让数字出现在列表框中。

详细信息： 我的意思是，例如，我有两个文本框，第一个文本框标记为“发件人”，第二个标记为“收件人”，如果用户在“From”中输入 1，在“To”中输入 10，我想在列表框中列出数字 1 到 10。

您尝试了什么？：现在不知道该写什么。

代码：

Option Explicit
Private Sub btCalculate_Click()
    Dim From As Long
    Dim T As Long
    
    From = Val(txtFrom.Text)
    T = Val(txtTo.Text)

End Sub

感谢您回答和回复我的问题

Answer 1

您需要添加一个循环。像这样：

Option Explicit

Private Sub btCalculate_Click()
   Dim i As Integer
   
   lstCount.Clear
   
   For i = Val(txtFrom.Text) To Val(txtTo.Text)
      lstCount.AddItem i
   Next
End Sub

其中 lstCount 是一个列表框。

如何在列表框中显示数字？

How do I display numbers in the List Box?

listbox

vb6