【正文】 新輸入”命令按鈕，則清空兩個(gè)文本框中的內(nèi)容，并將插入點(diǎn)置于第一個(gè)第五章 窗體和標(biāo)準(zhǔn)控件 24 文本框中；如果單擊“退出程序”命令按鈕，則結(jié)束程序的運(yùn)行。 實(shí)例 05（見(jiàn)程序 EX05）： 建立如下圖所示的窗體，要求程序能對(duì)輸入的“性別”和“郵政編碼”進(jìn)行校驗(yàn)。 ? 常用屬性： Name、 Caption、 Font、 Enabled、 Visible、 BackColor、 ForeColor、Value 等 ? 主要事件： Click 等，不支持雙擊事件 單選按鈕（ OptionButton） 單選按鈕通常以按鈕組的形式出現(xiàn)，用戶可從中選擇一個(gè)選項(xiàng)。 ? 常用屬性： Name、 Caption、 Font、 Enabled、 Visible、 BackColor、 ForeColor、List、 ListCount、 ListIndex、 Selected、 Sorted、 Text 等 ? 主要事件： Click、 DbClick 等 第五章 窗體和標(biāo)準(zhǔn)控件 26 ? 常用方法： AddItem、 RemoveItem、 Clear 等 List 屬性包含一個(gè)數(shù)組，用于訪問(wèn)列表框中的項(xiàng)目。 ListIndex 屬性只能在程序中設(shè)置或引用，表示在列表框控件中當(dāng)前所選項(xiàng)目的索引號(hào)。 Sorted 屬性指定控件中的項(xiàng)目是否自動(dòng)按字母順序排序。要求：?jiǎn)螕簟疤砑印卑粹o，可將文本框中輸入的內(nèi)容添加到下面的列表框；單擊“刪除”按鈕可刪除列表框中選定的項(xiàng)目；單擊“統(tǒng)計(jì)人數(shù)”按鈕，可將列表框中的項(xiàng)目總數(shù)輸出到右邊的文本框（該文本框不允許用戶編輯）。 滾動(dòng)條（ HScrollBar、 VScrollBar） 第五章 窗體和標(biāo)準(zhǔn)控件 28 定時(shí)器（ Timer） 定時(shí)器是應(yīng)用程序控制定時(shí)發(fā)生事件的控件。 要求：用戶可以從“姓名”列表中選擇項(xiàng)目或輸入新的姓名，對(duì)于列表中沒(méi)有的姓 名可自動(dòng)添加到列表中；“班級(jí)”及“性別”只允許選擇；單擊 OK 按鈕，即可在“選擇結(jié)果”下面的標(biāo)簽中輸出選擇結(jié)果；單擊 Delete 按鈕，可刪除“姓名”組合框中的所選項(xiàng)目；單擊 Exit 按鈕，則退出程序；設(shè)置“字體”和“字號(hào)”，其效果反映在“選擇結(jié)果”標(biāo)簽中。 InputBox 函數(shù)是 VB 中用來(lái)生成輸入對(duì)話框的函數(shù)，常用格式如下： InputBox(prompt[,title][,default][,xpos,ypos]) 通用對(duì)話框 通用對(duì)話框是一種控件，稱為 CommonDialog。 Action 屬性值及其含義如下： ? 0：不顯示對(duì)話框 第五章 窗體和標(biāo)準(zhǔn)控件 30 ? 1：顯示“打開(kāi)”對(duì)話框 ? 2：顯示“另存為”對(duì)話框 ? 3：顯示“顏色”對(duì)話框 ? 4：顯示“字體”對(duì)話框 ? 5：顯示：“打印”對(duì)話框 ? 6：顯示幫助文件 基本屬性： DialogTitle、 CanceError 等。 例： = c:\windows\*.bmp s = n = “另存為”對(duì)話框 “另存為”對(duì)話框的常用屬性與“打開(kāi)”對(duì)話框相同。 例： Private Sub Command1_Click() For I = 1 To Next I End Sub “幫助”對(duì)話框 例： Private Sub Command1_Click() = C:\Program Files\DevStudio\VB\Help\ = 9 End Sub 自定義對(duì)話框 （略） 模式對(duì)話框與非模 式對(duì)話框 自定義對(duì)話框的設(shè)計(jì) 第五章 窗體和標(biāo)準(zhǔn)控件 32 第七章 菜單、工具欄、狀態(tài)欄及多文檔界面 在 Windows 應(yīng)用程序中，一般都有菜單、工具欄和狀態(tài)欄。菜單控件只包含一個(gè) Click 事件。 注意： ? 輸入 菜單命令標(biāo)題時(shí)可用符號(hào)“ amp。要求：程序運(yùn)行初期，在窗體左邊的列表框中生成 10 個(gè)由小到大排列的 10 到 100 之間的隨機(jī)整數(shù)，相應(yīng)的動(dòng)態(tài)菜單如下圖所示；如果選擇“轉(zhuǎn)移”菜單下面的“右移”命令，則左邊列表框的 10 個(gè)數(shù)移動(dòng)到右邊的列表框中，并由大到小排列；再打開(kāi)“轉(zhuǎn)移”菜單，則只有“左移”命令可用。 基本操作步驟： ? 創(chuàng)建菜單 ? 添加 Windows Common 控件部件 ? 在窗體上添加圖像列表控件（ ImageList） ? 在窗體上添加工具欄控件，將 ToolBar 控件與 ImageList 控件相關(guān) 聯(lián)，并加入代表單個(gè)按鈕的對(duì)象 ? 為每個(gè)按鈕編寫程序 工具欄控件作用實(shí)例 2P168[例 ]設(shè)計(jì)一個(gè)窗口外觀如下圖所示的程序，在窗口下方的“請(qǐng)輸入”文本框中輸入一句名言，選擇“編輯”菜單中的“名言展示”命令，名言就被添加到窗口中間的“名言展示”文本框中。 多文檔界面（ MDI） 在 Windows 應(yīng)用程序中，通常有兩種操作界面形式：?jiǎn)挝臋n界面（ SDISingle Document Interface）和多文檔界面（ MDIMultiple Document Interface）。 ? 當(dāng)一個(gè)子窗體最小化時(shí)，它只以一個(gè)標(biāo)題欄形式顯示在父窗體內(nèi)，而不第五章 窗體和標(biāo)準(zhǔn)控件 36 是顯示在 Windows 系統(tǒng)的任務(wù)欄中。 程序見(jiàn) 20708 VB6 程序設(shè)計(jì) 37 第八章 處理鼠標(biāo)與鍵盤事件 處理鼠標(biāo)事件 鼠標(biāo)事件 檢測(cè)鼠標(biāo)按鈕 檢 測(cè) Shift、 Ctrl及 Alt鍵的狀態(tài) 使用鼠標(biāo)實(shí)現(xiàn)拖放 DragDrop和 DragOver 事件 自動(dòng)拖放和手工拖放 自定義鼠標(biāo)指針 處理鍵盤事件 應(yīng)用舉例 第五章 窗體和標(biāo)準(zhǔn)控件 38 第九章 圖形操作 VB 坐標(biāo)系統(tǒng) 系統(tǒng)坐標(biāo)系統(tǒng) 轉(zhuǎn)換坐標(biāo)系統(tǒng)的刻度 自定義坐標(biāo)系統(tǒng) 圖形的屬性 X 軸 Y 軸 原點(diǎn) (0,0) VB6 程序設(shè)計(jì) 39 線寬和線型 填充 顏色 圖形方法 Cls方法 清除運(yùn)行時(shí)窗體或圖片框產(chǎn)生的圖形或文本 ，并將畫筆置于坐標(biāo)原點(diǎn) 。 格式： [Object.]Pset [Step](x,y)[,Color] 其中， Object 指的是窗體或圖片框等對(duì)象，缺省時(shí)指當(dāng)前窗體； (x,y)用于設(shè)定畫點(diǎn)的坐標(biāo)，若前面有關(guān)鍵字 Step，則是相對(duì)于 CurrentX 和 CurrentY 屬性提供的當(dāng)前坐標(biāo)的相對(duì)值； Color 用于設(shè)定該點(diǎn)的顏色，缺省為當(dāng)前的 ForeColor屬性指定的顏色。 程序見(jiàn) 30901 Circle 方法 用來(lái)畫圓、橢圓以及圓弧。 圖片框既可用于顯示靜態(tài)圖形又可用于播放動(dòng)態(tài)圖形，而圖像框只能用于顯示靜態(tài)圖像。設(shè)計(jì)時(shí)可以通過(guò)選擇圖片文件或粘貼剪貼板上圖片方式加載圖片，運(yùn)行時(shí)可以使用 LoadPicture 函數(shù)或?qū)ο箝g圖片的相互復(fù)制方式加載圖片。利用 Shape 控件的一些屬性設(shè)置就可以繪制出多種形狀的圖形，并可確定它們的顏色、 填充樣式、邊框樣式等。 調(diào)試窗口 調(diào)試窗口是 VB 的重要調(diào)試工具，在逐條運(yùn)行語(yǔ)句時(shí)可用調(diào)試窗口監(jiān)視表達(dá)式和變量的值。 跟蹤調(diào)試 當(dāng)一個(gè)應(yīng)用程序的運(yùn)行得不到正確的結(jié)果時(shí)，首先應(yīng)估計(jì)出錯(cuò)的范圍；再設(shè)置幾個(gè)斷點(diǎn)，將問(wèn)題區(qū)域進(jìn)行隔離；然后用逐語(yǔ)句、逐過(guò)程和跳出等調(diào)試工具，跟蹤觀察每個(gè)語(yǔ)句的執(zhí)行效果。 Err 對(duì)象的屬性由錯(cuò)誤源自動(dòng)設(shè)置。 文件系統(tǒng)控件 要進(jìn)行文件的復(fù)制、移動(dòng)等操作，必然要訪問(wèn)驅(qū)動(dòng)器、文件夾。所以要在順序文件中找一個(gè)記錄，必須從頭一個(gè)一。 DriveListBox控件 ? 主要屬性： Drive ? 主要事件： Change DirListBox控件 ? 主要屬性： Path ? 主要事件： Change FileListBox控件 ? 主要屬性： Archive、 Hidden、 Normal、 ReadOnly、 System、 FileName、ListIndex、 ListCount、 List、 MultiSelect、 Path、 Selected ? 主要事件： PathChange、 Click 例： Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = End Sub Private Sub File1_Click() For i = 0 To 1 If (i) Then MsgBox (i) End If Next i End Sub VB6 程序設(shè)計(jì) 45 Private Sub Form_Load() = True = False = False = False = False End Sub FileSystem Object(FSO)對(duì)象模型 FileSystem Object(FSO)對(duì)象模型簡(jiǎn)介 FileSystem Object(FSO)對(duì)象 Drive 對(duì)象 Folder對(duì)象 File 對(duì)象 TextStream對(duì)象 文件讀寫 VB 的文件系統(tǒng) VB 根據(jù)計(jì)算機(jī)訪問(wèn)文件的方式將文件分成三類：順序文件、隨機(jī)文件和二進(jìn)制文件。 ? Err 對(duì)象的主要屬性： Number、 Description、 Source ? Err 對(duì)象的方法： Clear、 Raise 錯(cuò)誤陷阱 為了防止致命錯(cuò)誤的發(fā)生，在 VB 應(yīng)用程序中應(yīng)采用錯(cuò)誤陷阱的方法。為了防止因運(yùn)行錯(cuò)誤而使應(yīng)用程序中斷， VB 提供了對(duì)錯(cuò)誤的捕獲和處理能力，以防止致命錯(cuò)誤的發(fā)生。 斷點(diǎn) 調(diào)試 ? 設(shè)置斷點(diǎn) 通過(guò)菜單、工具欄上的工具、鼠標(biāo)或鍵盤都可設(shè)置斷點(diǎn)。 在 VB 集成開(kāi)發(fā)環(huán)境中，應(yīng)用程序有三種工作模式：設(shè)計(jì)模式、運(yùn)行模式、中斷模式。如果圖像太大，則可通過(guò)滾動(dòng)條調(diào)整位置。 功能上圖片框比圖像框強(qiáng)，但圖像框使用的系統(tǒng)資源較少并且顯示圖形的速度較快。 PaintPicture 方法 圖形控件 圖片框和圖像控件 圖片框（ PictureBox）和圖像框（ Image）控件是顯示圖形圖像的主要控件，都能用來(lái)顯示圖形。 格式： [Object.]Line[ Step][(x1,y1)][Step](x2,y2)[,Color][,B[F]] 其中， Object 指的是窗體或圖片框等對(duì)象，缺省時(shí)指當(dāng)前窗體； (x1,y1)用于表示直線或矩形的起點(diǎn)坐標(biāo)，如果省略，起點(diǎn)坐標(biāo)為當(dāng)前坐標(biāo)，若前面有關(guān)鍵字Step，則表示起點(diǎn)坐標(biāo)是相對(duì)于當(dāng)前坐標(biāo)的相對(duì)值； (x2,y2)用于表示直線或矩形第五章 窗體和標(biāo)準(zhǔn)控件 40 的終點(diǎn)坐標(biāo)，若前面有關(guān)鍵字 Step，則表示終點(diǎn)坐標(biāo)是相對(duì)于起點(diǎn)的相對(duì)值；Color 用于設(shè)定該點(diǎn)的顏色，缺省為當(dāng)前的 ForeColor 屬性指定的顏 色； B 表示利用對(duì)角坐標(biāo)畫出矩形； F 必須與參數(shù) B 同時(shí)使用，表示矩形以矩形邊框的顏色填充。 注意：在設(shè)計(jì)時(shí)窗體中用 Picture 屬性設(shè)置的 背景位圖和放置的控件，并不受此命令影響。 ? 當(dāng)前活動(dòng)子窗體的菜單將顯示在父窗體的菜單欄中，而不是顯示在子窗體中。 MDI 應(yīng)用程序中的父窗體及其所有子窗體具有以下一些性質(zhì)： ? 所有子窗體都顯示在父窗體的工作區(qū)域內(nèi)。 狀態(tài)欄控件（ StatusBar） 應(yīng)用舉例 2P177[例 ]在程序 20706 中加上狀態(tài)欄，顯示文本框 Text1 中展示的名言句數(shù)和總長(zhǎng)，以及系統(tǒng)日期和 系統(tǒng)時(shí)間。 第五章 窗體和標(biāo)準(zhǔn)控件 34 程序見(jiàn) 20703