VisualBasic程序設(shè)計(jì)第4章VB高級(jí)語(yǔ)言技巧課件

1、Visual Basic程序設(shè)計(jì)第 4 章 VB高級(jí)語(yǔ)言技巧1Visual Basic程序設(shè)計(jì)第 4 章 14.1 多功能計(jì)算器任務(wù)4.1.1 任務(wù)描述在第三章簡(jiǎn)單計(jì)算器的基礎(chǔ)，增加以下功能：1. 將計(jì)算結(jié)果轉(zhuǎn)換為十六進(jìn)制。2. 就數(shù)字鍵設(shè)置為命令按鈕組，使“0”“9”數(shù)字按鍵的Index屬性分別為0、1、2、3、4、5、6、7、8、9。3.禁止鍵盤在文本框中輸入數(shù)據(jù)。4.使計(jì)算器總是懸浮在其它窗體上。 界面如下頁(yè)所示。24.1 多功能計(jì)算器任務(wù)2334.1.2 界面設(shè)計(jì)1. 添加“十六進(jìn)制”和“數(shù)字大寫”兩個(gè)文本框，分別命名為txtHex和txtBig。2.刪除原來的“0”“9”數(shù)字按鈕控件

2、，并重新放置一個(gè)命令按鈕控件，將其Caption屬性設(shè)置為“0”。3.復(fù)制該數(shù)字命令按鈕。4.在數(shù)字區(qū)框架控件上，粘貼該數(shù)字命令按鈕，系統(tǒng)詢問是否創(chuàng)建一個(gè)控件數(shù)組，回答“是”。將它的Caption屬性改為“1”，Index屬性值設(shè)置為1。 按照上述方法粘貼數(shù)字按鈕控件“2”“9”。5、此時(shí)得到一 個(gè)按鈕控件數(shù)組“0”“9”，它們的Index書香依次為“0”“9”。6、將TxtBig的ToolTipText屬性設(shè)置為“大寫數(shù)字”。44.1.2 界面設(shè)計(jì)1. 添加“十六進(jìn)制”和“數(shù)字大寫”兩個(gè)4.1.3 代碼設(shè)計(jì)1.用API函數(shù)實(shí)現(xiàn)“總在前面”效果（1）程序代碼在代碼編輯器的“通用”部分聲明Set

3、WindowPos函數(shù)及相關(guān)常數(shù)：Private Declare Function SetWindowPos Lib user32 _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = &H2 Private Const

4、 SWP_NOSIZE = &H1然后在Form的Load事件中加入以下代碼：SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE54.1.3 代碼設(shè)計(jì)1.用API函數(shù)實(shí)現(xiàn)“總在前面”效果5（1）API函數(shù)調(diào)用的一般方法要在VB中使用API函數(shù)，首先要在工程的標(biāo)準(zhǔn)模塊（Module）或窗體的代碼的“通用”部分中聲明它，然后可以按照調(diào)用VB其它函數(shù)一樣來使用它。獲得函數(shù)聲明的一般方法：在安裝VB系統(tǒng)后，通常會(huì)在VB程序組中看到“API文本瀏覽器”的應(yīng)用程序。步驟如下： 沿開始-程序-Microsoft Visu

5、al Studio 6.0-Microfoft Viaual Stodio 6.0 Tools-API Text Wiewer找到API瀏覽器。6（1）API函數(shù)調(diào)用的一般方法要在VB中使用API函數(shù)，首先77第1步：?jiǎn)?dòng)“API文本瀏覽器”8第1步：?jiǎn)?dòng)“API文本瀏覽器”899第2步：選擇“文件-加載文本文件”菜單項(xiàng)10第2步：選擇“文件-加載文本文件”菜單項(xiàng)10加載WinAPI.txt文件。11加載WinAPI.txt文件。11第3步：選擇API類型：聲明12第3步：選擇API類型：聲明12第4步：選擇立刻用項(xiàng)SetWindowPos，將聲明范圍設(shè)置為“私有”。13第4步：選擇立刻用項(xiàng)S

6、etWindowPos，將聲明范圍設(shè)置按添加按鈕。14按添加按鈕。14第5步：就選定項(xiàng)下的VB代碼復(fù)制15第5步：就選定項(xiàng)下的VB代碼復(fù)制15第5步：將復(fù)制的VB代碼粘貼到窗體代碼編輯器中的“通用-聲明”部分。16第5步：將復(fù)制的VB代碼粘貼到窗體代碼編輯器中的“通用-聲明習(xí)題 P115 一、單項(xiàng)選擇題2. 能夠?qū)崿F(xiàn)“窗體總在最前端”界面效果的API函數(shù)是（ ）。A. SetWindowPosB. SetWindowAPIC. SetWindowShapeD. DeclareAPI答案：A17習(xí)題 P115 一、單項(xiàng)選擇題2. 能夠?qū)崿F(xiàn)“窗體總在2. 數(shù)字區(qū)命令按鈕的Click事件Privat

