VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2007/01/05(Fri) 01:54
投稿者花ちゃん
Eメール
URL
タイトルRe^5: エラーが発見されたテキストボックスへのフォーカスの移動

下記のような感じにフラグを設定してできませんか?

Private ErrNo1TextBox As TextBox
--------------------------------------
    If chk_flg = False Then
        ChkTextBox = False
        MsgBox "入力できない文字が存在します。再入力して下さい。"
    ErrNo1TextBox.SetFocus
        Exit Function
    End If
End Function

Private Function ChkKinsokuChr(ByVal MyTextBox As TextBox) As Boolean
    Dim I    As Integer

    ChkKinsokuChr = True

    チェック処理
    背景色の変更処理

    If ErrNo1TextBox Is Nothing And ChkKinsokuChr = False Then
      Set ErrNo1TextBox = MyTextBox
    End If

    etc
End Function


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -