「VB.NET」コンボボックスで項目選択の必須チェックを行う

2014年4月2日2021年10月22日

説明
ボタン(button)名:cmdAdd
コンボボックス(ComboBox)名:cmbSel
形式
If コンボボックス名.Text.Length > 0 Then
処理コード
End If

使用例

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
    Dim chkRet As Boolean
    'CheckInputメソッドを呼び出す 
    chkRet = MustInput(Me.cmbSel, "項目")
End Sub
Public Function MustInput(ByVal objCtrl As Control, ByRef strName As String) As Boolean
    If objCtrl.Text.Length > 0 Then
        Return True
    End If
    strName = strName + "を選択してください"
    MessageBox.Show(strName, "チェック結果", MessageBoxButtons.OK)
    objCtrl.Focus()
End Function

結果
コンボボックス項目を選択しない、ボタンを押下すると、「項目を選択してください」というメッセージボックスが表示されます。