7、e Sub Command1_Click(Index As Integer) 使用Str函數(shù)將Index轉(zhuǎn)換為字符串，然后使用Trim函數(shù)去掉前后空格 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + Trim(Str(Index) Else txtSecond.Text = txtSecond.Text + Trim(Str(Index) End IfEnd Sub182. 數(shù)字區(qū)命令按鈕的Click事件Private Sub 3. 禁止用戶在文本框中輸入數(shù)字Private Sub txtResult_KeyDown(KeyCod

8、e As Integer, Shift As Integer) KeyCode = 0 禁止所有的鍵盤輸入（除BackSpace退格鍵外）End SubPrivate Sub txtResult_KeyPress(KeyAscii As Integer) KeyAscii = 0 禁止BackSpace退格鍵End Sub193. 禁止用戶在文本框中輸入數(shù)字Private Sub tx習(xí)題 P116 二、填空題1. 通?？蓪⑽谋究蚩丶?屬性設(shè)置為True，以禁止鍵盤輸入。答案：Locked20習(xí)題 P116 二、填空題1. 通?？蓪⑽谋究蚩丶?4. 修改“計(jì)算結(jié)果”按鈕的Click事件代碼

9、“計(jì)算結(jié)果”命令按鈕的Click事件Private Sub Command17_Click() 定義一個(gè)Double類型的變量 Dim MyResult As Double 以txtLable.Text的值為多重分支條件 Select Case txtLabel.Text Case + 當(dāng)txtLabel.Text的值為+時(shí) MyResult = Val(txtFirst.Text) + Val(txtSecond.Text) Case - 當(dāng)txtLabel.Text的值為-時(shí) MyResult = Val(txtFirst.Text) - Val(txtSecond.Text) Case

10、當(dāng)txtLabel.Text的值為時(shí) MyResult = Val(txtFirst.Text) * Val(txtSecond.Text) Case 當(dāng)txtLabel.Text的值為時(shí) MyResult = Val(txtFirst.Text) / Val(txtSecond.Text) End Select 214. 修改“計(jì)算結(jié)果”按鈕的Click事件代碼“計(jì)算結(jié)果”4. 修改“計(jì)算結(jié)果”按鈕的Click事件代碼txtResult.Text = MyResult 顯示計(jì)算結(jié)果 將計(jì)算結(jié)果轉(zhuǎn)換為十六進(jìn)制數(shù)字 txtHex.Text = Hex(MyResult) 將計(jì)算結(jié)果轉(zhuǎn)換為大寫數(shù)字

11、，（采用函數(shù)功能完成） txtBig.Text = ChangeMe(MyResult)End Sub224. 修改“計(jì)算結(jié)果”按鈕的Click事件代碼txtResu5. 編寫ChangeMe函數(shù)代碼Private Function ChangeMe(First As Double) As String 聲明變量 Dim strFirst As String Dim strBig(9) As String 聲明一個(gè)字符串?dāng)?shù)組 Dim strTemp As String Dim i, j As Integer 設(shè)置數(shù)組變量的值 strBig(0) = 零: strBig(1) = 壹: strB

12、ig(2) = 貳: _ strBig(3) = 叁: strBig(4) = 肆: strBig(5) = 伍: _ strBig(6) = 陸: strBig(7) = 柒: strBig(8) = 捌: strBig(9) = 玖235. 編寫ChangeMe函數(shù)代碼Private Funct5. 編寫ChangeMe函數(shù)代碼將Double型的參數(shù)First轉(zhuǎn)換為字符串型 strFirst = Trim(Str(First) strTemp = 開始數(shù)字轉(zhuǎn)換 For i = 1 To Len(strFirst) 取出第i位的字符數(shù)字，并將它轉(zhuǎn)換為數(shù)值型 j = Val(Mid(strFi

13、rst, i, 1) 通過數(shù)組完成大寫轉(zhuǎn)換 strTemp = strTemp + strBig(j) Next i 將轉(zhuǎn)換結(jié)果返回 ChangeMe = strTemp End Function （演示）245. 編寫ChangeMe函數(shù)代碼將Double型的參數(shù)F習(xí)題 P116 三、問答題5. 請(qǐng)簡(jiǎn)述多功能計(jì)算器與第3章計(jì)算器在功能上的區(qū)別。答：區(qū)別有以下幾點(diǎn)：1）能將計(jì)算結(jié)果轉(zhuǎn)換為十六進(jìn)制。2） 將數(shù)字鍵設(shè)置為命令按鈕組，使“0”“9”數(shù)字按鍵的Index屬性分別為0、1、2、3、4、5、6、7、8、9。用按鍵的Index來識(shí)別輸入的數(shù)字。3）禁止鍵盤在文本框中輸入數(shù)據(jù)。4）使計(jì)算器總是

14、懸浮在其它窗體上。 25習(xí)題 P116 三、問答題5. 請(qǐng)簡(jiǎn)述多功能計(jì)算器與第3章4.2 數(shù)組的使用4.2.1 數(shù)組1. 數(shù)組的概念 VB把一組具有同一名字、不同下標(biāo)的變量稱為數(shù)組，它實(shí)際上是一組具有相同類型的變量的集合。根據(jù)下標(biāo)的個(gè)數(shù)可分為一維數(shù)組、二維數(shù)組、多維數(shù)組。例如：設(shè)置數(shù)組變量的值 strBig(0) = 零: strBig(1) = 壹: strBig(2) = 貳: _ strBig(3) = 叁: strBig(4) = 肆: strBig(5) = 伍: _ strBig(6) = 陸: strBig(7) = 柒: strBig(8) = 捌: strBig(9) = 玖

15、264.2 數(shù)組的使用4.2.1 數(shù)組262. 聲明靜態(tài)數(shù)組數(shù)組分為靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組。定義靜態(tài)數(shù)組的方法與變量的聲明方法基本相同。有兩種聲明方法：（1）方法1Dim 數(shù)組名（上界） As 數(shù)據(jù)類型這種定義方法，默認(rèn)情況下數(shù)組的下界從0開始，因此數(shù)組元素的個(gè)數(shù)等于上界+1。數(shù)組的全部元素都初始化為0（數(shù)值型）或空字符串（字符串型）例如定義一維數(shù)組： Dim A（5） As Integer數(shù)組A包括6個(gè)數(shù)組元素：A（0）、A（1）、A（5）。272. 聲明靜態(tài)數(shù)組數(shù)組分為靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組。定義靜態(tài)數(shù)組的（2）方法2Dim 數(shù)組名（下界 To 上界）采用這種方法可以根據(jù)需要設(shè)置下標(biāo)的起始和結(jié)束值

16、，即上界和下界。例如 Dim A（1 To 5）As Integer該數(shù)組包括5個(gè)元素：A（1）、A（2）、A（5）。也可定義二維數(shù)組。例如： Dim A（1 To 5，1 To 5） As Integer該數(shù)組包括 A（1,1),A(1,2),、A(1,5),，A(5,1),A(5,2),，A(5,5)又如: Dim A(5,5) As Integer該數(shù)組包括36個(gè)元素:A（0,0),A(0,1),A(0,2),A(0,5),，A(5,0),A(5,1),A(5,2),，A(5,5)28（2）方法2Dim 數(shù)組名（下界 To 上界）283. 動(dòng)態(tài)數(shù)組如果事先不能確定數(shù)組元素的個(gè)數(shù),可以采用

