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

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 个允许值。 但是上面的颜色应该可以正常工作。

所以，代码不多，打字也不多——但如果你可以创建一个控件的自定义属性，那就多一点——但这不是一个选项。以上应该可以正常工作，因此您不必依赖 screen.active。