机房重构时，在界面的制作上有这样一个需要改进的地方。那就是在判断窗体上所有文本框时候为空的时候,弹出提示信息的问题。先看一下原先的代码:

<pre name="code" class="vb">  Public Function IsEmptyText(ByVal objs As Form) As Boolean
        '遍历窗体中所有的控件
        For i As Integer = objs.Controls.Count - 1 To 0 Step -1
            '判断是否为文本框和组合框
            If (TypeOf objs.Controls(i) Is TextBox) Or (TypeOf objs.Controls(i) Is ComboBox) Then
                '如果文本框和组合框的文本为控件
                If objs.Controls(i).Text.Trim = "" Then
                    '弹出文本框，给用户提示
                    MsgBox（"不能为空",vbOKOnly + vbInformation,"系统提示！")
                    objs.Controls(i).Focus()
                    Return False
                    Exit For
                End If
            End If
        Next
        Return True
    End Function<span style="font-family: Arial,Helvetica,sans-serif; background-color: rgb(255,255,255);"></span>

实现效果如下:

功能是实现了,能弹出提示框,但是总觉得差强人意。大家可能注意到，弹出框中显示的是“不能为空”，那到底是哪个文本框不能为空呢？系统却没有做出明确的提示，这对于用户来说是不能接受的。界面是用户对我们系统的第一印象，如果我们做成上述的提示框，想一下用户会怎么评判这个系统。

出现上述的原因是文本框和标签是分开的，不能把标签和文本框对应起来。找到了问题的原因，那么解决起来就好办了。既然文本框和标签是分开，那让它们组合到一块儿不就OK了吗？这就涉及到今天要讲的内容—用户控件。

用户控件：

点击程序集—添加新建项—用户控件，这时在界面上会出现一个制作用户的界面，我们只需要把控件拖拽到界面中就完成我们想要的控件了。

这个控件相当于是把标签和文本框组合成了一个控件，它包含了两者的属性和方法。我们把它添加到界面中，在稍微修改一下我们的代码：

   Public Sub IsEmptyText(ByVal form As Form)
        '遍历窗体中所有的用户控件
        For Each txt As UserControl In form.Controls
            If txt.TextBox1.Text = "" Then
                MsgBox(txt.Label1.Text + "不能为空！")
            End If
        Next

    End Sub

当然了，这只是诸多实现方法的一种，还有一种方法就是设置文本框的Tag属性，在代码中获取这个属性也能达到这样的效果。对于用户控件，我觉得特别像VB中的一个控件—框架（GroupBox），作为一个容器将一些控件包含在内，唯一的区别就是用户控件可以复用。

总结：解决问题的方法有很多，每一种方法都有自己的优点和缺点，多尝试几种方法也许会有意想不到的收获。

小问题可映射出大智慧。

PS:本文只是介绍了用户控件的简单应用，关于这一方面的知识还需要我们的大量探索。