17、動(dòng)態(tài)數(shù)組聲明技術(shù),主要方法是:（1）首先聲明一個(gè)靜態(tài)數(shù)組，只定義其數(shù)組名，不指定數(shù)組的大小。例如 Dim A As Integer（2）在程序執(zhí)行過程中，使用ReDim語(yǔ)句修改數(shù)組的大小或數(shù)組的上界，例如： ReDim A （20）As Integer ReDim A（1 To 20） As Integer293. 動(dòng)態(tài)數(shù)組如果事先不能確定數(shù)組元素的個(gè)數(shù),可以采用動(dòng)態(tài)習(xí)題 P115 一、單項(xiàng)選擇題1. Dim A（1 To 6，1 To 5）定義的數(shù)組包含的元素個(gè)數(shù)是（ ）。A. 30B. 25C. 42D. 動(dòng)態(tài)變化答案：A30習(xí)題 P115 一、單項(xiàng)選擇題1. Dim A（1 T習(xí)題 P1

18、16 二、填空題4. Dim A（1 To 6）定義的數(shù)組包含 個(gè)元素。答案：631習(xí)題 P116 二、填空題4. Dim A（1 To 習(xí)題 P116 三、問答題3. 什么是數(shù)組，如何聲明，使用數(shù)組有什么好處？答： VB把一組具有同一名字、不同下標(biāo)的變量稱為數(shù)組，它實(shí)際上是一組具有相同類型的變量的集合。 數(shù)組分為靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組。定義靜態(tài)數(shù)組的方法與變量的聲明方法基本相同。有兩種聲明方法： 方法1：Dim 數(shù)組名 （上界） As 數(shù)據(jù)類型 方法2：Dim 數(shù)組名（下界 To 上界） As 數(shù)據(jù)類型。 使用數(shù)組可以使程序代碼更清晰、簡(jiǎn)潔。，可以方便靈活地組織數(shù)據(jù)。32習(xí)題 P116 三、問答

19、題3. 什么是數(shù)組，如何聲明，4.2.2 控件數(shù)組 控件數(shù)組是一種特殊的數(shù)組，與普通數(shù)組的主要區(qū)別是，它的數(shù)據(jù)類型為控件類型。每個(gè)數(shù)組元素都是一個(gè)控件對(duì)象，這些控件對(duì)象共用一個(gè)相同的名字，即所有的元素的Name屬性值相同，各控件元素用Index屬性表示數(shù)組下標(biāo)。334.2.2 控件數(shù)組 控件數(shù)組是一種特殊的數(shù)組，與數(shù)字區(qū)命令按鈕的Click事件Private Sub Command1_Click(Index As Integer) 使用Str函數(shù)將Index轉(zhuǎn)換為字符串，然后使用Trim函數(shù)去掉前后空格 If txtLabel.Text = Then txtFirst.Text = txtFi

