| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 谁给个ComboBOX的例子 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2334) |
| -- 作者：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了，怎么还是不行？ |
| -- 作者：admin -- 发布时间：2010/8/2 15:06:56 -- 你这是从其他地方拷贝过来的OFFICE的VBA代码吧 金字塔兼容的是VBS语法，变量声明不需要指名类型，窗体内部的控件引用需要指定窗体名称 比如 FROM1_ComboBOX1.AddItem bbvv(s)
|