高亮顯示文本框激活的測試效果

鉞YUE 2021-11-15

展開全文

【分享成果，隨喜正能量】不是井里沒有水，而是挖的不夠深;不是成功來的慢，而是放棄速度快。得到一件東西需要智慧，放棄一樣東西則需要勇氣!一個人有一個人的天性，一個人有一個人的活法。在這個世界上是獨一無二的，只要你保持了本色，生活同樣絢麗奪目。有眼界才有境界，有實力才有魅力，有思路才有出路，有作為才有地位。政從正來，智從知來，財從才來，位從為來!

《VBA中類的解讀及應(yīng)用》教程是我推出第五套教程，目前已經(jīng)是第一版修訂了。這套教程定位于最高級，是學完初級，中級后的教程。

類，是非常抽象的，更具研究的價值。隨著我們學習、應(yīng)用VBA的深入，有必要理解這些抽象的理論知識。對象，類，過程，方法，屬性，事件，接口，接口如何實現(xiàn)等等。掌握了這些理論，不僅對于VBA這種寄生語言的實質(zhì)有所深入的理解，也對自然界的很多事物將同樣有所感悟。目前，這套教程程序文件已經(jīng)通過32位，64位兩種office系統(tǒng)測試。

這套教程共兩冊，八十四講，今后一段時間會給大家陸續(xù)推出修訂后的教程內(nèi)容。今日的內(nèi)容是第17講：高亮顯示文本框激活的測試效果

第十七講利用類方法和事件,讓文本框在激活時改變顏色(下)

（接上講）

我們接著上講的內(nèi)容講解，這講我們看程序的運行.根據(jù)程序的運行過程再次理解類的相關(guān)知識。

5 窗體的初始化執(zhí)行過程

1）點擊此程序的運行按鈕，彈出下面的窗體。

上面窗體在彈出的時候，執(zhí)行了下面代碼：

If TypeName(myctl) <> 'CommandButton' And TypeName(myctl) <> 'Label' Then

yy = TypeName(myctl)

m = m + 1

ReDim Preserve mytexbox(1 To m)

Set mytexbox(m) = New mytebox '創(chuàng)建一個新的mycdl類對象

Set mytexbox(m).mBOX = myctl '設(shè)置關(guān)聯(lián)

End If

將每個文本框設(shè)置為新的類，并關(guān)聯(lián)上了響應(yīng)類事件的類對象mBOX。

6 程序的執(zhí)行效果

1）我們點擊第二排第一個文本框,由于這個文本框關(guān)聯(lián)了響應(yīng)類事件的類對象的mBOX.我們到類模塊中看看mBOX有什么事件發(fā)生：一共是兩個事件：mBOX_Change和mBox_MouseDown。當點擊發(fā)生生會發(fā)生mBox_MouseDown事件：

Private Sub mBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

For i = 2 To 4

With UserForm7.Controls('TextBox' & i)

.ForeColor = 0 '（黑色）

.BackColor = 16777215 ' (白色)

TT = .Text

End With

mBOX.BackColor = 16711680 ' (藍色)

mBOX.ForeColor = 16777215 '白色

End Sub

這個事件中將把前景變成白色，背景變成藍色。