20、rst.Text + Trim(Str(Index) Else txtSecond.Text = txtSecond.Text + Trim(Str(Index) End IfEnd Sub 34數(shù)字區(qū)命令按鈕的Click事件Private Sub Com數(shù)字區(qū)命令按鈕的Click事件也可編寫如下：Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “0” Else txtSecond.Text

21、= txtSecond.Text + “0” End If Case 1 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “1” Else txtSecond.Text = txtSecond.Text + “1” End If35數(shù)字區(qū)命令按鈕的Click事件也可編寫如下：Private Case 9 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “9” Else txtSecond.Text = txtSecond.Text + “9” End If End S

22、electEnd Sub 利用Select或If選擇結(jié)構(gòu)，通過對(duì)Index屬性值的判斷，響應(yīng)不同按鈕元素的單擊事件。36 36習(xí)題 P116 一、單項(xiàng)選擇題3. 如果創(chuàng)建了命令按鈕數(shù)組控件 ，那么Click事件的參數(shù)是（ ）。A. IndexB. CaptionC. TagD. 沒有參數(shù)答案：A37習(xí)題 P116 一、單項(xiàng)選擇題3. 如果創(chuàng)建了命令按鈕習(xí)題 P116 二、填空題2. 在程序運(yùn)行過程中可以使用 語(yǔ)句修改數(shù)組的上下界。答案：ReDim38習(xí)題 P116 二、填空題2. 在程序運(yùn)行過程中可以使4.2.3 枚舉及自定義數(shù)據(jù)類型1. 枚舉當(dāng)一個(gè)變量只可能取幾個(gè)值時(shí)，可將其定義為枚舉型，比

23、如一個(gè)變量取17之間的整數(shù)來表示星期幾，則可以把這個(gè)變量定義為枚舉型。枚舉類型只能有一個(gè)元素。要定義枚舉型變量，須先用關(guān)鍵字Emum定義一個(gè)枚舉類型。例如： Public Enum enmDay 星期日 = 1 星期一 = 2 星期五 = 6 星期一 = 7 End Emun394.2.3 枚舉及自定義數(shù)據(jù)類型1. 枚舉394.2.3 枚舉及自定義數(shù)據(jù)類型該語(yǔ)句定義了一個(gè)名為enmDay的枚舉變量。注意emnDay本身并不是一個(gè)變量，它只是用戶自己定義的新的數(shù)據(jù)類型。一經(jīng)定義，就可以像VB提供的標(biāo)準(zhǔn)數(shù)據(jù)類型（如String、Integer）一樣使用。例如： Dim Myday As emnDa

24、y 聲明一個(gè)變量Myday，其數(shù) 據(jù)類型為enmDay Myday = 星期日 為變量賦值，即Myday = 1使用枚舉型時(shí)應(yīng)注意幾點(diǎn)：（1）枚舉類型中的元素只能表示長(zhǎng)整型常數(shù)。（2）枚舉類型應(yīng)在模塊級(jí)別中定義。（3）當(dāng)定義時(shí)沒有給枚舉成員賦值時(shí)，系統(tǒng)自動(dòng)為第一個(gè)成員賦值0，以后的成員值依次加1。404.2.3 枚舉及自定義數(shù)據(jù)類型該語(yǔ)句定義了一個(gè)名為enmD2. 自定義類型自定義類型與枚舉類型一樣，也是一種構(gòu)造型數(shù)據(jù)，稱為記錄類型。使用方法如下：（1）定義 Public Type Student 學(xué)號(hào) As String*10 姓名 As String*10 年齡 As Integer 籍貫

25、 As String End Type該語(yǔ)句定義了一個(gè)名為Student的數(shù)據(jù)類型。（2）聲明變量 Dim x As Student （3）使用 x. 學(xué)號(hào) = “2004001” x. 姓名 = “張紅”412. 自定義類型41 枚舉和自定義類型是一種有效的數(shù)據(jù)組織方式。盡管不使用它們也照樣可以開發(fā)出功能強(qiáng)大的應(yīng)用程序，但有效地應(yīng)用這兩種方式，可以使程序代碼更清晰、簡(jiǎn)潔。如果要使用這兩種方式，最好能在模塊中用Public定義，以便整個(gè)應(yīng)用程序使用。42 枚舉和自定義類型是一種有效的數(shù)據(jù)組織方4.3 過程和函數(shù)的定義和調(diào)用 VB窗體和控件的每一個(gè)事件都是一個(gè)過程，稱為事件過程，它們總是與特定的

26、控件對(duì)象相關(guān)聯(lián)，所以被認(rèn)為是私有（Private）過程。此外，VB還提供了一些內(nèi)置的由系統(tǒng)預(yù)先編好的函數(shù)，比如Trim，Str和Val函數(shù)等。 在VB中，將SubEnd Sub定義的子程序稱為Sub過程（子過程），而將FunctionEnd Fuction定義的函數(shù)稱為Function過程（函數(shù)過程）。434.3 過程和函數(shù)的定義和調(diào)用 VB窗體和控件的每4.3.1 為什么要編寫自定義過程函數(shù)過程是一種代碼分塊技術(shù)，采用這種技術(shù)將應(yīng)用程序劃分為多個(gè)程序模塊，其好處是：1.過程規(guī)模小，容易調(diào)用和維護(hù)。2.過程可以被反復(fù)調(diào)用，避免了重復(fù)編碼，加強(qiáng)了可重用性。3.過程是由處理某一特定功能的代碼組成，

27、是一個(gè)相對(duì)獨(dú)立的實(shí)體，將應(yīng)用程序劃分為這樣一個(gè)實(shí)體，會(huì)使程序結(jié)構(gòu)簡(jiǎn)潔，便于閱讀維護(hù)。444.3.1 為什么要編寫自定義過程函數(shù)過程是一種代碼分塊技術(shù)習(xí)題 P116 三、問答題1. 為什么要編寫自定義過程？因?yàn)樽缘啬且赃^程有以下好處：1.過程規(guī)模小，容易調(diào)用和維護(hù)。2.過程可以被反復(fù)調(diào)用，避免了重復(fù)編碼，加強(qiáng)了可重用性。3.過程是由處理某一特定功能的代碼組成，是一個(gè)相對(duì)獨(dú)立的實(shí)體，將應(yīng)用程序劃分為這樣一個(gè)實(shí)體，會(huì)使程序結(jié)構(gòu)簡(jiǎn)潔，便于閱讀維護(hù)。45習(xí)題 P116 三、問答題1. 為什么要編寫自定義過程4.3.2 Sub 過程1. 定義一般應(yīng)在窗體代碼編輯器的“通用”部分定義私有的Sub過程，一經(jīng)定

28、義則可以在窗體的所有地方調(diào)用它。464.3.2 Sub 過程1. 定義46如果希望定義整個(gè)應(yīng)用程序均可以使用的公有過程，則最好在標(biāo)準(zhǔn)模塊（Module）進(jìn)行。47如果希望定義整個(gè)應(yīng)用程序均可以使用的公有過程，則最好在標(biāo)準(zhǔn)模2. 調(diào)用調(diào)用過程的方法非常簡(jiǎn)單，如圖所示。482. 調(diào)用調(diào)用過程的方法非常簡(jiǎn)單，如圖所示。48習(xí)題 P116 一、單項(xiàng)選擇題4. 如果要在窗體代碼編輯器的“通用”部分定義私有Sub過程，則正確的語(yǔ)句是（ ）。A. Public SubB. Public FnctionC. Private SubD. Private Function答案：C49習(xí)題 P116 一、單項(xiàng)選擇題

29、4. 如果要在窗體代碼編4.3.3 Fucttion函數(shù) 1. 定義 Function過程以一個(gè)返回值表示執(zhí)行結(jié)果，也有公有的和私有的兩種作用范圍。例如，在窗體中定義一個(gè)返回整型數(shù)據(jù)的私有Function函數(shù)： Private Function PlusXY（x As Integer,yAs Integer)As Integer PlusXY = x+y End Function 2. 調(diào)用 Function過程的調(diào)用方法如下： Dim I As Integer I = PlusXY（1，2）504.3.3 Fucttion函數(shù) 1. 定義5 4.3.4 參數(shù)傳遞機(jī)制簡(jiǎn)介 大部分過程都含有參數(shù)

