[已解决]类的属性 - 设置文本框背景色

Select

附件就是这样子的：在空白工作簿里插入一个窗体，窗体里插入三个文本框

请问：如何用类的属性，在窗体初始化后，三个文本框的backcolor就变为vbyellow？
谢谢！

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-1-4 15:43

类SETBC

1. 
   
2. Private WithEvents Tb As MSForms.TextBox
   
3. Sub St(t As MSForms.TextBox)
   
4.     Set Tb = t
   
5.     Tb.BackColor = vbYellow
   
6. End Sub

复制代码

1. 
   
2. Option Explicit
   
3. Public Arr(1 To 3) As SetBC
   
4. Sub 按钮1_Click()
   
5.     UserForm1.Show 0
   
6. End Sub
   

复制代码

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     Dim i As Byte
   
4.     For i = 1 To 3
   
5.         Set Arr(i) = New SetBC
   
6.         Arr(i).St Me.Controls("textbox" & i)
   
7.     Next
   
8. End Sub
   

复制代码

111.rar (11.73 KB, 下载次数: 62)

2012-1-4 15:43 上传

点击文件名下载附件

跳转到最佳答案楼层

Select

111.rar (7.77 KB, 下载次数: 15)

2012-1-4 15:26 上传

点击文件名下载附件

如前面所说，我觉得新建还快些，所以没传附件。

附件内容：
在空白工作簿里插入一个窗体，窗体里插入三个文本框

liuguansky

类SETBC

1. 
   
2. Private WithEvents Tb As MSForms.TextBox
   
3. Sub St(t As MSForms.TextBox)
   
4.     Set Tb = t
   
5.     Tb.BackColor = vbYellow
   
6. End Sub

复制代码

1. 
   
2. Option Explicit
   
3. Public Arr(1 To 3) As SetBC
   
4. Sub 按钮1_Click()
   
5.     UserForm1.Show 0
   
6. End Sub
   

复制代码

1. Option Explicit
   
2. Private Sub UserForm_Initialize()
   
3.     Dim i As Byte
   
4.     For i = 1 To 3
   
5.         Set Arr(i) = New SetBC
   
6.         Arr(i).St Me.Controls("textbox" & i)
   
7.     Next
   
8. End Sub
   

复制代码

111.rar (11.73 KB, 下载次数: 62)

2012-1-4 15:43 上传

点击文件名下载附件

Select

谢谢liuguansky ！
这样是不是通过事件实现的呀？
我不知道，可不可以用属性方式实现？

吕?布

原来类本来就有这个属性啊，直接用就行了吧

Select

碰到这样情况：希望一批文本框有特定要求（如只允许输入数字）。

于是我想，对于这样一批有特定要求的文本框，是否需要通过类的属性的方式，使它们统一实现要求。于是有了1楼问题。如果有特点要求还有很多？比如，字体18，字体颜色红色，字体加粗，字体黑体。这些都是属性吧。

就好像打来的饭盒，我希望只打回锅肉和番茄鸡蛋，那么我打来这样的盒饭，算不算有别于随便打来的盒饭，而单独称作某一类呀？

Select

除非是现在定义一个全新的东西，才会去用类的属性设计它，我们几乎遇不上这种情况。

我们学习的类，是针对已经定义好的对象。例如，比文本框的背景色就是已经定义好了的（原理说不了，总之就是好了的）

我先这样理解好了

Select

看来还是想的例子不好，自己也是糊糊涂涂的问，先放着，慢慢理解吧。

谢谢liuguansky 、吕布！