如何使多个控件具有相同的事件过程.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

其 实 你 可 以 使 用 控 件 数 组 实 现 ， 这 样 你 只 需 要 写 一 次 事 件 代 码 就 可 以 了 。 
    如 果 由 于 某 种 原 因 你 无 法 使 用 控 件 数 组 ， 你 可 以 使 用 下 面 的 办 法 ： 
    先 增 加 一 个 类 模 块 (Class1) 
    Option Explicit 
     
    Public WithEvents txt As TextBox 
     
    Public Property Set TextBoxCtl(OutsideTextBox As TextBox) 
     Set txt = OutsideTextBox 
    End Property 
     
    Private Sub txt_GotFocus() 
     txt.ForeColor = vbRed 
    End Sub 
     
    Private Sub txt_LostFocus() 
     txt.ForeColor = vbBlack 
    End Sub 
    然 后 在 Form中 输 入 以 下 代 码 ： 
    Dim clsTextBox() As Class1 
     
    Private Sub Form_Load() 
     Dim i, j 
     
     j = 1 
     For i = 0 To Controls.Count - 1 
     If TypeOf Controls(i) Is TextBox Then 
     ReDim Preserve clsTextBox(j) As Class1 
     Set clsTextBox(j) = New Class1 
     Set clsTextBox(j).TextBoxCtl = Controls(i) 
     j = j + 1 
     End If 
     Next 
    End Sub
<END>