30、。將Sub過程或Function過程定義中出現(xiàn)的變量名稱為形式參數(shù)，而在調(diào)用時(shí)傳遞給Sub過程和Function過程的常量、變量或表達(dá)式稱為實(shí)際參數(shù)。將參數(shù)以變量形式傳遞的過程稱為參數(shù)傳遞。 VB中參數(shù)傳遞機(jī)制有兩種：一種是引用參數(shù)傳遞（默認(rèn)），另一種是按值傳遞參數(shù)。51 4.3.4 參數(shù)傳遞機(jī)制簡(jiǎn)介 大部分1. 引用傳遞參數(shù) 這種方式將參數(shù)變量的內(nèi)存地址傳遞給Sub或Function過程，過程通過內(nèi)存地址訪問實(shí)際參數(shù)的內(nèi)容，從而可以方便地改變實(shí)際參數(shù)的值。521. 引用傳遞參數(shù) 這種方式將參數(shù)變量的內(nèi)Private Sub Change(x As Integer,y As Integer)

31、本程序?qū)?shù)x，y的值互換 Dim t As Integer t=x x=y y=t 在窗體是輸出結(jié)果 Print “x=”;x,”y=”;yEnd SubPrivate Sub Form_Click() Dim a As Integer Dim b As Integer a=3:b=4 Change a,b Print “a=”;a,”b=”;bEnd Sub （演示）運(yùn)行結(jié)果：x=4，y=3A=4，b=3我們發(fā)現(xiàn)，調(diào)用Change過程后，實(shí)際參數(shù)a，b的值也發(fā)生了變化。這就是引用傳遞參數(shù)的執(zhí)行結(jié)果。53Private Sub Change(x As Intege2. 按值傳遞參數(shù)按值傳遞參

32、數(shù)是只把參數(shù)的數(shù)值傳遞給過程，也稱傳值方式。即傳遞給過程的只是實(shí)際參數(shù)的副本，即使過程調(diào)用時(shí)改變了形式參數(shù)的值，實(shí)際參數(shù)也不會(huì)改變。如果按值傳遞參數(shù)，需要在定義過程時(shí)在形式參數(shù)前面加是G關(guān)鍵字ByVal，例如上例中：Private Sub Change(ByVal x As Integer,ByVal y As Integer)Dim t As Integer t=x x=y y=t 在窗體是輸出結(jié)果 Print “x=”;x,”y=”;yEnd Sub運(yùn)行結(jié)果：x=4，y=3a=3，b=4542. 按值傳遞參數(shù)按值傳遞參數(shù)是只把參數(shù)的數(shù)值傳遞給過程，也4.4 鍵盤和鼠標(biāo)使用技巧 驅(qū)動(dòng)VB應(yīng)用

33、程序運(yùn)行的主要?jiǎng)恿κ鞘录憫?yīng)。在VB響應(yīng)的所有事件中，數(shù)目最多也最重要的是對(duì)鍵盤和鼠標(biāo)的響應(yīng)事件，因?yàn)殒I盤和鼠標(biāo)是用戶和應(yīng)用程序交互的主要工具。下面系統(tǒng)介紹鼠標(biāo)和鍵盤常用事件的使用技巧和原理。554.4 鍵盤和鼠標(biāo)使用技巧 驅(qū)動(dòng)VB應(yīng)用程序運(yùn)行的習(xí)題 P116 三、問答題2. 簡(jiǎn)述參數(shù)傳遞機(jī)制。答：VB中參數(shù)傳遞機(jī)制有兩種：一種是引用參數(shù)傳遞（默認(rèn)），另一種是按值傳遞參數(shù)。 引用參數(shù)傳遞是將參數(shù)變量的內(nèi)存地址傳遞給Sub或Function過程，過程通過內(nèi)存地址訪問實(shí)際參數(shù)的內(nèi)容，從而可以方便地改變實(shí)際參數(shù)的值。 按值傳遞參數(shù)是只把參數(shù)的數(shù)值傳遞給過程，也稱傳值方式。即傳遞給過程的只是實(shí)際參數(shù)的

34、副本，即使過程調(diào)用時(shí)改變了形式參數(shù)的值，實(shí)際參數(shù)也不會(huì)改變。如果按值傳遞參數(shù)，需要在定義過程時(shí)在形式參數(shù)前面加是G關(guān)鍵字ByVal。56習(xí)題 P116 三、問答題2. 簡(jiǎn)述參數(shù)傳遞機(jī)制。564.4.1 響應(yīng)鍵盤事件常用的鍵盤事件主要有KeyPress，KeyUp和KeyDown。KeyPress事件：用戶按下某ASCII字符的鍵，因此它不是對(duì)所有的鍵盤碼均響應(yīng)，比如鍵盤上的刪除鍵。KeyDown和KeyUp事件：按下或釋放鍵盤上的任意鍵時(shí)均會(huì)觸發(fā)該事件，包括Delete刪除鍵。574.4.1 響應(yīng)鍵盤事件常用的鍵盤事件主要有KeyPress 1. 焦點(diǎn)處理 窗體或控件（對(duì)象）的焦點(diǎn)是對(duì)象活動(dòng)的

