在視窗上往往有非常多文字框須要輸入資訊,一些下拉框須要選擇,對於這些資訊的輸入,我們總是須要推斷輸入的是否為空。曾經,總是乙個乙個的推斷。這樣太繁瑣。也可能會丟掉當中的乙個兩個的。
如今就讓我們輕鬆解決推斷文字框是否為空吧。
''' ''' 用來推斷文字框和下拉框是否為空
'''
'''
module module1
public function issomeemptytext(byval arraycontrol() as control) as boolean
dim control as new control
for each control in arraycontrol '遍歷陣列中的全部元素
if typeof control is textbox then '推斷控制項是不是文字框
if control.text.trim = "" then '推斷文字框內容是不是為空
control.focus()
return true
exit function
end if
elseif typeof control is combobox then '推斷控制項是不是組合框
if control.text.trim = "" then
return false
exit function
end if
end if
next
return false
end function
end module
呼叫函式:
dim arraycontrol() as control
redim preserve arraycontrol(5)
arraycontrol(0) = txthourrate
arraycontrol(1) = txthourtmprate
arraycontrol(2) = txtleasttime
arraycontrol(3) = txtleastm
arraycontrol(4) = txtincreasetime
arraycontrol(5) = txtpreparetime
if issomeemptytext(arraycontrol) then
exit sub
end if
注意:當中的 tag 屬性往往忘記賦值。通常賦值為文字框前面的label.text
判斷文字框是否為空
在窗體上往往有很多文字框需要輸入資訊,一些下拉框需要選擇,對於這些資訊的輸入,我們總是需要判斷輸入的是否為空,以前,總是乙個乙個的判斷,這樣太繁瑣,也可能會丟掉其中的乙個兩個的。現在就讓我們輕鬆解決判斷文字框是否為空吧。用來判斷文字框和下拉框是否為空 module module1 public fu...
封裝重複工作 判斷文字框是否為空
重複歸一,怎麼來解釋這個詞呢!在寫這篇部落格的時候,腦子中就突然蹦出了這樣的乙個詞彙。這個詞不知道字典中有沒有,但是我的理解就是將重複的事情化為一件事情來做。記得建新 去年給我驗收系統的時候,我的電腦上總是蹦出一些沒用的窗體,每次開機都要點一遍。然後 說 不要每次都做重複的事情,做了超過兩次,就要想...
推斷文字框 組合框為空(房重建知識彙總)
重建房收益,反覆用於推斷文字框 無論是組合框為空。並清除文字框 組合框。為了這個目的,一系列的抽象方法。我開始寫的比較亂,昨天再次處理,家交流學習。上圖是組合查詢的介面,由於上篇講到了視窗繼承。所以有益選擇組合查詢的父視窗,以此為基礎。談一下如何推斷文字框 組合框是否為空,如何清空文字框 組合框,同...