复合框 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

您是要做什么操作呢？？

这个复选框选中后改变显示的文字和背景色，你这边代码都没问题

这是combox控件，这是初始化添加项例子

UserForm1_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")

这个是取控件切换合约然后进行操作

Sub UserForm1_ComboBox1_Click()

Select Case UserForm1_ComboBox1.Value

Case UserForm1_ComboBox1.List(0)

这边你自己的程序

bk_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
bk_ComboBox1.listindex=0
bk_TextBox1="IF00"                                  '要先给textbox传递过去，不然你放在事件里的话就只有点击才会执行了
Sub bk_ComboBox1_Click()
      Select Case bk_ComboBox1.Value
             Case bk_ComboBox1.List(0)
                  SASA="IF00"
              Case bk_ComboBox1.List(1)
                  SASA="IH00"

                  Case bk_ComboBox1.List(2)
                  SASA="IC00"

                  Case bk_ComboBox1.List(3)
                  SASA="TF00"
      End Select
    bk_TextBox1=SASA
End Sub

不太明白你问题了，你不就是希望复选框里选择品种时候，sasa得打相应的合约吗，另外在文本框里这边对应着输出不是吗？？

那么我9楼这边给范例不就是这样了吗？？

021-20339087

电话联系吧

bk.Show
dim SASA

bk_ComboBox1.List = Array("IF00", "IH00", "IC00", "TF00")
bk_ComboBox1.listindex=0
SASA="IF00"                                  '我这里中有写这一句的，这样编译不能通过    \

set report1=marketdata.getreportdata("IF00","ZJ")
bk_TextBox1 = report1.newprice
Sub bk_ComboBox1_Click()
      Select Case bk_ComboBox1.Value
             Case bk_ComboBox1.List(0)
                  SASA="IF00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
              Case bk_ComboBox1.List(1)
                  SASA="IH00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
                  Case bk_ComboBox1.List(2)
                  SASA="IC00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
                  Case bk_ComboBox1.List(3)
                  SASA="TF00"
                  set report1=marketdata.getreportdata(SASA,"ZJ")
                  bk_TextBox1 = report1.NewPrice
      End Select

End Sub

主题：复合框