35、標(biāo)志，在Windows應(yīng)用中，可以同時(shí)運(yùn)行幾個(gè)應(yīng)用程序，但只有具有焦點(diǎn)的應(yīng)用程序才有活動(dòng)標(biāo)題欄，才能接受用戶輸入。在同一窗體中，也只有具有焦點(diǎn)的的TextBox文本框才能接受鍵盤輸入?？傊挥蝎@得焦點(diǎn)的窗體或控件才能接受鍵盤事件。所以在處理鍵盤事件嵌，應(yīng)首先對(duì)焦點(diǎn)進(jìn)行處理。58 1. 焦點(diǎn)處理 窗體或控件（對(duì)象）的實(shí)現(xiàn)控件焦點(diǎn)的兩種方法（1）SetFocus方法 在程序運(yùn)行時(shí)，通過鼠標(biāo)選擇操作或控件的SetFocus方法實(shí)現(xiàn)。 VB所提供的標(biāo)準(zhǔn)控件一般都有一個(gè)SetFocus方法。通過該方法可以把焦點(diǎn)賦予指定的控件，是一種靈活的焦點(diǎn)控制方法。比如希望在程序運(yùn)行期的某個(gè)階段，使某個(gè)控件后得焦點(diǎn)被

36、激活，可使用以下代碼： 控件名.SeFocus59實(shí)現(xiàn)控件焦點(diǎn)的兩種方法（1）SetFocus方法59實(shí)現(xiàn)控件焦點(diǎn)的兩種方法（2）利用Tab控制鍵 VB所有可被設(shè)置焦點(diǎn)的控件均具有一個(gè)TabIndex屬性。默認(rèn)情況些，在窗體上創(chuàng)建的第一個(gè)控件的TabIndex的值為0，第一個(gè)控件的TabIndex的值為1，移此類推。可按預(yù)先設(shè)計(jì)好的順序，改變控件的TabIndex的值。這樣就可以在程序運(yùn)行期間，通過Tab鍵使焦點(diǎn)按TabIndex的值，從小到大在眾多控件中切換。 如果不希望使某些控件獲得焦點(diǎn)，就可以把該控件的TabStop屬性值設(shè)置為False。當(dāng)然，如果控件不可視（Visible=False

37、）或不可用（Enabled=False），也不可能獲得焦點(diǎn)了。60實(shí)現(xiàn)控件焦點(diǎn)的兩種方法（2）利用Tab控制鍵60習(xí)題 P116 二、填空題3. 如果不希望某個(gè)控件獲得焦點(diǎn)，則可以將它的 屬性設(shè)置為False。答案：TabStop61習(xí)題 P116 二、填空題3. 如果不希望某個(gè)控件獲得習(xí)題 P116 三、問答題4. 什么是焦點(diǎn)，設(shè)置控件焦點(diǎn)有哪些方法？答：窗體或控件（對(duì)象）的焦點(diǎn)是對(duì)象活動(dòng)的標(biāo)志，只有獲得焦點(diǎn)的窗體或控件才能接受鍵盤事件。設(shè)置控件焦點(diǎn)的兩種方法：SetFocus方法：控件名.SeFocus按預(yù)先設(shè)計(jì)好的順序，改變控件的TabIndex的值。62習(xí)題 P116 三、問答題4.

38、什么是焦點(diǎn)，設(shè)置控件焦點(diǎn)2. 窗體的鍵盤事件如果希望無(wú)論何時(shí)按下某個(gè)鍵，都會(huì)同時(shí)執(zhí)行同一操作，而不管此時(shí)到底哪個(gè)控件具有焦點(diǎn)的話，就可以使用窗體的鍵盤事件。具體方法是：首先將窗體的KeyPreview屬性設(shè)置為True，然后再編寫相應(yīng)的鍵盤事件處理程序。632. 窗體的鍵盤事件如果希望無(wú)論何時(shí)按下某個(gè)鍵，都會(huì)同時(shí)執(zhí)行 1. KeyDown和KeyUp事件分析 計(jì)算機(jī)鍵盤上的每一個(gè)鍵均有一個(gè)鍵碼，稱為鍵碼。KeyCode參數(shù)返回了鍵盤的鍵碼值。通過它判斷用戶按下哪個(gè)鍵。既可以用數(shù)字也可以利用VB提供的鍵碼常數(shù)進(jìn)行判斷處理，比如vbKeyF1（F1鍵）、vbKeyHome（Home鍵）、vbKey

39、A（A和a鍵）等。例如： If KeyCode = vbKeyBack Then If KeyCode = vbKeyDelete Then64 1. KeyDown和KeyUp事件分析 計(jì)（2）Shift參數(shù)通過該參數(shù)判斷用戶是否按下了Shift、Ctrl或Alt鍵。例如：If Shift = vbShiftMask ThenIf Shift = vbCtrlMask ThenIf Shift = vbAlttMask ThenIf (Shift = vbAltMask) And (Key Code= VbKeyA) Then65（2）Shift參數(shù)通過該參數(shù)判斷用戶是否按下了Shift、3

40、. KeyPress事件KeyPress事件發(fā)生于KeyDown和KeyUp之間，它只有一個(gè)KeyAscii參數(shù)，反映了用戶通過鍵盤輸入的字符的ASCII碼。當(dāng)需要處理標(biāo)準(zhǔn)ASCII字符時(shí)可使用這個(gè)事件，但要處理擴(kuò)展字符鍵、組合鍵和定位鍵時(shí)，則只能使用KeyDown和KeyUp事件。例如：Private Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)只允許輸入數(shù)字，其中用到的數(shù)字48和57分別表示字符0和9的ASCII碼 If(KeyAscii57) Then KeyAscii= 0 End IfEnd Sub 663. Key

41、Press事件KeyPress事件發(fā)生于KeyD常用鍵盤碼與ASCII碼的對(duì)應(yīng)關(guān)系按鍵鍵碼常數(shù)ASCII碼數(shù)字是否相等BackSpacevbKeyBack8是EntervbKeyReturn13是SpacevbKeySpace33是TabvbKeyTab9是EscvbKeyEscape27是AZvbKeyAvbKeyZ6590是azvbKeyAvbKeyZ97122否.vbKeyDecimal46否09vbKey0vbKey94857是DeletevbKeyDeleteF1！F16vbKeyF1 vbKeyF16鍵碼未必都有對(duì)應(yīng)的ASCII碼。A和a的ASCII碼不同，但它們?cè)阪I盤上是一個(gè)按鍵

