主题：控件输入

代码

Dim kjmc() As String '控件名称
Dim kjmcjh As String
kjmcjh = "textbox1,textbox2|textbox3" '控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer = 0 To kjmc.Length - 1
    Dim cct() As String = kjmc(i).Split("|")
    If cct.Length > 1 Then
        Dim flag As String = ""
        For j As Integer = cct.Length - 1 To 0 Step -1
            flag = cct(j)
            If e.Form.Controls(flag).Text <> Nothing Then
                flag = ""
                Exit For
            End If
        Next
        If flag > "" Then
            MessageBox.Show("请输入:【" & flag & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        End If
    Else
        If e.Form.Controls(kjmc(i)).text = "" Then
            MessageBox.Show("请输入:【" & kjmc(i) & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
            e.Form.Controls(kjmc(i)).Select()
            Return
        End If
    End If
Next