vb.net & 文本框为空提示，一键清空文本框所有内容

已经第二次机房收费系统重构了，一遍当然得有一遍的效果，正如对于文本框为空的提示方法，回顾第一遍机房，那些傻里傻气的If语句让自己对代码的亲和度大打折扣啊！那么到底有什么办法解决那些重复性的判断呢？这时候我们就要提到所谓的Model窗体了。在Model窗体中，建立一个封装数组，当窗体中需要判断大量文本框为空的时候，只需简单的调用即可。

新建一个Model类，来存放公共需要的部分。

1、定义一个结构体Term，且用结构体封装一个数组

[vb] view plain copy print ?

1. Public Structure Term   '定义结构体term 
2.        Dim controlSub As Control 
3.        Dim strText As String 
4.        Sub New(ByVal controlSub As Control, ByVal strText As String)  '初始化对象 
5.            With Me 
6.                .controlSub = controlSub 
7.                .strText = strText 
8.            End With 
9.        End Sub 

 Public Structure Term   '定义结构体term
        Dim controlSub As Control
        Dim strText As String
        Sub New(ByVal controlSub As Control, ByVal strText As String)  '初始化对象
            With Me
                .controlSub = controlSub
                .strText = strText
            End With
        End Sub

2、用结构体定义一个Term类型数组

[vb] view plain copy print ?