42、，因此鍵碼是一樣的。67常用鍵盤碼與ASCII碼的對(duì)應(yīng)關(guān)系按鍵鍵碼常數(shù)ASCII碼數(shù)習(xí)題 P116 一、單項(xiàng)選擇題5. 鍵盤事件的執(zhí)行順序是（ ）。A. KeyPress，KeyDown，KeyUpB. KeyDown，KeyPress，KeyUpC. KeyUp，KeyDown，KeyPressD. KeyUp，KeyPress，KeyDown答案：B68習(xí)題 P116 一、單項(xiàng)選擇題5. 鍵盤事件的執(zhí)行順序習(xí)題 P116 四、程序設(shè)計(jì)題2. 鍵盤按鍵程序。請(qǐng)使用MsgBox過程對(duì)窗體的KeyDown和KeyPress事件編程，以顯示按下、放開一個(gè)鍵時(shí)事件的發(fā)生過程。比如，當(dāng)按下了A鍵時(shí)程序

43、界面如圖所示。69習(xí)題 P116 四、程序設(shè)計(jì)題2. 鍵盤按鍵程序。請(qǐng)使用M代碼設(shè)計(jì)：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyDown事件發(fā)生了，KeyCode的值是： _ & KeyCode & Chr(13) & _ Shift參數(shù)的值是： & Shift, 0, 鍵盤按鍵程序End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) MsgBox KeyPress事件發(fā)生了，KeyAscii的值是： _ & KeyAscii, 0,

44、 鍵盤按鍵程序End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) MsgBox KeyUp事件發(fā)生了，KeyCode的值是： _ & KeyCode & Chr(13) & _ Shift參數(shù)的值是： & Shift, 0, 鍵盤按鍵程序End Sub （演示）70代碼設(shè)計(jì)：Private Sub Text1_KeyDown4. SendKeys過程利用SendKeys可以將一個(gè)或多按鍵消息發(fā)送到湖動(dòng)窗口，就如同在鍵盤上濕潤(rùn)一樣。比如： SendKeys “Tab” SendKeys “A 10” SendK

45、eys “Enter” SendKeys “Left 3” SendKeys “F1” SendKeys “CapsLock”714. SendKeys過程利用SendKeys可以將一個(gè)或例：在所示界面中，為了加快用戶的輸入速度，希望每當(dāng)用戶按完回車鍵后，控制焦點(diǎn)自動(dòng)移到下一個(gè)，就可以在文本框控件數(shù)組中加入以下代碼：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd Sub72例：在所示界面中，為了加快用戶的輸入速度，希望每當(dāng)用戶按完回Private Sub T

46、ext2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd Sub （演示）73Private Sub Text2_KeyPress(Key習(xí)題 P116 四、程序設(shè)計(jì)題1. 焦點(diǎn)切換程序。在一窗體上創(chuàng)建一文本框控件數(shù)組，并設(shè)置好它們的TabIndex屬性，然后使用SendKeys語(yǔ)句編寫文本框事件的Key

47、Press事件。運(yùn)行時(shí)，當(dāng)按下回車鍵后，空間的焦點(diǎn)自動(dòng)切換。第一步：設(shè)計(jì)界面第二步：設(shè)計(jì)代碼74習(xí)題 P116 四、程序設(shè)計(jì)題1. 焦點(diǎn)切換程序。在一窗體Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index Case 0 If KeyAscii = 13 Then SendKeys tab End If Case 1 If KeyAscii = 13 Then SendKeys tab End If Case 2 If KeyAscii = 13 Then SendKeys tab

48、 End If Case 3 If KeyAscii = 13 Then SendKeys tab End If End SelectEnd Sub75Private Sub Text1_KeyPress(Ind4.4.2 響應(yīng)鼠標(biāo)事件1. 改變鼠標(biāo)的形狀每個(gè)窗體和控件都具有MousePointer屬性，可通過它賦予它015間的不同值改變鼠標(biāo)形狀。既可在設(shè)計(jì)階段進(jìn)行，也可以在程序代碼中改變?cè)O(shè)置。2.使用自定義鼠標(biāo)形狀如果將MousePointer屬性的值設(shè)置為99，則可以使用自定義鼠標(biāo)形狀。方法是：首先找一些光標(biāo)（*.cur)或（*.ico)文件，然后通過MouseIcon屬性完成設(shè)置。764

49、.4.2 響應(yīng)鼠標(biāo)事件1. 改變鼠標(biāo)的形狀764.4.2 響應(yīng)鼠標(biāo)事件3. MouseDown和MouseUp事件這兩個(gè)事件主要有兩個(gè)參數(shù)：（1）Button參數(shù)可用來區(qū)分當(dāng)前鼠標(biāo)的左、中、右按鍵，0表示按下左鍵，1表示按下右鍵，2表示按下中間鍵。（2）Shift參數(shù)可用來區(qū)分鼠標(biāo)與鍵盤的組合，它的值等于1，表示Shift鍵按下，2表示Ctrl 鍵，4表示Alt鍵。（3）x，y參數(shù)返回鼠標(biāo)指針當(dāng)前的位置，計(jì)量單位由窗體的ScaleMode決定。它們的值被限定在caleHeight，ScaleWidth，ScaleLeft和ScaleTop屬性所建立的坐標(biāo)系內(nèi)。774.4.2 響應(yīng)鼠標(biāo)事件3.

