VB6控制項 使用同樣的事件

以TextBox 的GotFocus和、LostFocus事件為例，讓FORM中的兩個TextBox用同樣的事件。

 

1、建一個類，名為ClassFocus，類代碼如下：

Private WithEvents TextBox As TextBox<br />Public Sub SetTextBox(vData As TextBox)<br /> Set TextBox = vData<br />End Sub</p><p>Private Sub TextBox_GotFocus()<br /> TextBox.BackColor = &HC0FFC0<br /> TextBox.SelStart = 0<br /> TextBox.SelLength = Len(TextBox.Text)<br />End Sub</p><p>Private Sub TextBox_LostFocus()<br /> TextBox.BackColor = &H80000005<br />End Sub<br />

 

2、Form代碼如下：

Dim txt(2) As New ClassFocus</p><p>Private Sub Form_Load()<br /> txt(0).SetTextBox Textbox1<br /> txt(1).SetTextBox Textbox2<br />End Sub