復(fù)合框

作者：金字塔來源：cxh99.com 發(fā)布時(shí)間：2016年09月12日

咨詢內(nèi)容： 你好，可以幫寫一段復(fù)合框的代碼嗎？因?yàn)椴呗灾欣鲜菗Q時(shí)不方便
此主題相關(guān)圖片如下：qq圖片20160623135320.png

我的鉤選項(xiàng)是這樣寫的，你幫寫個(gè)大括，可以嗎'-------------------------------------------------------------Sub bk_CheckBox1_Click() ' 擇盈平倉(cāng) if bk_CheckBox1.Caption="擇盈平倉(cāng)" then iRun=0 '暫停 bk_CheckBox1.Caption="停止擇盈" bk_CheckBox1.backcolor=rgb(255,0,0) else iRun=1 '運(yùn)行 bk_CheckBox1.Caption="擇盈平倉(cāng)" bk_CheckBox1.backcolor=rgb(0,255,0)' end if
金字塔客服：
您是要做什么操作呢？？

這個(gè)復(fù)選框選中后改變顯示的文字和背景色，你這邊代碼都沒問題
用戶回復(fù)： IF,01到12
選擇
IF01
IF02
IF03IF04只要開個(gè)頭，我能看明白就好了，
我上面的，只是我有一個(gè)按鍵的代碼，所以鉤選，我也這樣做，那些文字和背景色我能修改，只是復(fù)選擇框沒有開頭，搞了半天，開不了頭
網(wǎng)友回復(fù)： 我想把選項(xiàng)中點(diǎn)選IF01到IF12，就是選擇后，取到“IF01”，如下面這樣用IF07
給后面的這種代碼執(zhí)行我這里的IF07是直接寫上去的,我想通過復(fù)選框選擇
set report1=marketdata.getreportdata("IF07","ZJ")' application.msgout Cdate(time) & ",最新價(jià):" &report1.NewPrice & ",買1價(jià):"&report1.buyprice1&",賣1價(jià):"&report1.sellprice1
網(wǎng)友回復(fù)： 這是combox控件，這是初始化添加項(xiàng)例子UserForm1_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
這個(gè)是取控件切換合約然后進(jìn)行操作Sub UserForm1_ComboBox1_Click()Select Case UserForm1_ComboBox1.Value Case UserForm1_ComboBox1.List(0) 這邊你自己的程序

大伊人青草狠狠久久-大伊香蕉精品视频在线-大伊香蕉精品一区视频在线-大伊香蕉在线精品不卡视频-大伊香蕉在线精品视频75-大伊香蕉在线精品视频人碰人

復(fù)合框