Question

vb Combo1.AddItem 批量添加年月日

比如我想添加100年 从2000年到2100年 Combo1.AddItem "2000"到Combo1.AddItem "2100" 如果一个一个写 不就累死了吗 有没有什么简单办法 月日同理

Answer 1

VB使用AddItem 方法给ComboBox控件添加数据。
AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。

1
2
3
4
5
6
7
8
9

Private Sub Form_Click()
Dim Entry, I, Msg ' 声明变量。
Msg = "点OK增加100项到ComboBox控件"
MsgBox Msg ' 显示信息。
For I = 1 To 100 ' 计数值从 1 到 100。
Entry = "Entry " & I ' 创建输入项。
Combo1.AddItem Entry ' 添加该输入项。
Next I
End Sub