标题：谁给个ComboBOX的例子

1楼

pel46585 发表于：2010/8/1 20:31:03

Private Sub UserForm_Load()
Dim s As Integer
bbvv = Array("灰色", "红色", "绿色", "蓝色")
vvcc = Array(&H888888, &HFF, &H1FF00, &HFF0000)
For s = 0 To UBound(bbvv)
ComboBOX1.AddItem bbvv(s)
Next
End Sub
比如这个，第一句通不过，去掉后能通过(为什么？金字塔不能DIM？）
ComboBOX1.AddItem bbvv(s)通不过，说是缺少对象。我已经建了一个COMBOBOX1了，怎么还是不行？

2楼

admin 发表于：2010/8/2 15:06:56

你这是从其他地方拷贝过来的OFFICE的VBA代码吧

金字塔兼容的是VBS语法，变量声明不需要指名类型，窗体内部的控件引用需要指定窗体名称比如 FROM1_ComboBOX1.AddItem bbvv(s)
详细请看 http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=582

共2 条记录, 每页显示 10 条, 页签: [1]