50、MouseDown和Mouse習(xí)題 P116 四 程序設(shè)計(jì)題4. 隨機(jī)序列排序程序。使用第三章學(xué)過的Ren函數(shù)生成10個(gè)199之間的隨機(jī)整數(shù)，并按從小到大的順序排序，最后在列標(biāo)框控件中輸出。本程序主要使用數(shù)組、自定義過程、引用傳遞參數(shù)等知識(shí)。78習(xí)題 P116 四 程序設(shè)計(jì)題4. 隨機(jī)序列排序程序。代碼設(shè)計(jì)：Private Sub MyRnd(B() As Integer) Dim i As Integer Randomize For i = 1 To 10 B(i) = Int(Rnd * 100) MsgBox “產(chǎn)生的第” & i & “個(gè)隨機(jī)數(shù)是” & _ B(i), 0, 當(dāng)前產(chǎn)生的

51、隨機(jī)數(shù) Next iEnd Sub79代碼設(shè)計(jì)：Private Sub MyRnd(B() As 代碼設(shè)計(jì)：Private Sub Command1_Click() Dim A(1 To 10) As Integer Dim i As Integer MyRnd A For i = 1 To 10 For j = i + 1 To 10 If A(i) A(j) Then t = A(i) A(i) = A(j) A(j) = t End If Next j Next i List1.Clear For i = 1 To 10 List1.AddItem A(i) Next iEnd Sub8

52、0代碼設(shè)計(jì)：Private Sub Command1_Clic實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、鍵盤錯(cuò)位程序1. 實(shí)驗(yàn)要求通過對(duì)文本框控件的鼠標(biāo)KeyPress事件的編程，使得鍵盤按鍵發(fā)生錯(cuò)位，比如電腦感按下“A”鍵時(shí)，在文本框中將顯示字母“B”，依次類推。2.實(shí)驗(yàn)步驟第1步：界面設(shè)計(jì)81實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、鍵盤錯(cuò)位程序81實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、鍵盤錯(cuò)位程序第1步：代碼設(shè)計(jì)82實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、鍵盤錯(cuò)位程序82實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用二、實(shí)用的鍵盤使用技巧1. 實(shí)驗(yàn)要求利用鍵盤的KeyPress事件進(jìn)行編程，使控件焦點(diǎn)輪流在三

53、文本框和“確定”按鈕之間轉(zhuǎn)換。83實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用二、實(shí)用的鍵盤使用技巧8實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用二、實(shí)用的鍵盤使用技巧1. 實(shí)驗(yàn)步驟第1步：進(jìn)行界面設(shè)計(jì)Text1為文本框數(shù)組，自上而下索引號(hào)(Index)依次為0，1，2。Texe1(0), Text1(1),Text1(2), Command1的TabIndex屬性依次設(shè)置為0，1，2，3。84實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用二、實(shí)用的鍵盤使用技巧T實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、實(shí)用的鍵盤使用技巧1. 實(shí)驗(yàn)步驟第1步：進(jìn)行代碼設(shè)計(jì)編寫Form_Load事件代碼Private Sub Form_Load(

54、) 當(dāng)Form啟動(dòng)時(shí)，對(duì)Text1控件數(shù)組賦初值 For i = 0 To Text1.Count - 1 Text1(i).Text = NextEnd Sub85實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用一、實(shí)用的鍵盤使用技巧8編寫Text1控件數(shù)組的KeyPress事件代碼Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) 當(dāng)鍵入戶車鍵時(shí)（ASCII碼為13），發(fā)送Tab鍵 If KeyAscii = 13 Then SendKeys tab End If 如果當(dāng)前的焦點(diǎn)是Text1(2),則只允許用戶輸入數(shù)字 If

55、 Index = 2 Then If (Chr(KeyAscii) 9) And KeyAscii 8 Then KeyAscii = 0 End If End IfEnd Sub86編寫Text1控件數(shù)組的KeyPress事件代碼86編寫Command1的Click事件代碼Private Sub Command1_Click() 顯示輸出結(jié)果，其中vbcr等效于Chr(13) Dim strSQL As String strSQL = 根據(jù)你的輸入值，拼寫SQL語(yǔ)句如下： + vbCr strSQL = strSQL + INSERT INTO 學(xué)生表(學(xué)號(hào),姓名,年齡) + vbCr st

56、rSQL = strSQL + VALUES( + Text1(0).Text + , + Text1(1).Text + , + Text1(2).Text + ) MsgBox strSQL, vbQuestion + vbOKOnly, 信息提示 使得Text1(0)重新獲得焦點(diǎn) Text1(0).SetFocusEnd Sub編寫Command2的Click事件代碼Private Sub Command2_Click() EndEnd Sub87編寫Command1的Click事件代碼87實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用1. 實(shí)驗(yàn)要求利用鼠標(biāo)的MouseMove事件進(jìn)

57、行編程，使Label1控件的Caption”歡迎進(jìn)入Visual Basic世界“跟隨鼠標(biāo)移動(dòng)，同時(shí)字體的顏色頁(yè)也會(huì)不斷變化。88實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用88實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用2. 實(shí)驗(yàn)步驟第1步：界面設(shè)計(jì)89實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用89實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用2. 實(shí)驗(yàn)步驟第2步：代碼設(shè)計(jì)Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 隨機(jī)改變Label1空間的前景色 Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 根據(jù)鼠標(biāo)當(dāng)前的X，Y坐標(biāo)設(shè)置Label1控件的Top和Left屬性 Label1.Top = Y Label1.Left = XEnd Sub90實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用三、鼠標(biāo)事件應(yīng)用90實(shí)驗(yàn)4 鼠標(biāo)、鍵盤、API函數(shù)調(diào)用四、窗體窗體總在最前面實(shí)驗(yàn)1. 實(shí)驗(yàn)要求本實(shí)驗(yàn)程序由兩個(gè)窗體組成。Form1窗體為普通窗