如何解决如何在列表框中显示数字?
简介:嗨!我是 VB6 UI 的新手,我只想让数字出现在列表框中。
详细信息:我的意思是,例如,我有两个文本框,第一个文本框标记为“从”,第二个标记为“到”,如果用户在“ From”和“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
感谢您回答和回复我的问题。
解决方法
您需要添加一个循环。像这样:
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
是一个列表框。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。