重複歸一，怎麼來解釋這個詞呢！在寫這篇部落格的時候，腦子中就突然蹦出了這樣的乙個詞彙。這個詞不知道字典中有沒有，但是我的理解就是將重複的事情化為一件事情來做。記得建新**去年給我驗收系統的時候，我的電腦上總是蹦出一些沒用的窗體，每次開機都要點一遍。然後**說：不要每次都做重複的事情，做了超過兩次，就要想想怎麼去解決，讓事情變得簡單。
機房收費系統也是一樣，很多東西都是重複的，每次在敲乙個窗體的時候，都會寫上一些重複的**，比如說判斷文字框是否為空，以及推出後，文字框清空這樣的問題。多寫上幾個窗體之後，我們就應該想想，每次都不要寫那麼多的東西。將他封裝起來，單獨的寫乙個方法，讓大家去呼叫它，這樣很省時間！
下邊就看一下這個**：
public function issomeemptytext(byval arraycontrol() as term) as boolean
'宣告term型別變數 termcontrol
dim termcontrol as term
'便利所有結構體陣列中所有元素，如果結構體中的空間文字為空，則找其對應字串進行相應提示
'便利結構體陣列中所有元素
for each termcontrol in arraycontrol
'判斷控制項是不是為文字框
if typeof termcontrol.controlsub is textbox then
'判斷文字框內是否為空
if termcontrol.controlsub.text.trim = "" then
messagebox.show(termcontrol.strtext & "不能為空", "", messageboxbuttons.ok, messageboxicon.exclamation)
termcontrol.controlsub.focus()
return true
exit function
end if
'判斷是不是組合框
elseif typeof termcontrol.controlsub is combobox then
'判斷是否為空
if termcontrol.controlsub.text.trim = "" then
messagebox.show(termcontrol.strtext & "不能為空", "", messageboxbuttons.ok, messageboxicon.exclamation)
termcontrol.controlsub.focus()
return true
exit function
end if
end if
next
return false
end function
在模組中寫完這段**之後，每一次在進行判斷的時候呼叫它就可以，同時還要在u層上寫：
dim arraycontrol() as term
redim preserve arraycontrol(1)
arraycontrol(0) = new term(txtusername, "使用者名稱")
arraycontrol(1) = new term(txtpassword, "密碼")
if issomeemptytext(arraycontrol) then
exit sub
end if
這樣就可以進行的簡單的判斷。在機房收費系統中，有很多這樣的封裝，比如說sqlhelp等，我們都是將重複的**進行封裝，這樣會提高我們的工作效率。
如果在一段時間我們在做不同的事情的時候，卻一直有著重複的工作在做，這時候要想辦法，將重複歸一。多動腦，減少工作量，提高效率!
判斷文字框是否為空
在窗體上往往有很多文字框需要輸入資訊，一些下拉框需要選擇，對於這些資訊的輸入，我們總是需要判斷輸入的是否為空，以前，總是乙個乙個的判斷，這樣太繁瑣，也可能會丟掉其中的乙個兩個的。現在就讓我們輕鬆解決判斷文字框是否為空吧。用來判斷文字框和下拉框是否為空 module module1 public fu...
推斷文字框是否為空
在視窗上往往有非常多文字框須要輸入資訊，一些下拉框須要選擇，對於這些資訊的輸入，我們總是須要推斷輸入的是否為空。曾經，總是乙個乙個的推斷。這樣太繁瑣。也可能會丟掉當中的乙個兩個的。如今就讓我們輕鬆解決推斷文字框是否為空吧。用來推斷文字框和下拉框是否為空 module module1 public f...
VB限制窗體內所有文字框為空
做系統的時候經常遇到限制窗體中文字框為空的情況，如果逐個判斷 寫起來會很慢，想了個比較簡單的方法，從窗體控制項的角度出發。如下 private sub cmdok click dim s as control dim frm as form for each s in frm if typeof s...