「VB.NET」テキストボックスに必須入力チェックを行う
書式
テキストボックス名.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