【分享成果，隨喜正能量】 不是井里沒有水，而是挖的不夠深;不是成功來的慢，而是放棄速度快。得到一件東西需要智慧，放棄一樣?xùn)|西則需要勇氣!一個(gè)人有一個(gè)人的天性，一個(gè)人有一個(gè)人的活法。在這個(gè)世界上是獨(dú)一無二的，只要你保持了本色，生活同樣絢麗奪目。有眼界才有境界，有實(shí)力才有魅力，有思路才有出路，有作為才有地位。政從正來，智從知來，財(cái)從才來，位從為來!《VBA中類的解讀及應(yīng)用》教程是我推出第五套教程，目前已經(jīng)是第一版修訂了。這套教程定位于最高級(jí)，是學(xué)完初級(jí)，中級(jí)后的教程。類，是非常抽象的，更具研究的價(jià)值。隨著我們學(xué)習(xí)、應(yīng)用VBA的深入，有必要理解這些抽象的理論知識(shí)。對(duì)象，類，過程，方法，屬性，事件，接口，接口如何實(shí)現(xiàn)等等。掌握了這些理論，不僅對(duì)于VBA這種寄生語言的實(shí)質(zhì)有所深入的理解，也對(duì)自然界的很多事物將同樣有所感悟。目前，這套教程程序文件已經(jīng)通過32位，64位兩種office系統(tǒng)測(cè)試。這套教程共兩冊(cè)，八十四講，今后一段時(shí)間會(huì)給大家陸續(xù)推出修訂后的教程內(nèi)容。今日的內(nèi)容是第17講：高亮顯示文本框激活的測(cè)試效果第十七講 利用類方法和事件,讓文本框在激活時(shí)改變顏色(下)我們接著上講的內(nèi)容講解，這講我們看程序的運(yùn)行.根據(jù)程序的運(yùn)行過程再次理解類的相關(guān)知識(shí)。5 窗體的初始化執(zhí)行過程1） 點(diǎn)擊此程序的運(yùn)行按鈕，彈出下面的窗體。上面窗體在彈出的時(shí)候，執(zhí)行了下面代碼：If TypeName(myctl) <> 'CommandButton' And TypeName(myctl) <> 'Label' Then ReDim Preserve mytexbox(1 To m) Set mytexbox(m) = New mytebox '創(chuàng)建一個(gè)新的mycdl類對(duì)象 Set mytexbox(m).mBOX = myctl '設(shè)置關(guān)聯(lián)將每個(gè)文本框設(shè)置為新的類，并關(guān)聯(lián)上了響應(yīng)類事件的類對(duì)象mBOX。6 程序的執(zhí)行效果1） 我們點(diǎn)擊第二排第一個(gè)文本框,由于這個(gè)文本框關(guān)聯(lián)了響應(yīng)類事件的類對(duì)象的mBOX.我們到類模塊中看看mBOX有什么事件發(fā)生：一共是兩個(gè)事件：mBOX_Change和mBox_MouseDown。當(dāng)點(diǎn)擊發(fā)生生會(huì)發(fā)生mBox_MouseDown事件：Private Sub mBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) With UserForm7.Controls('TextBox' & i) .BackColor = 16777215 ' (白色) mBOX.BackColor = 16711680 ' (藍(lán)色) mBOX.ForeColor = 16777215 '白色這個(gè)事件中將把前景變成白色，背景變成藍(lán)色。2） 當(dāng)我們錄入數(shù)值時(shí)發(fā)生了mBOX_Change事件，我們看看這個(gè)事件的代碼：Private Sub mBOX_Change() MsgBox ('已經(jīng)超過100'): DoEvents我們錄入一個(gè)數(shù)值111，會(huì)觸發(fā)這個(gè)事件中的彈出對(duì)話框動(dòng)作：3） 在窗體上的求和及重置兩個(gè)按鈕沒有被列入類中，不會(huì)執(zhí)行類的動(dòng)作。1 窗體的對(duì)象如何觸發(fā)類的事件？2 類中定義的響應(yīng)類事件的對(duì)象是如何落實(shí)到窗體上控件的？本講內(nèi)容參考程序文件：VBA-CLASS（1-28）.xlsm我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中，教程學(xué)習(xí)順序：① 7→1→3→2→6→5或者7→4→3→2→6→5。第7套教程（共三冊(cè)）：《VBA之EXCEL應(yīng)用》：是對(duì)VBA基本的講解第1套教程（共三冊(cè)）：《VBA代碼解決方案》：是入門后的提高教程第4套教程（16G）：VBA代碼解決方案之視頻（第一套的視頻講解）第3套教程（共兩冊(cè)）：《VBA數(shù)組與字典解決方案》：是對(duì)數(shù)組和字典的專題講解第2套教程（共兩冊(cè)）：《VBA數(shù)據(jù)庫解決方案》：是對(duì)數(shù)據(jù)庫的專題講解第6套教程（共兩冊(cè)）：《VBA信息獲取與處理》：講解VBA的網(wǎng)絡(luò)及跨程序應(yīng)用第5套教程（共兩冊(cè)）：VBA中類的解讀和利用：類及接口技術(shù)的講解第8套教程（共三冊(cè)）：VBA之Word應(yīng)用（最新教程）：word中VBA的利用
|
