控件
如何实现控件数组的引用,不想在窗体中控件的事件写代码,因为这些代码都一样.
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区'Class1.cls
Private WithEvents txt As TextBox
Property Set TextBox(obj As Object)
Set txt=obj
End Property
Private Sub txt_Change()
if not IsNumeric(txt) then txt=""
End Sub
'Form1
Dim clstxt1 As New Class1
Dim clstxt2 As New Class1
Private Sub Form_Load()
set clstxt1.TextBox=Me.Text1
Set clstxt2.TextBox=Me.Text2
End Sub
这样我可以不在窗体中写Text1,Text2的Change过程,也可以实现对他们的处理
但是如果Text3(0),Text3(1)这样的控件数组就不能这样,
如何在类中实现控件事件的集中处理??
Private WithEvents txt As TextBox
Property Set TextBox(obj As Object)
Set txt=obj
End Property
Private Sub txt_Change()
if not IsNumeric(txt) then txt=""
End Sub
'Form1
Dim clstxt1 As New Class1
Dim clstxt2 As New Class1
Private Sub Form_Load()
set clstxt1.TextBox=Me.Text1
Set clstxt2.TextBox=Me.Text2
End Sub
这样我可以不在窗体中写Text1,Text2的Change过程,也可以实现对他们的处理
但是如果Text3(0),Text3(1)这样的控件数组就不能这样,
如何在类中实现控件事件的集中处理??
...全文
