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

戏子 · 发表于 2008-8-23 21:47

好久不上来看看,大家都走远了[em04]

mxg825 · 发表于 2008-8-24 10:09

抛砖引玉！引出各位高手参与，谢谢！

[em01][em01]

ggyyggyy · 发表于 2008-8-24 12:02

很简单但是很难实现啊！

不怎么样 · 发表于 2008-8-24 12:10

谢谢分享!

ex111 · 发表于 2008-8-24 12:50

谢谢分享

starszhao · 发表于 2008-8-25 06:47

好看看

lookice · 发表于 2008-9-7 11:23

非常不错的例子

lookice · 发表于 2008-9-7 11:28

QUOTE:

以下是引用蓝桥玄霜在2008-8-23 20:11:00的发言：

Private Sub UserForm_Initialize()
    For i = 1 To 9
        Set newclass(i) = New 类1 '创建一个新类对象
        Set newclass(i).che = Controls("TextBox" & i) '设置新类和textbox(i)控件创建关键
        newclass(i).che.BackColor = &H80000005 '白色
        Set newclass(i).frm = Me     '类窗体也和当前窗体建立关联
    Next
End Sub

将改造后的新类和现有类进行关联是关键

uhnmki · 发表于 2008-9-14 16:55

学习

benn · 发表于 2008-9-14 22:27

谢谢分享

		自动登录	找回密码
密码			注册

[分享] 当控件成为焦点时变色（类模块）