Case 0
Dim i As Long
ReDim myTb(1 To 5)
For i = 1 To 5
Set myTb(i) = New myTbClass
Set myTb(i).Tb = Me.Controls("TextBox" & CStr(i))
Next
myTb(1).ck = 1
myTb(2).ck = 2
myTb(3).ck = 3
myTb(4).ck = 2
myTb(5).ck = 1
Case 1
Dim j As Long
ReDim myTb(6 To 10)
For j = 6 To 10
Set myTb(j) = New myTbClass
Set myTb(j).Tb = Me.Controls("TextBox" & CStr(j))
Next
myTb(6).ck = 1
myTb(7).ck = 2
myTb(8).ck = 3
myTb(9).ck = 2
myTb(10).ck = 1
End Select
End Sub
module1
Sub ufshow()
UserForm1.Show vbModeless
End Sub
物件類別模組→myTbClass
Option Explicit
'類別模組myTbClass
Private WithEvents myTb As MSForms.TextBox
Private myCkType As Long
Public Property Set Tb(setTb As MSForms.TextBox)
Set myTb = setTb
End Property
Public Property Get Tb() As MSForms.TextBox
End Property
Public Property Let ck(setCk As Long)
myCkType = setCk
End Property
Public Property Get ck() As Long
End Property
Private Sub myTb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case myCkType
Case 1
'拒絕數字以外的輸入
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0: Beep
End If
Case 2
'拒絕數字,"-"以外的輸入
If (KeyAscii >= Asc("0") And _
KeyAscii <= Asc("9")) Or KeyAscii = Asc("-") Then
Else
KeyAscii = 0: Beep
End If
Case 3
'拒絕數字,"英文大寫"以外的輸入
If (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or _
(KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then
Else
KeyAscii = 0: Beep
End If
End Select
End Sub
小弟試著改至Private Sub MultiPage1_Change()
已達成運作。
但整個語法小弟至今還是霧裡看花，無法全然理解。
不知能否請版主大大稍作說明，也讓小弟能有所理解。
下列語法如下：
'類別模組myTbClass
Private WithEvents myTb As MSForms.TextBox
Private myCkType As Long
Public Property Set Tb(setTb As MSForms.TextBox)
Set myTb = setTb
End Property
Public Property Get Tb() As MSForms.TextBox
End Property
Public Property Let ck(setCk As Long)
myCkType = setCk
End Property
回復 3#dechiuan999
Property Get 陳述式, Property Let 陳述式,Property Set 陳述式 你可詳看VBA的說明
在物件類別事件一般的使用方式
1 物件類別模組中 Public WithEvents MySh As Worksheet 設為外部可讀取的物件變數
MySh 在物件類別模組中 會有物件事件可使用 如圖:
發表於 2010-10-10 08:59
| 
發表於 2010-10-10 10:47
| 
