-1

フォームに5つのマスクされたテキストボックスがあります。日付形式の2つのマスクされたテキストボックス、2つはお金、1つは電話番号。これらのボックスが空かどうかをチェックするために、以下のコードを使用しています。

    Dim mtxt As Control
    Dim flagmtxt As Boolean
    flagmtxt = False
    For Each mtxt In EMPGBDATA.Controls
        If TypeOf mtxt Is MaskedTextBox Then
            If mtxt.Text = "" Then
                mtxt.BackColor = Color.Red
                flagmtxt = True
            End If
        End If
    Next

    If flagmtxt Then
        MessageBox.Show("Give Compleate Data!", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End If

給与形式のマスクされたテキストボックスのチェックを避けたい。チャンスはありますか？

4

1 に答える 1

0 
flagmtxt = False
    For Each mtxt In EMPGBDATA.Controls
        If TypeOf mtxt Is MaskedTextBox Then
            If mtxt.Text = "" And mtxt.Name <> "MTXTPFESI" Then
                flagmtxt = True
            Else
                flagmtxt = False
            End If
        End If
    Next
于 2013-01-11T12:44:14.797 に答える