【机房收费系统重构版】一键检查、清空控件text属性

【前言】

在米总的要求下，我们组开始了对VB版机房的升级重构，升级后功能基本不变，但是要求使用七层架构高度解耦能够灵活更换数据库，使用VB.net语言。在重构的过程中发现老版的VB机房系统中有很多的if textbox =”” then , if textbox=”” then。 我一看，这是典型的代码坏味道呀。有没有什么办法能够很轻松的把窗体中的控件遍历了呢？于是就有了这篇博客。

【正文】

【原理】

System.Windows.Forms.Control 类 代表任意控件

Typeof 函数 Typeof（textbox） 获取textbox的控件类型

编码的思路就是检测窗体中的每一个控件是否为空，或者判断控件类型执行相应操作

【代码】

检测是否所有text框不为空

<span style="font-size:24px;">Public Class CheckTXTExist
Dim ex As New Exception
Public Sub CheckTxtExist(ByVal form As Windows.Forms.Form) 'form为参数

Dim ct As Control         ' 定义ct为控件类
For Each ct In form.Controls   ' 循环窗体中的控件
If (TypeOf ct Is TextBox) Then  '如果控件为textbox
If ct.Text = "" Then        '如果该textbox.text="" 就抛出一个异常

Throw ex
Exit Sub

End If

End If
If (TypeOf ct Is ComboBox) Then ' 如果控件为combobox 且text 属性为空则抛出一个异常
If ct.Text = "" Then
Throw ex
Exit Sub
End If
End If
Next
End Sub
End Class</span>

窗体中调用：

<span style="font-size:24px;"> Dim check As New CheckTXTExist
Try<span style="white-space:pre">				    '利用异常处理程序抓捕由于控件text属性为空导致的程序异常。</span>
check.CheckTxtExist(Me)
Catch ex As Exception
MsgBox("请将信息补充完整")
Exit Sub

End Try</span>

清空窗体中所有的text

Public Class DeleteControlTXT

Public Sub DeleteControlTXT(ByVal form As Windows.Forms.Form) 'form为参数

Dim ct As Control         ' 定义ct为控件类
For Each ct In form.Controls   ' 循环窗体中的控件
If (TypeOf ct Is TextBox) Then  '如果控件为textbox 则清空text 属性
ct.Text = ""

End If

If (TypeOf ct Is ComboBox) Then ' 如果控件为combobox 则清空text属性
ct.Text = ""

End If
Next
End Sub
End Class

【总结】

不将就，你就有收获；不思考，你就会错过。聪明的你，更喜欢怎么做呢?