文字框只能輸入數字 – – 限制文字框的輸入

文字框只能輸入數字（限制文字框的輸入）
大家好。今天繼續講解類和類模組的知識。從這一點開始，我們開始學習各種例子。在學習例題的過程中，我們需要加深對概念的理解。對於幾個重要的概念，我們再來複習一下。
CLASS 1class: Class是一個物件的“靈魂”。物件可以是任何東西，而類不會做任何事情，也不會佔用記憶體。只有當一個類變成一個物件，並使用Set語句和New關鍵字例項化成一個具體的物件時，它才能做一些事情並佔用記憶體。
class 2的屬性用於描述類。有兩種宣告方案，一種是直接在類中宣告，另一種是用屬性Let/Set/Get語句宣告。
類3的方法是類中的公共Sub和Function。
4類模組類模組由屬性和方法組成，類本身類似於名詞；屬性可以作為形容詞來描述類；方法是執行操作的動詞。
類5的例項化建立了一個新的類物件。注意，這個物件不一定是一個實際的實體，但它可以被視為一個實體。
6.宣告類的事件:用Event宣告，但只宣告。
7用事件宣告類例項化物件變數
要理解上面的概念，理解之後，就要用上面的知識點去處理我們實際遇到的問題。

在本講的例子中，使用類模組來完成文字框輸入，只能用數字來驗證。如果輸入的不是數字，輸入將被取消。
兩個思路分析在這個例子中，我們要完成對幾個文字框的驗證，所以可以在載入表單的時候把這些文字框設定到同一個類中，然後讓這個類共同響應一個類物件的事件，就是判斷輸入的值是不是數字。這樣我們就能實現我們的目標。
三個程式碼實現
1.首先，建立一個新類mytext。在這個類中，您應該宣告一個用於響應事件的類物件變數。
作為MSForms的公共WithEvents Txtbox。文字框
私有Sub Txtbox_Change()
使用CreateObject(\"vbscript.regexp \")
.全域性=真
.模式= \"[^0-9.]+\"
如果。測試(Txtbox。文字)然後
Txtbox。文字=。更換(Txtbox。文字，\"\")
如果…就會結束
以…結尾
末端接頭
在上面的程式碼中，Txtbox是一個類物件的變數，這個變數應該對應Txtbox_Change事件。

建立一個有幾個文字框的視窗。同時輸入程式碼。

Dim Txt()作為新的mytext
私有子命令Button1_Click()
目標
末端接頭
私有子UserForm_Initialize()
我身體裡的每一個細胞。控制
如果TypeName(myctl) = \"TextBox \",則
m = m + 1
ReDim Preserve Txt(1到m)
設定Txt(m)。Txtbox = myctl
如果…就會結束
然後
末端接頭
私有子UserForm_Terminate()
目標
末端接頭

上面的程式碼中宣告瞭一個類，同時透過動態陣列的方式將幾個文字框放入我們想要的類物件中。這樣，當程式碼執行時，該類的所有事件都可以得到響應。
由於篇幅原因，程式碼的解釋和操作在下一講。

今天的內容回來了:
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到來之前，誰能把資料處理做到極致，誰就是王道。其中，技能最高的是VBA！