MSACCESS-如何为控件创建自定义属性

Question

是否有方法为控件创建公共自定义属性，例如文本框？我只想在文本框中添加一个边框颜色，如下所示：

public property Empty(ValX as Boolean)
if ValX = true then
Screen.ActiveControl.BorderWidth = 10
Screen.ActiveControl.BorderColor = RGB(255, 0, 0)
else
Screen.ActiveControl.BorderWidth = 0
Screen.ActiveControl.BorderColor = RGB(0, 0, 0)
end if
end property

所以我可以这样使用它：

text1.Empty=true

这只是我需要的一个例子。。提前感谢

Answer 1

您可以通过从基控件继承来重载或创建自己的控件。

你能做到的最好吗？

这将起作用：

Public Sub MyEmpty(c As Control, Highlight As Boolean)
If Highlight Then
c.BorderWidth = 6
c.BorderColor = RGB(255, 0, 0)
Else
c.BorderWith = 1
c.BorderColor = RGB(0, 0, 0)
End If
End Sub

因此，在形式代码中？你会这样做：

MyEmpty Text1, True

作为参考？边界宽度是0到6个允许值。但是上面的颜色应该很好用。

所以，没有太多代码，也没有太多键入——但如果你可以创建控件的自定义属性，那就多一点——但这不是一个选项。以上应该可以正常工作，而且你不必依赖屏幕。