复合框

作者：金字塔来源：cxh99.com 发布时间：2016年09月12日

咨询内容： 你好，可以帮写一段复合框的代码吗？因为策略中老是换时不方便
此主题相关图片如下：qq图片20160623135320.png

我的钩选项是这样写的，你帮写个大括，可以吗'-------------------------------------------------------------Sub bk_CheckBox1_Click() ' 择盈平仓 if bk_CheckBox1.Caption="择盈平仓" then iRun=0 '暂停 bk_CheckBox1.Caption="停止择盈" bk_CheckBox1.backcolor=rgb(255,0,0) else iRun=1 '运行 bk_CheckBox1.Caption="择盈平仓" bk_CheckBox1.backcolor=rgb(0,255,0)' end if
金字塔客服：
您是要做什么操作呢？？

这个复选框选中后改变显示的文字和背景色，你这边代码都没问题
用户回复： IF,01到12
选择
IF01
IF02
IF03IF04只要开个头，我能看明白就好了，
我上面的，只是我有一个按键的代码，所以钩选，我也这样做，那些文字和背景色我能修改，只是复选择框没有开头，搞了半天，开不了头
网友回复： 我想把选项中点选IF01到IF12，就是选择后，取到“IF01”，如下面这样用IF07
给后面的这种代码执行我这里的IF07是直接写上去的,我想通过复选框选择
set report1=marketdata.getreportdata("IF07","ZJ")' application.msgout Cdate(time) & ",最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1
网友回复： 这是combox控件，这是初始化添加项例子UserForm1_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
这个是取控件切换合约然后进行操作Sub UserForm1_ComboBox1_Click()Select Case UserForm1_ComboBox1.Value Case UserForm1_ComboBox1.List(0) 这边你自己的程序