文本框事件限制文本框的輸入 _限制

文章插圖
文本框事件（限制文本框的輸入）
大家好，我們今天繼續講解類和類模塊的知識，從這講開始我們開始對各種實例的學習，在實例學習的過程中我們要加深對概念的理解，對于幾個重要的概念，我們再次回顧一下。
1 類CLASS：類是對象的"靈魂" 。對象可以是任何事物，而類不會做任何事情，也不會占用內存，只有當類成為對象并使用Set語句和New關鍵字實例化為具體對象后，才能做事情并占用內存。
2 類的屬性，用來描述類。有兩種聲明方案，一種是在類中直接聲明，一種是用Property Let/Set/Get語句聲明。
3 類的方法在類中公共的Sub和Function 。
4 類模塊類模塊由屬性和方法組成，類本身類似于名詞；屬性可以當作形容詞，用來描述類；方法則為動詞，執行操作。
5 類的實例化建立新的類對象。注意這個對象不一定是實際意義上的實體，但可以作為實體來對待。
6 聲明類的事件：用Event進行聲明，但只是聲明。
7 聲明類實例化對象變量WithEvents
對于上面的概念要理解，理解后我們要利用上面的知識點來處理我們實際遇到的問題了。
一本講的實例利用類模塊，完成文本框錄入只能是數字的校驗，如果錄入的不是數字那么將被取消錄入。
二思路分析在這個實例中，我們要完成對若干個文本框的校驗，那么可以在窗體加載時把這些文本框設置成同一個類，然后讓這個類共同響應一個類對象的事件，這個事件就是判斷輸入的值是否為數字。這樣我們就可以達到目的了。
三代碼實現
1 先新建一個類mytext,在這個類中要聲明一個類的對象變量，這個對象是用來響應事件的。
Public WithEvents Txtbox As MSForms.TextBox
Private Sub Txtbox_Change()
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[^0-9.]+"
If .test(Txtbox.Text) Then
Txtbox.Text = .Replace(Txtbox.Text, "")
End If
End With
End Sub
在上述代碼中Txtbox是一個類對象的變量，這個變量要相應的是Txtbox_Change事件。
2 搭建一個窗體，上面有若干個文本框。同時錄入代碼
Dim Txt() As New mytext
Private Sub CommandButton1_Click()
End
End Sub
Private Sub UserForm_Initialize()
For Each myctl In Me.Controls
If TypeName(myctl) = "TextBox" Then
m = m + 1
ReDim Preserve Txt(1 To m)
Set Txt(m).Txtbox = myctl
End If
Next
End Sub
Private Sub UserForm_Terminate()
End
End Sub
上述代碼中聲明了一個類，同時把若干個文本框借助于動態數組，放到了我們期望的類對象中。這樣在代碼運行中就可以全部響應類的事件了。
由于篇幅的關系，代碼的講解和運行在下一講。
今日內容回向：
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莫屬！
分享成果，隨喜正能量
【文本框事件限制文本框的輸入】

以上關于本文的內容，僅作參考！溫馨提示：如遇健康、疾病相關的問題，請您及時就醫或請專業人士給予相關指導!

「愛刨根生活網」www.malaban59.cn小編還為您精選了以下內容，希望對您有所幫助：

文本框事件 限制文本框的輸入

文本框事件限制文本框的輸入