你好
我想在包含文本“AL-”的图形中打开和关闭图层(因此请关闭所有包含此文本的图层)
是的,我知道,一个简单的宏要容易得多,但我希望它在VBA8中)
我正在使用基于代码的层系统。当我有这个代码时,我可以计算出所有代码。
顺便说一句,这是一个切换按钮(绿-红)。我已经有了这个代码:
-
- Private Sub tgl_AL_Click()
- If ActiveControl.Value = True Then
- Me.ActiveControl.BackColor = &HFF&
- Else
- Me.ActiveControl.BackColor = &HC000&
- End If
- End Sub
已经谢谢了!! |