MS ACCESS - 如何为控件创建自定义 属性
MSACCESS - How to create a custom property for a control
有一种方法可以为控件(例如文本框)创建 public 自定义 属性?
我只想像这样向文本框添加边框颜色:
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
这只是我需要的一个例子..
提前致谢
您不能通过继承基控件来重载或创建自己的控件。
尽力而为get/do?
这可行:
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。
有一种方法可以为控件(例如文本框)创建 public 自定义 属性? 我只想像这样向文本框添加边框颜色:
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
这只是我需要的一个例子.. 提前致谢
您不能通过继承基控件来重载或创建自己的控件。
尽力而为get/do?
这可行:
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。