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