?? 如何使多個控件具有相同的事件過程.txt
字號:
其 實 你 可 以 使 用 控 件 數 組 實 現 , 這 樣 你 只 需 要 寫 一 次 事 件 代 碼 就 可 以 了 。
如 果 由 于 某 種 原 因 你 無 法 使 用 控 件 數 組 , 你 可 以 使 用 下 面 的 辦 法 :
先 增 加 一 個 類 模 塊 (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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -