谢谢~能帮我指导下问题吗？！

ch_wang

我不是学这个专业的，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

load中怎么行

ch_wang

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

能帮忙解释下吗
谢谢您了

红尘如烟

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

4# 红尘如烟
您的帖子我已经看到了
十分感谢您的帮助和恢复
感谢您了