復合框

作者：金字塔來源：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) 這邊你自己的程序