【VBA】ユーザーフォームでクラスを利用したオブジェクト操作

Option Explicit

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

Option Explicit

Dim myTb() As Class1

Private Sub UserForm_Initialize()
    Dim i As Long
    ReDim myTb(1 To 5)
    For i = 1 To 5
        Set myTb(i) = New Class1
        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
End Sub

Sub show()
    UserForm1.Show
End Sub

Option Explicit

Private WithEvents myOpt As MSForms.OptionButton
Private myRtnTb As MSForms.TextBox

Public Property Set Opt(setOpt As MSForms.OptionButton)
    Set myOpt = setOpt
End Property

Public Property Get Opt() As MSForms.OptionButton
End Property

Public Property Set Tb(setTb As MSForms.TextBox)
    Set myRtnTb = setTb
End Property

Public Property Get Tb() As MSForms.TextBox
End Property

Private Sub myOpt_Click()
    myRtnTb.Value = myOpt.Name
End Sub

Option Explicit

Dim myOpt() As Class1

Private Sub UserForm_Initialize()
    Dim i As Long
    ReDim myOpt(1 To 5)
    For i = 1 To 5
        Set myOpt(i) = New Class1
        Set myOpt(i).Opt = Me.Controls("OptionButton" & CStr(i))
        Set myOpt(i).Tb = TextBox1
    Next
End Sub

Option Explicit

Private RunFlg As Boolean
Private ExitControl As String
Private EnterControl As String

Public Event MoveFocus(ExitControl As String, EnterControl As String)

Public Property Get RFlg() As Boolean
      RFlg = RunFlg
End Property

Public Property Let RFlg(myFlg As Boolean)
      RunFlg = myFlg
End Property

Public Sub Actck(myForm As MSForms.UserForm)
    ExitControl = ActCntck(myForm)
    On Error GoTo err

    Do While RunFlg
        DoEvents
        EnterControl = ActCntck(myForm)
        If EnterControl = "" Then GoTo errlabel
        If ExitControl <> EnterControl Then
            myForm.Controls(EnterControl).SetFocus
            RaiseEvent MoveFocus(ExitControl, EnterControl)
            ExitControl = EnterControl
        End If
    Loop
err:
    Exit Sub
End Sub

Private Function ActCntck(myForm As MSForms.UserForm) As String
    Dim myCnt1 As MSForms.Control
    Dim myCnt2 As MSForms.Control
    On Error Resume Next
        Set myCnt1 = myForm.ActiveControl
    On Error GoTo 0

    If myCnt1 Is Nothing Then GoTo errlabel
    Select Case TypeName(myCnt1)
        Case "MultiPage" ', "TabStrip"
            Set myCnt1 = myCnt1.SelectedItem
    End Select

    Do
      Set myCnt2 = Nothing
        On Error Resume Next
            Set myCnt2 = myCnt1.ActiveControl
        On Error GoTo 0
        If myCnt2 Is Nothing Then Exit Do
        Set myCnt1 = myCnt2
    Loop Until myCnt2 Is Nothing

    ActCntck = myCnt1.Name
    Exit Function
err:
    ActCntck = ""
    Exit Function
End Function

Option Explicit

Private WithEvents myForm As Class1

Private Sub UserForm_Initialize()
    Set myForm = New Class1
End Sub

Private Sub UserForm_Activate()
    myForm.RFlg = True
    myForm.Actck Me
End Sub

Private Sub myForm_MoveFocus(ExitControl As String, EnterControl As String)
    MsgBox ExitControl & "→" & EnterControl
End Sub

Private Sub UserForm_Deactivate()
    myForm.RFlg = False
End Sub

Private Sub UserForm_Terminate()
    myForm.RFlg = False
    Set myForm = Nothing
End Sub

 Do
      Set myCnt2 = Nothing
        On Error Resume Next
            Set myCnt2 = myCnt1.ActiveControl
        On Error GoTo 0
        If myCnt2 Is Nothing Then Exit Do
        Set myCnt1 = myCnt2
    Loop Until myCnt2 Is Nothing