主题：有关窗口控件

设置CheckedComboBox1的Enter事件代码：

Dim ckb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
If e.Form.Controls("ComboBox1").Text = "是" Then
    e.sender.ReadOnly = BooleanEnum.False
    ckb.OpenDropDown
Else
    e.sender.ReadOnly = BooleanEnum.True
    ckb.Value = Nothing
nd If