Office中国论坛/Access中国论坛

标题: 谢谢~能帮我指导下问题吗？！ [打印本页]

---

作者: ch_wang    时间: 2010-4-1 12:57
标题: 谢谢~能帮我指导下问题吗？！
我不是学这个专业的，vb也是一知半解，就是以前看过vc++的书
就一边对着书一边搞这个，呵呵
实在是没办法！
周围也不认识一个懂编程的人！
真是不好意思！
希望大家给我点指导！
下面是我一个不懂得问题：
Public Function changtboxcolour()
Dim ctl As Control
For Each ctl In Form_总体信息
If TypeOf ctl Is TextBox Then
   If Form_总体信息(ctl.Name).OnGotFocus Then
      Form_总体信息(ctl.Name).BackColor = RGB(140, 196, 134)
      Form_总体信息(ctl.Name).ForeColor = RGB(255, 255, 0)
   End If
   If Form_总体信息(ctl.Name).OnLostFocus Then
      Form_总体信息(ctl.Name).BackColor = RGB(255, 255, 255)
      Form_总体信息(ctl.Name).ForeColor = RGB(31, 123, 31)
   End If
End If
Next
End Function
我自己乱试的一下；
我把这段代码放在模块中，
再在窗体总体信息中的load事件中调用这个函数，
为什么就会提示 类型不匹配 啊？！

---

作者: tz-chf    时间: 2010-4-1 13:05
load中怎么行

---

作者: ch_wang    时间: 2010-4-1 15:31

load中怎么行
tz-chf 发表于 2010-4-1 13:05

能帮忙解释下吗
谢谢您了

---

作者: 红尘如烟    时间: 2010-4-1 16:37

1. Public Function changtboxcolour()
   
2. Dim ctl As Control
   
3. Dim frm As Form
   
4. 
   
5. Set frm=Forms("总体信息")
   
6. For Each ctl In frm.Controls
   
7. If TypeOf ctl Is TextBox Then
   
8.    If ctl.Name=frm.ActiveControl.Name Then
   
9.       ctl.BackColor = RGB(140, 196, 134)
   
10.       ctl.ForeColor = RGB(255, 255, 0)
    
11.    Else
    
12.       ctl.BackColor = RGB(255, 255, 255)
    
13.       ctl.ForeColor = RGB(31, 123, 31)
    
14.    End If
    
15. End If
    
16. Next
    
17. End Function

复制代码

---

作者: ch_wang    时间: 2010-4-2 12:51
4# 红尘如烟
您的帖子我已经看到了
十分感谢您的帮助和恢复
感谢您了

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3