1. 首頁 > 生活百科 > >

利用類方法 文本框事件

對象事件窗體文本框

文本框事件(使用類方法)
大家好，今天繼續講解一下上課的方法和事件 。至此，我們已經基本學會了如何使用類以及如何使用類的事件 。
如果要使用類，必須在類模塊中構建一個類，并且可以將類名更改為所需的形式 。類建立后，需要實例化該類，并將其轉化為相對實體對象 。如果類沒有被實例化，它就沒有意義 。通常，您可以在表單的構造中實例化該類；如果希望此實體對象響應類的事件，則應該在類聲明中聲明對象，在類模塊中響應事件，并在表單模塊中對對象進行必要的關聯 。
下面還是以實例來說明類模塊的實際問題 。
示例:在表單中，讓每個文本框在激活時改變顏色 。
思路分析:讓表單中的文本框關聯到同一個類，可以執行統一的類事件 。在表單中，將必要的文本框與此類以及將執行響應的類事件相關聯 。
實施過程:
構建一個類模塊和類事件 。
我們建立了一個類模塊mytebox 。并將響應類模塊中事件的對象Mbox聲明為一組我們想要在文本框中干預的對象 。


公共WithEvents mBOX As MSForms 。文本框
私有子mBOX_Change()
m = mBOX 。文本
如果m = 0，那么m = 0
如果是100米，那么
MsgBox(超過100 ): DoEvents
如果…就會結束
末端接頭
私有子對象鼠標向下(按值按鈕作為整數，按值移位作為整數，按值X作為單個，按值Y作為單個)
對于i = 2到4
使用UserForm7 ?？丶?文本框一)
。前顏色= 0(黑色)
。BackColor = 16777215(白色)
TT 。文本
以…結尾
然后
MBOX 。背景色= 16711680(藍色)
MBOX 。ForeColor = 16777215白色
末端接頭
1在上面的代碼中，public withevents mbox作為msforms.textbox聲明了應該響應類對象事件的對象 。
上面的對象有兩個事件，一個是mBOX_Change，另一個是mBox_MouseDown 。
讓我們看看第一個事件mBOX_Change 。當對象更改時，將執行以下操作:
m = mBOX 。文本
如果m = 0，那么m = 0
如果是100米，那么
MsgBox(超過100 ): DoEvents
首先，mBOX的價值 。文字要拿出來評判 。如果是空，則按0處理；如果大于100，會提示，已經超過100 。
4 mBox_MouseDown過程 。
對于i = 2到4
使用UserForm7 ?？丶?文本框一)
。前顏色= 0(黑色)
。BackColor = 16777215(白色)
TT 。文本
以…結尾
然后
MBOX 。背景色= 16711680(藍色)
MBOX 。ForeColor = 16777215白色
對于第2到第4個文本框，首先初始化每個文本框，然后為活動文本框著色 。背景是藍色，前景是白色 。
運行時窗體的接口:

今天的內容回歸:
對象如何響應類1的事件？
2類事件聲明后，如何應用？
(未完待續)
-
學習有用的東西需要永不滿足的精神，知道自己需要什么，不要蜷縮在一個自以為是天堂的小世界里 。等到老了再發表自欺欺人的言論 。努力提升自己，擁有一顆充滿活力的心，把握當下，這就是進取 。事情越有意義，困難就會越多 。愿意自始至終被確定，智慧決定成敗 。無論遇到什么，都是風景 ?？吹姞?，看淡得失 。茶，滿了還是少了，不在乎；無論是濃還是淡，都有自己值得品嘗的味道 。感受真實的時間，靜下心來，多學習，多積累祝福 。與其每天游手好閑，還不如每天無所事事 。在后疫情、更嚴峻的殺股世界，儲備知識，尤其是新知識，為自己的生存 。
VBA是利用Office實現自己小型辦公自動化的有效手段 。基于我20多年的VBA實踐經驗，我現在已經介紹了五個VBA教程 。第一，VBA碼解是對VBA各知識點的講解，涵蓋了絕大多數VBA知識點；其次，數據處理專業工具VBA數據庫解決方案詳細介紹了用ADO連接ACCDB和EXCEL的方法和實例 。第三:VBA數組和字典解決方案，解釋數組和字典在VBA的使用 。這是提高詞典VBA碼水平的一種手段，值得深入研究 。第四，VBA碼解的視頻是給初學者的視頻講解，可以快速上手，更快掌握這項技能 。第五，VBA的課堂講解與運用是一門高級課程，非常有利于我自己理論的完善 。上述教程可以按照1、3、2、5或4、3、2、5的順序逐步學習和利用 。
在新的Office軟件取代OFFICE到來之前，誰能在數據處理方面做到最好，誰就是王者 。其中，VBA的身手最好！
版權聲明：【利用類方法 文本框事件】本文內容由互聯網用戶自發貢獻，該文觀點僅代表作者本人 。本站僅提供信息存儲空間服務，不擁有所有權，不承擔相關法律責任 。如發現本站有涉嫌抄襲侵權/違法違規的內容， 請發送郵件至 2672143071@qq.com 舉報，一經查實，本站將立刻刪除 。

推薦閱讀