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

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

有没有一种方法可以为控件（例如文本框）创建公共自定义属性？我只想向文本框添加边框颜色，如下所示：

public property Empty(ValX as Boolean)

if ValX = true then
 Screen.ActiveControl.BorderWidth = 10
 Screen.ActiveControl.BorderColor = RGB(255,0)
else
 Screen.ActiveControl.BorderWidth = 0
 Screen.ActiveControl.BorderColor = RGB(0,0)
end if

end property

所以我可以这样使用它：

text1.Empty=true

这只是我需要的一个例子。预先感谢

解决方法

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

你能获得/做到的最好的？

这将起作用：

Public Sub MyEmpty(c As Control,Highlight As Boolean)

  If Highlight Then
     c.BorderWidth = 6
     c.BorderColor = RGB(255,0)
  Else
     c.BorderWith = 1
     c.BorderColor = RGB(0,0)
  End If

End Sub

因此，以代码形式？你会这样：

MyEmpty Text1,True

是否仅供参考？边框宽度为0到6个允许值。但是上面的颜色应该可以正常工作。

因此，不是很多代码，也不是很多类型的输入-但是如果您可以创建控件的自定义属性，则要少得多-但这不是一个选择。上面的方法应该可以正常工作，因此您不必依赖screen.active。