菜单按钮点击后修改控件报错

李泰蜜

菜单按钮点击后运行下面的代码


              Public Sub 允许编辑
                        For Each ctrl As Control In Me.SmForm.ControlDictionary().Values
                                Dim        box As BoxDropDownBox=CType(ctrl,BoxDropDownBox)
                       
                                box.BackColor = Color.FromArgb(239, 239, 239)
                        Next
                End Sub



报错

admin

Dim        box As BoxDropDownBox=CType(ctrl,BoxDropDownBox)
这个返回对象有可能是返回空值的，你处理之前得先判断一下，另外Box开头的控件是一个组合控件，想引用右边的控件得使用BoxDropDownBox的BaseControl属性，具体可以参考：
http://www.sanmugrid.com/help/in ... %8E%A7%E4%BB%B6.htm

1. Public Sub 允许编辑
   
2.         For Each ctrl As Control In Me.SmForm.ControlDictionary().Values
   
3.                 Dim box As BoxDropDownBox=CType(ctrl,BoxDropDownBox)
   
4.                 If box IsNot Nothing Then
   
5.                         box.BaseControl.BackColor= Color.FromArgb(239, 239, 239)
   
6.                 End If
   
7.         Next
   
8. End Sub

复制代码

李泰蜜

还是报错代码改为下面就正确了
Public Sub 允许编辑
                        For Each ctrl As Control In Me.SmForm.ControlDictionary().Values                               
                                If TypeOf ctrl Is BoxDropDownBox Then
                                        Dim box As BoxDropDownBox = DirectCast(ctrl, BoxDropDownBox)
                                        box.BaseControl.BackColor = Color.FromArgb(239, 239, 239)
                                End If
                               
                        Next
                End Sub

李泰蜜

当控件用户背景颜色设置为Silver时候， 代码修改只是暂时的，鼠标进入控件，离开后又变回Silver了

李泰蜜

  box.BaseControl.BackColor    不是修改用户背景颜色 我想要修改用户背景颜色

admin

box.UserBackColor