用VB編寫一個簡單的電話號碼查找程序

南京電視臺 張陽

---- 本人供職于南京電視臺播控中心。在日常播出過程中有時會遇到一些突發事件，需要及時向有關部門和有關領導請示，常為找不到電話號碼而著急。為此，本人用Visual Basic編寫了一個簡單的應用程序，運行該程序即可方便、快捷地查找到相關的電話號碼。

---- 首先將該程序的運行界面介紹給讀者(圖略)。

---- 運行該程序時首先出現圖一所示的界面。如果要查找有關單位的電話號碼，我們只需在有關單位右邊的組合框的向下箭頭上用鼠標點一下，這時出現圖二。用鼠標拖動滾動條找到相關單位的名稱再點一下，這時出現圖三?？?！我們需要的電話號碼這么簡單就找到了！如果我們要查找有關領導的電話號碼操作步驟同上，這時屏幕上還會顯示其相應的尋呼及手機號碼。

---- 下面向讀者簡單介紹一下該程序的Visual Basic代碼。我們首先進行界面的設計。這一步工作主要是為了給讀者一個良好的視覺效果，一個友好的程序運行界面，使讀者操作起來感到方便、快捷。我們只要將窗體及各控作的相關屬性做相應的調整就可以了。

---- 接下來編寫程序代碼。為簡單起見，我們只介紹查找有關單位的程序代碼，查找人名的程序代碼類推。該程序運行時首先將有關單位的名稱加載至內存，VB代碼如下：

Private Sub Form_Load()
……….
………
………
Combo2.AddItem “省廳事業處”
Combo2.AddItem “省傳輸發射總臺發射部”
………
………
………
End Sub

---- 然后我們要確定該程序的邏輯關系。很簡單，如果單位名稱是省廳事業處，那么電話號碼是4452013；如果單位名稱是省傳輸發射總臺發射部，那么電話號碼是3716125……。VB代碼如下：
Private Sub combo2_Click()
If …… Then
………
………
………
ElseIf Combo2.Text = ”省廳事業處” Then
Text1.Text = “4452013”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
ElseIf Combo2.Text = ”省傳輸發射總臺發射部” Then
Text1.Text = “3716125”
Text2.Text = “”
Text3.Text = “”
Combo1.Text = “”
………
………
………
End If
End Sub

---- 注意:我們只有用鼠標點(Click)組合框上的某一單位名稱時才會觸發該段程序,因此該段程序是該組合框的Click事件代碼。
---- 至此用Visual Basic編程工作已大體完成。我們只要再將其編譯成可執行的應用程序（EXE文件）并將其拖至WINDOWS95桌面上即可。開機后在桌面上雙擊該程序圖標即可運行該程序。

---- 大功告成！你看，用Visual Basic編程就是這么的簡單！Visual Basic作為一種面向對象的可視化編環境與以往面向過程的編程環境有很大的不同。首先，它是一個事件驅動程序。簡單地說，鼠標點到那里，程序就觸發到那里，或者說每發生一個事件就可能有一段相應的程序代碼被執行，而以往的編程環境程序則是一行一行地被執行；其次，我們必須確立起面向對象的編程概念，對窗體及各控件的相關屬性及相關事件有充分的了解。再也不能象以前那樣一到編程就抱起一本厚厚的語法命令手冊逐條查詢了，其實有些工作連一行程序代碼都不需要編寫。比如我們想把窗體向左邊移一點，只要在窗體的屬性窗口中將LEFT屬性的數值改小一點就可以了。應該說Visual Basic作為一種全新的可視化編程環境極大地減輕了編程人員的工作量，而且語法簡潔、明了，非常容易掌握。用Visual Basic編程是什么樣的概念呢？打個比方，如果我們要建一座大樓，微軟公司已經為我們準備好了各種各樣的建筑裝飾材料，如果我們對我們想用的建筑裝飾材料的性能有充分的了解，短時間內一座美觀、實用、內部裝修豪華的大樓就能拔地而起！

---- 其實，讓我們仔細想一想。以前有多少日常工作我們是用筆+尺+計算器+紙來完成的呢？應該說編程的素材是取之不盡的，我們為什么不能試著用一下Visual Basic來解決這些問題呢？

原文轉自：http://www.anti-gravitydesign.com