SSTabでTabが変わった際にTab内のコントロールにValidateを起こさせるには？ (ID:113383)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いつも参考にしてるなら同じような処理は過去にも出てきたと思うけど
…前の書き込みだけで分からなかったです？
まぁ…社交辞令か(＾＾；)
これではどうです？
[VB6.0]
Option Explicit

Private mEventMusiFlag As Boolean

Private Sub SSTab1_Click(PreviousTab As Integer)
    Dim ThisSetting As String
    If mEventMusiFlag Then Exit Sub
   
    With Me.SSTab1
        Select Case PreviousTab
            Case 0
                MsgBox "0→" & .Tab
                If Not (ErrCheck(Me.Text1)) Then
                    mEventMusiFlag = True
                    .Tab = PreviousTab
                    mEventMusiFlag = False
                End If
            Case 1
                MsgBox "1→" & .Tab
                If Not (ErrCheck(Me.Text2)) Then
                    mEventMusiFlag = True
                    .Tab = PreviousTab
                    mEventMusiFlag = False
                End If
        End Select
    End With
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
    Call ErrCheck(Me.Text1)
End Sub

Private Sub Text2_Validate(Cancel As Boolean)
    Call ErrCheck(Me.Text2)
End Sub

Private Function ErrCheck(ByVal TextBoxX As TextBox) As Boolean
    
    With TextBoxX
        MsgBox "エラーチェック : " & .Text
    End With
    
    If False Then
        ErrCheck = True
    Else
        ErrCheck = False
    End If
    
End Function

←解決時は質問者本人がここをチェックしてください。

戻る