【正文】 高效 ? 語(yǔ)言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護(hù)的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開(kāi)發(fā)工具?。? 主要的控件及其基本屬性，事件簡(jiǎn)介 ? 命令按鈕類的控件： 1) Caption 屬性：用來(lái)顯示在控件上的標(biāo)題。 因?yàn)楸救四芰τ邢?，加上時(shí)間緊迫，所以設(shè)計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。 它已經(jīng)深入到 日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 1． 2 系統(tǒng)簡(jiǎn)介 本系統(tǒng)主要方便人們查詢自己的公交車路線 ,方便人們乘坐公交 . 本系統(tǒng)主要由以下幾大功能組成 : 一 . 按車次查詢模塊 二 . 按起終點(diǎn)站查詢 三 . 查找經(jīng)過(guò)站點(diǎn)最小的路線 1. 開(kāi)發(fā)軟件介紹 Visual Basic Micrsoft 公司出品的開(kāi)發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開(kāi)發(fā)語(yǔ)言，它具有易用，通用和開(kāi)發(fā)效率高的特點(diǎn)。 6) Default 屬性 :決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時(shí)是否為可見(jiàn) . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時(shí) ,此屬性值為該控件在數(shù)組的下標(biāo)值 . 12) DownPicture 屬性：設(shè)置 /返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。 （ 2） 事件處理過(guò)程 命令按鈕 GotFoucs 事件處理過(guò)程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當(dāng)一個(gè)對(duì)象失去焦點(diǎn)時(shí)發(fā)生 4） KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生 5） KeyUp 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。 ? 文本框類的控件： 1) Text 屬性：通過(guò)像 text 屬性賦值的方法來(lái)改變?cè)搶傩缘闹怠? 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬性：設(shè)置對(duì)象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對(duì)象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回 /設(shè)定一個(gè)特定的數(shù)據(jù)成員 15) DataSource 屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源 16) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示 17) DragMode 模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式 18) Enabled 屬性：設(shè)置 /返回運(yùn)行時(shí) TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返回字體屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬 性：設(shè)置 /返回?cái)?shù)值用來(lái)確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設(shè)置 /返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào) 24) Left 屬性：設(shè)置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設(shè)置 /返回 TextBox 中文本是否可編輯 26) LinkItem 屬性：設(shè)置 /返回 DDE 與另一個(gè)應(yīng)用程序會(huì)話時(shí)，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設(shè)置 /返回一個(gè)值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設(shè)置 /返回自定義鼠標(biāo)的圖標(biāo) 29) Top 屬性：設(shè)置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲(chǔ) 過(guò)程所需的附加數(shù)據(jù) ? 文本框類的事件： 1） Change 事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生 2） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生 3） DblClick 事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生 4） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生 5） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生 6） GotFocus 事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生 7） LinkClose 事件：當(dāng)一個(gè) DDE 對(duì)話結(jié)束時(shí)發(fā)生 8） LinkError 事件：當(dāng)一個(gè) DDE 對(duì)話框過(guò)程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生 9） KeyDown 事件： 當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生 10） Validate 事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的 Causes Validation 屬性值設(shè)置為 True ? 單選按鈕類的控件： 1) Caption 屬性：顯示在控件上的文本 ,是單選按鈕的標(biāo)題。 9) Container 屬性：設(shè)置 /返回 Form 上的控件屬性。 17) FontItalic 屬性：設(shè)置 /返回字體斜體樣式。 2） DbClick 事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。 10） MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。 ? 復(fù)選按鈕類的控件的基本事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 2) Max 和 min 屬性：對(duì) value 值的最大 ,最小進(jìn)行限制。注意：請(qǐng)將庫(kù)文件存入程序所在目錄。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù) ；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。用戶沒(méi)有選擇了更新數(shù)據(jù)庫(kù) Dim strbs As String Dim intnb As Integer If Mid(, Len() 1, 1) \ Then Open + \ For Input As 1 Else Open + For Input As 1 End If Input 1, strbs intnb = CInt(Val(strbs)) For k = 0 To intnb 1 Input 1, strbs strbs Next Close 1 End If End Sub Public Sub showtitle(numt As Integer) 39。第三次遞歸的時(shí)候，退出 a = MsgBox(沒(méi)有直達(dá)的車次 !您是否需要轉(zhuǎn)車 ?, vbInformation + vbOKCancel, 詢問(wèn) ) If a = vbOK Then = True = True MSF1(0).Visible = False End If Exit Sub End If showtitle (numb) Dim j As Integer Dim i As Integer Dim m As Integer Dim k As Integer Dim ball As Boolean Dim mrc As Set mrc = New Set mrc = With MSF1(numb) .Rows = 2 .Row = 1 Do While Not ball = False For m = 1 To NC If Text2(m).Text = Trim(s) Then ball = True Exit For End If Next If ball = True Then For k = m To NC If Text2(k).Text = Trim(e) Then Exit For End If Next End If If ball = True And k NC + 1 Then .Rows = .Rows + 1 For i = 1 To If (i 1) Null Then .TextMatrix(.Row, i 1) = (i 1) End If Next i .Row = .Row + 1 End If Loop End With If numb = 0 Then MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False Else If numb = 2 Then MSF1(0).Visible = False MSF1(1).Visible = True MSF1(2).Visible = True End If End If If MSF1(0).Row = 1 And numb = 0 Then Call showSEdata(e, s, numb) End If If MSF1(1).Row = 1 And numb = 1 Then Call showSEdata(e, s, numb) End If If MSF1(2).Row = 1 And numb = 2 Then Call showSEdata(e, s, numb) End If Set mrc = Nothing End Sub Private Sub Cbe_Change() bcbm = False = = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False = False End Sub Private Sub Cbe_DropDown() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub Cbm_DropDown() 39。 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For s = 0 To intpart 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(1).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(1).Refresh intmin = 9999 For k = 0 To MSF1(2).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(2).TextMatrix(k, t) = Then Exit For End If MSF1(0).TextMatrix(k + MSF1(1).Rows, t) = MSF1(2).T