当控件成为焦点时变色（类模块）

HYY514

[em01]

HYY514

 

在此例中建立窗体关联是一多余步骤,

另外采用循环很没效率,改如下:
ehVsuU4L.rar (9.36 KB, 下载次数: 35)

2008-8-23 20:41 上传

点击文件名下载附件
[分享]当控件成为焦点时变色（类模块）

不看不看

看看飞翔的

循环是偶想起来的，当时就感到多余，但没想起来别的办法

窗体关联是一多余步骤，直接套用兰版的代码，没有去掉

不看不看

Public teb As Variant
Sub getolg(te As Variant)
On Error Resume Next
teb.BackColor = RGB(255, 255, 255)
MsgBox teb.Name
Set teb = UserForm1.Controls(te.Name)
MsgBox teb.Name
End Sub

这么着才明白些，可还是不太理解

不看不看

第一个MsgBox teb.Name怎么就会是上一个

这里有些不解

HYY514

teb变量只是当前TEXTBOX临存, 每getolg一次临存一次,思路逻辑问题.

fke78

学习学习

不看不看

哦，明白了[em01]

hhzjxss

哎，啥时我也得学一下这个东东了！[em04]

不看不看

呵呵，这里胡乱改下，算是偶明白了

Public teb As Variant
Sub getolg(te As Variant)
Static m%
m = m + 1
If m <> 1 Then
    teb.BackColor = RGB(255, 255, 255)
End If
Set teb = UserForm1.Controls(te.Name)
End Sub