在窗口上往往有非常多文本框須要輸入信息，一些下拉框須要選擇，對于這些信息的輸入，我們總是須要推斷輸入的是否為空。曾經(jīng)，總是一個(gè)一個(gè)的推斷。這樣太繁瑣。也可能會丟掉當(dāng)中的一個(gè)兩個(gè)的。

如今就讓我們輕松解決推斷文本框是否為空吧。

<span style="font-size:18px;">''' <summary> ''' 用來推斷文本框和下拉框是否為空 ''' </summary> ''' <remarks></remarks> Module Module1Public Function IsSomeEmptyText(ByVal arrayControl() As Control) As BooleanDim control As New ControlFor Each control In arrayControl '遍歷數(shù)組中的全部元素If TypeOf control Is TextBox Then '推斷控件是不是文本框If control.Text.Trim = "" Then '推斷文本框內(nèi)容是不是為空MsgBox(control.Tag.ToString + "不能為空", vbOKOnly, "溫馨提示")control.Focus()Return TrueExit FunctionEnd IfElseIf TypeOf control Is ComboBox Then '推斷控件是不是組合框If control.Text.Trim = "" ThenMsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")Return FalseExit FunctionEnd IfEnd IfNextReturn FalseEnd Function End Module </span>

調(diào)用函數(shù)：

<span style="font-size:18px;">Dim arrayControl() As ControlReDim Preserve arrayControl(5)arrayControl(0) = txtHourRatearrayControl(1) = txtHourTmpRatearrayControl(2) = txtLeastTimearrayControl(3) = txtLeastMarrayControl(4) = txtIncreaseTimearrayControl(5) = txtPrepareTimeIf IsSomeEmptyText(arrayControl) ThenExit SubEnd If</span>
注意：<span style="font-size:18px;"> MsgBox(control.Tag.ToString + "不能為空", vbOKOnly, "溫馨提示")</span> 當(dāng)中的 Tag 屬性往往忘記賦值。通常賦值為文本框前面的label.text

《新程序員》：云原生和全面數(shù)字化實(shí)踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀

總結(jié)

以上是生活随笔為你收集整理的推断文本框是否为空的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。