「VB.NET」テキストボックスに必須入力チェックを行う

2021年10月19日

書式
テキストボックス名.Text.Length > 0

使用例

'ボタン「cmdAdd」をクリック
Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
    Dim chkRet As Boolean
    'CheckInputメソッドを呼び出す テキストボックスの名前:txtUser
    chkRet = CheckInput(Me.txtUser, "ユーザー名")
End Sub

'CheckInputメソッドの定義
Public Function CheckInput(ByVal objCtrl As Control, ByRef strName As String) As Boolean
    'テキストボックスの文字の長さの判定
    If objCtrl.Text.Length > 0 Then
        Return True
    End If
    Dim strMsg As String
    strMsg = strName + "は省略できません"

    'メッセージボックスの表示
    MessageBox.Show(strMsg, "タイトル", MessageBoxButtons.OK)

    'テキストボックスのフォーカス
    objCtrl.Focus()
End Function

 

VB.net

Posted by arkgame