第一篇：VB6.0程序設計教案_第25、26課時

第25、26課時

上課時間：2014年4 月 2 日 備課時間：2014年 4 月 3日

【課題】

2.12 實現(xiàn)金額大寫轉換

【教學目標】

1、了解常用的內部函數(shù)的用法

2、掌握自定義函數(shù)的方法 【德育目標】

培養(yǎng)并強化學生自主探索學習的意識，相互協(xié)作解決問題的意識，感受自己探索解決問題后所引發(fā)的愉悅心情，從而提高學習興趣?！窘虒W重點】

常用的內部用法 【教學難點】

自定義函數(shù)的方法 【教具】

多媒體、計算機 【教學過程】

一、復習

1、事件過程分為哪幾種？

2、參數(shù)傳遞的格式？

二、導入

上一章討論了Visual Basic中事件過程和通用過程，以及參數(shù)傳遞和 SUB過程的調用。本節(jié)課我們來學習常用的內部函數(shù)。

三、自主學習

1、常用的內部函數(shù)

在程序中經(jīng)常需要一些特定的運算或操作。Visual Basic把這些運算或操作進行了封裝，以函數(shù)的形式提供給用戶。合理使用這些函數(shù)，可以簡化程序的設計。這些函數(shù)主要是：數(shù)學函數(shù)、字符串函數(shù)、日期和時間函數(shù)及轉換函數(shù)。

1）數(shù)學函數(shù)：用于處理各種數(shù)學運算。2）字符串函數(shù)：Visual Basic提供了大量的字符串函數(shù)，這些函數(shù)具有強大的字符處理功能。

3）日期和時間函數(shù)：用于在程序中顯示日期和事件。

4）格式輸出函數(shù)：用于將數(shù)值、日期或字符串表達式按指定的格式輸出，語法格式如下：

FORMAT(表達式[,格式字符串])其中表達式是要格式化的數(shù)值、日期或字符串表達式。格式字符串是表示按指定的格式輸出表達式的值。格式字符串有3類：數(shù)值格式、日期格式和字符串格式。格式字符串要放在引號內。

5）數(shù)據(jù)類型轉換函數(shù)：在Visual Basic中，一些數(shù)據(jù)類型可以自動轉換，但是多數(shù)類型不能自動轉換，需要用類型轉換函數(shù)進行轉換。

2、自定義函數(shù)

在Visual Basic中，除了內部函數(shù)外，還允許用戶自定義函數(shù)，語法格式如下：

[Private︱Public][Static]Function<函數(shù)名>([參數(shù)列表])[AS 數(shù)據(jù)類型] [語句塊] [函數(shù)名=表達式] [Exit Function] [語句塊] [函數(shù)名=表達式] End Function Function過程的調用方法和內部函數(shù)的調用方法相同，語法格式如下：

函數(shù)名（[參數(shù)列表]）

在語句中可把函數(shù)名作為表達式或表達式的一部分直接使用。也可以使用調用Sub過程的語法來調用Function過程，此時將丟棄Function過程的返回值。

四、合作探究 編程設計：顧客在購買商品后，商家會開出一張發(fā)票，如果注意看一下，上面的金額有大小寫兩種，這就是人民幣金額大小寫轉換的問題。在本任務中編寫了一個金額大小寫轉換函數(shù)。

設計步驟：

1、創(chuàng)建一個標準EXE工程。

2、在屬性窗口，把窗體Form1的Caption屬性值修改為“任務12 實現(xiàn)金額大寫轉換”。

3、在窗體Form1的代碼窗口中編寫以下事件過程。Public Function n2c(n As String)As String Const num As String = “零壹貳叁肆伍陸柒捌玖” n2c = Mid(num, n + 1, 1)End Function Public Function numtochinese(number As Double)As String Const ex As String = “仟佰拾億仟佰拾萬仟佰拾元角分” Dim numstr As String, extmp As String, retstr As String Dim L As Integer, i As Integer number = number * 100 numstr = LTrim(Str(Int(number)))L = Len(numstr)extmp = right(ex, L)retstr = “" For i = 1 To L retstr = retstr + n2c(Val(Mid(numstr, i, 1)))+ Mid(extmp, i, 1)Next i numtochinese = retstr + ”整“ End Function Private Sub Form_Click()Cls Print Print Tab(6);” 人民幣金額大小寫轉換“ Print Tab(6);”============================================“ Print Tab(8);1300689067.89 Print Tab(8);numtochinese(1300689067.89)Print Tab(6);”============================================" End Sub

4、把窗體文件和工程文件分別命名保存。

5、按F5鍵運行程序。

五、課堂小結

本節(jié)課主要通過設計小程序，掌握內部函數(shù)的使用方法。

第二篇：VB6.0程序設計教案_第51、52課時

第51、52課時

上課時間：2014年 5月 21日 備課時間：2014年 5月 18日

4.5 創(chuàng)建簡單選課系統(tǒng)

【教學目標】

1、掌握列表框控件的應用；

2、掌握組合框控件的應用；

3、掌握復選框按鈕控件的應用?！窘虒W重點】

列表框控件和組合框控件的應用 【教學難點】

對Split函數(shù)的理解和應用 【教具】

多媒體、計算機 【教學過程】

一、復習

1、命令按鈕控件的常用屬性和常用事件？

二、導入

上一章討論了Visual Basic中學習了單選按鈕控件、框架控件以及復選框按鈕控件的應用。本節(jié)課我們來通過制作小程序，學習列表框控件和組合框控件的應用。

三、自主學習

1、列表框控件

列表框（ListBox）控件用于顯示項目列表，從其中可以選擇一項或多項。如果項目總數(shù)超過了可顯示的項目，就自動在列表框控件上添加滾動條。

列表框控件的常用屬性如下：

1）List：返回或設置控件的列表框部分的項目。該屬性值是一個字符串數(shù)組，數(shù)組的每個元素都是一個列表框項目，列表框控經(jīng)·件在設計時可以通過屬性窗口來設置。

2）ListCount：返回控件的列表部分項目的個數(shù)。

3）ListIndex：返回或設置控件中當前選擇項目的索引，在設計時不可用。當選定列表的第一項時，ListIndex屬性值為0，如果未選定項目，則ListIndex屬性值是1，ListCount屬性包含項目數(shù)，其值總是比最大的ListIndex值大1。

4）SelCount：返回在列表框控件中被選中項的數(shù)量。

5）Selected：返回或設置在列表框中的一個項的選擇狀態(tài)。該屬性是一個布爾值數(shù)組，其項數(shù)與List屬性相同。在設計時是不可用的。

6）Sorted：指定控件的元素是否自動按字母表順序排序。

7）Style：指定列表框的樣式。如果該屬性值為0，則呈現(xiàn)為標準列表框；如果屬性值為1，則呈現(xiàn)為復選框式列表框，每一個文本項的邊上都有一個復選框，可以選擇多項。

列表框控件的常用方法如下：

1）AddItem：用于將項目添加到列表框控件，語法格式如下： oList.AddItem item, index 其中oList表示列表框控件；參數(shù)Item為字符串表達式，用來指定添加到該列表框的項目；參數(shù)Index為整數(shù)，用來指定新項目在該列表框中的位置。對于列表框控件的首項，index為0。

如果所給出的Index值有效，則Item將防止在oList中相應的位置。如果省略index，則當Sorted屬性設置為True時，item將添加到恰當?shù)呐判蛭恢?，當Sorted屬性設置為False時，item將添加到列表框的結尾。

2）RemoveItem：從列表框控件中刪除一項，語法格式如下： oList.RemoveItem index 其中oList表示列表框控件；參數(shù)index是一個整數(shù)，表示要刪除的項在列表框中的位置。對于列表框中的首項，index為0。

2、組合框控件

組合框（ComboBox）控件將文本框控件和列表框控件的特性結合在一起，即可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項。組合框控件的常用屬性如下。

1）Style：用于設置組合框控件的樣式。如果該屬性值為0（默認值），則呈現(xiàn)為下拉式組合框，包括一個下拉式列表和一個文本框，可以從列表選擇或在文本框中輸入。如果該屬性為1，則得到一個簡單組合框，包括一個文本框和一個不能下拉的列表，可以從列表中選擇或在文本框中輸入。如果該屬性值為2，則呈現(xiàn)為下拉式列表，這種樣式僅允許從下拉式列表中選擇。

2）Text：對于Style屬性設置為0的下拉組合框或Style屬性設置為1的簡單組合框，返回或設置編輯域中的文本；對于Style屬性設置為2的下拉列表框，返回在列表框中選擇的項目，返回值總與表達式List（ListIndex）的返回值相同。

為了添加或刪除組合框控件中的項目，需要使用AddItem或RemoveItem方法。利用List、ListCount和ListIndex屬性可以實現(xiàn)對組合框中項目的訪問。也可以在設計時使用List屬性將項目添加到列表中。

3、Split函數(shù)

使用Split函數(shù)可以將一個字符串拆分為一個下標從0開始的一維數(shù)組，其中包含指定數(shù)量的子字符串。調用格式如下：

Split(Expression, Delimiter, Limit, Compare)其中參數(shù)Expression為必選項，是一個Single表達式，包含子字符串和分隔符；其他參數(shù)均為可選項。

Delimiter是用于標識子字符串的界限的任何單個字符。如果省略了Delimiter，則假定空白字符（“”）為分隔符。

Limit指定輸入字符串應拆分到的子字符串的最大數(shù)量，默認值-1，指示在Delimiter字符串的每個匹配項處都拆分輸入字符串。

Compare為一個數(shù)值，指示計算子字符串時使用的比較模式。若該參數(shù)為0，則執(zhí)行二進制比較，即區(qū)分大小寫字母；若該參數(shù)為1，則執(zhí)行文本比較，即不區(qū)分大小寫字母。

Split函數(shù)返回一個String數(shù)組。如果Expression為零長度字符串（“”），則Split返回包含零長度字符串的單個元素數(shù)組。如果Delimiter為零長度字符串，或它不在Expression中的任何位置出現(xiàn)，則Split將返回包含整個Expression字符串的單個元素數(shù)組。默認情況下，或Limit等于-1時，Split函數(shù)將在分隔符字符串的每個匹配項處拆分輸入字符串，并以數(shù)組形式返回子字符串。當Limit參數(shù)大于0時，Split函數(shù)在分隔符的第一個Limit-1匹配項處拆分此字符串，并返回帶有結果子字符串的數(shù)組。例如Split(“a:b:c”,”:”)返回的數(shù)組包含三個元素：“a”、“b”、“c”；而Split（“a:b:c”,2）返回的數(shù)組包含兩個元素：“a”和“b:c”。

當Split函數(shù)在一行中遇到連個分隔符時，或在字符串的開頭或結尾遇到分隔符時，會將它們解釋為圍繞空字符串（“”）。例如，Split（“XX”，“X”）返回的數(shù)組包含三個空字符串：一個在字符串開頭和第一個“X”之間，第二個在兩個“X”字符串之間，第三個在最后一個“X”和字符串結尾之間。

四、合作探究

編程設計：

創(chuàng)建一個簡單的選課系統(tǒng)，當從組合框中選擇不同專業(yè)時，通過列表框列出相關的課程，可以從中選擇所需的課程，并允許添加或刪除課程；當選擇了一些課程并單擊“確定”按鈕后，通過另一個窗體列出選課結果。

設計步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個EXE工程，并把窗體文件和工程文件分別命名并保存。

2、利用屬性窗口對窗體Form1的以下屬性進行設置。將其Caption屬性設置為“選課系統(tǒng)”。將其BorderStyle屬性設置為1-Fixed Dialog。

3、在窗體FORM1依次添加以下控件。

1)標簽lb1Major，將其Caption屬性設置為“專業(yè)（&M）:”

2)在工具箱中單擊ComboBox圖標，并在窗體上繪制一個組合框控件，然后將其命名為cboMajor。

3）標簽lb1Course，將其Caption屬性設置為“可選課程（&A）：” 4）在工具箱中單擊ListBox圖標，并在窗體上繪制一個列表框控件，然后將其命名為1stCouse。

5）命令按鈕cmdAdd，將其Caption屬性設置為“>”。6）命令按鈕cmdRemove，將其Caption屬性設置為“<”。7)標簽lb1SelectedCoourse，將其Caption屬性設置為“已選課程（&S）:” 8)列表框1stSelectedCourse。

9）命令按鈕cmdOK，將其Caption屬性設置為“確定”，Defaule屬性設置為“True”。

10）命令按鈕cmdCancel,將其Caption屬性設置為“取消”，Cancel屬性設置為True。

4、在窗體Form1的代碼窗口中編寫以下事件過程。

Private smajor As String, scourse1 As striing, scourse2 As String, scourse3 As String Private amajor()As String, acourse1()As String, acourse2()As String, acourse3()As String Sub listfill(ByVal oname As Control, aitem()As String)For i = 0 To UBound(aitem)oname.AddItem aitem(i)Next End Sub Private Sub cbomajor_click()lstcourse.Clear Select Case cbomajor.ListIndex Case 0 listfill lstcourse, acourse1 Case 1 listfill lstcourse, acourse2 Case 2 listfill lstcourse, acourse3 End Select End Sub Private Sub cmdadd_click()If lstcourse.ListCount > 0 And lstcourse.ListIndex <>-1 Then lstselectedcourse.AddItem lstcourse.List(lstcourse.ListIndex)lstcourse.renmoveitem lstcourse.ListIndex End If End Sub Private Sub cmdcancel_click()Unload Me End Sub Private Sub cmdok_click()Me.Hide form2.Show End Sub Private Sub cmdremove_click()If lstselectedcourse.ListCount > 0 And lstselectedcourse.ListIndex <>-1 Then lstcourse.addiem lstselectedcourse.List(lstselectedcourse.ListIndex)1 stselectedcourse.RemoveItem lstselectedcourse.ListIndex End If End Sub Private Sub Form_Load()smajor = “計算機軟件，多媒體技術應用，計算機網(wǎng)絡技術” scourse1 = “計算機操作與使用，計算機網(wǎng)絡技術與應用，基于過程的程序設計，網(wǎng)頁制作，數(shù)據(jù)庫應用開發(fā)，桌面應用程序開發(fā)，軟件開發(fā)實訓” scourse2 = “計算機操作與使用，美術設計，多媒體技術應用，計算機圖形圖像處理，二維動畫制作，三維動畫制作，音頻視頻編輯處理，平面設計，影視制作，多媒體制作” scourse3 = “計算機操作與使用，計算機組裝與維修，操作系統(tǒng)與網(wǎng)絡服務器管理，計算機網(wǎng)絡技術與應用，網(wǎng)絡布線與小型局域網(wǎng)搭建，網(wǎng)頁制作，中小型網(wǎng)站建設與管理” amajor = Split(smajor, “,”)listfill cbomajor, amajor cbomajor.Text = cbomajor.List(0)acourse1 = Split(scourse1, “,”)acourse2 = Split(scourse2, “,”)acourse3 = Split(scourse3, “,”)listfill lstcourse, acourse1 End Sub Private Sub lstcourse_dblclick()cmdadd_click End Sub Private Sub lstselectedcourse_dblclick()cmdremove_cllick End Sub

5、在當前工程中添加窗體Form2，并在該窗體上添加以下控件。1）標簽lb1Resule,將其Caption屬性清空。

2）文本框txtResult，將其MultiLine屬性設置為True，ScrollBars屬性設置為3.3）命令按鈕cmdClose，將其Caption屬性設置為“關閉”。

6、在窗體Form2的代碼窗口中編寫以下事件過程。Private Sub cmdclose_click()Unload Me End Sub Private Sub form_activate()Dim i As Integer, sresult As String lb1result = “你選擇了” & Form1.cbomajor.Text & “專業(yè)?！?& vbCrLf & “選擇了以下課程：” For i = 0 To Form1.lstselectedcourse.ListCount-1 sresult = sresult & Form1.lstselectedcourse.List(i)& vbCrLf Next txtresult.Text = sresult Unload Form1 End Sub

7、按F5運行程序。

8、從“專業(yè)”下拉列表框中選擇一個專業(yè)，此時“可選課程”列表框包含的項目將隨之發(fā)生變化。在“可選課程”列表框中單擊一門課程并單擊“>”按鈕或者雙擊要選擇的課程，可使其進入“已選課程”列表框。若要從“已選課程”類表框中移除某門課程，可在該列表框中單擊該課程并單擊“<”按鈕或者雙擊該課程。單擊“確定”按鈕，此時將顯示另一個窗體并給出選課結果。

五、課堂小結

本節(jié)課主要通過設計小程序，學習了學習列表框控件和組合框控件的應用。

第三篇：VB6.0程序設計教案_第23、24課時

第23、24課時

上課時間：2014年 3月26 日 備課時間：2014年 3月24日

【課題】

2.11 制作猜寶游戲

【教學目標】

1、了解通用過程與事件過程

2、掌握參數(shù)的傳遞機制 【德育目標】

通過制作一個簡單的游戲，提高學生對編程學習的吸引力。并引導學生正確對待游戲，學會合理安排游戲時間。【教學重點】

通用過程與事件過程 【教學難點】

參數(shù)的傳遞機制 【教具】

多媒體、計算機 【教學過程】

一、復習

1、動態(tài)數(shù)組的使用方法？

2、訪問數(shù)組的方法？

二、導入

上一章討論了Visual Basic中動態(tài)數(shù)組的使用方法。本節(jié)課我們來學習通用過程與事件過程以及參數(shù)的傳遞機制。

三、自主學習

為了簡化程序設計，通常將程序分割成較小的邏輯部件，這些部件稱為過程。在Visual Basic中，過程分為SUB過程（沒有返回值）和Function過程（具有返回值）。所有的可執(zhí)行代碼都必須屬于某個過程。Sub過程可以放在標準模塊或窗體模塊中。過程的定義是平行的，不能在過程中定義其他過程。

1、事件過程

事件過程分為窗體事件過程和控件事件過程，兩者都是用Private進行聲明。

窗體事件過程：

Private Sub Form_事件名[(參數(shù)列表)] 語句塊 End Sub 控件事件過程：

Private Sub 控件名_事件名[(參數(shù)列表)] 語句塊 End Sub 建立事件過程可以有以下3種方法。1）雙擊窗體或控件，即可打開代碼編輯器窗口，并且會出現(xiàn)該窗體或控件的默認過程代碼。

2）單擊工程資源管理器窗口的“查看代碼”按鈕，然后從“對象”列表框中選擇一個對象，從“過程”列表框中選擇一個過程。

3）自己編寫事件過程，在代碼編輯器窗口中直接編寫事件過程。

在事件過程中，過程的范圍、名稱和參數(shù)通常情況下不能修改，應使用其默認的范圍、名稱和參數(shù)。

2、通用過程

為了完成某個特定任務，通常會編寫一段相對獨立的程序。為了方便這段程序的維護和使用，這段程序一般用通用過程進行組織，語法格式如下：

[Private︱Public][Static]Sub過程名[（參數(shù)列表）] [語句塊] [Exit Sub] [語句塊] End Sub 若要建立通用過程，可打開代碼編輯器窗口，從“對象”列表框中選擇“通用”選項，然后在代碼編輯區(qū)的空白處輸入“Sub<過程名>”，按“回車”鍵后即會出現(xiàn)End Sub語句。

3、參數(shù)傳遞

聲明過程時，參數(shù)列表應遵循以下語法格式：

[Optional][ByVal︳ByRef][ParamArray]變量名[（）][As 數(shù)據(jù)類型名稱] 其中，Optional表示參數(shù)是可選的，ByVal表示該參數(shù)按值傳遞，ByRef表示該參數(shù)按地址傳遞，ParamArray表示可以提供任意數(shù)目的參數(shù)，變量名命名遵循標識符命名規(guī)則，“（）”表示變量是一個數(shù)組，As子句用來說明變量的類型。多個參數(shù)時，參數(shù)之間用逗號進行分隔。

下面分別討論參數(shù)的關鍵字的用法。

1）按值傳遞參數(shù)。按值傳遞參數(shù)時，傳遞的知識變量的副本。如果過程改變了這個值，那么變動只影響副本而不會影響變量本身。用ByVal關鍵字，就可以指定參數(shù)是按值來傳遞的。

2）按地址傳遞參數(shù)。按地址傳遞參數(shù)時，傳遞的是變量的內存地址，過程通過變量的內存地址去訪問實際變量的內容。將變量傳遞給過程時，通過過程可永遠改變變量的值。按地址傳遞參數(shù)是VB過程參數(shù)傳遞的默認方式。

3）使用可選的參數(shù)。在過程的參數(shù)列表中加入Optional關鍵字，就可以指定過程的參數(shù)是可選的。如果制定了可選參數(shù)，則參數(shù)表中此參數(shù)后面的其他參數(shù)也必須是可選的，并且要用Optional關鍵字來聲明。

VB過程的可選參數(shù)可以提供一個默認值，如果未將可選參數(shù)傳遞到函數(shù)過程，則返回一個默認值。

4）使用不定數(shù)量的參數(shù)。一般來說，過程調用中的參數(shù)個數(shù)應等于過程說明的參數(shù)個數(shù)。可用ParamArray關鍵字指明，過程將接受任意個數(shù)的參數(shù)。ParamArray只能用于參數(shù)列表中最后一個參數(shù)，并且不能與ByVal、ByRef和Optional一起使用。

4、SUB過程的調用

要執(zhí)行一個過程，就必須調用過程。在VB中，事件過程一般由操作系統(tǒng)調用，比如鼠標事件等。通用過程則由通用過程或事件過程調用，通用過程最終由事件過程調用執(zhí)行。在VB中，調用Sub過程有以下兩種方式。

1）用Call語句調用過程，語法格式如下： Call 過程名[(實際參數(shù))] 用Call語句調用一個過程時，如果過程本身沒有參數(shù)，則實際參數(shù)和括號可以省略；否則應給出相應的實際參數(shù)，并把參數(shù)放在括號中。

2）把過程名作為一個語句使用，語法格式如下： 過程名 [實際參數(shù)] 與第1種過程調用方式相比，這里省掉了關鍵字Call，實際參數(shù)也不能放在括號中

四、合作探究

編程設計：制作猜寶游戲：首先將寶放在左手，是否放到右手由隨機函數(shù)來決定，交換的過程通過兩個自定義過程完成，這兩個過程的形式相同，參數(shù)相同，只是參數(shù)的傳遞方式不同。一個是按值傳遞，一個是按地址傳遞，結果截然不同。

設計步驟：

1、創(chuàng)建一個標準EXE工程。

2、在屬性窗口，把窗體Form1的Caption屬性值修改為“任務11 制作猜寶游戲”。

3、在窗體Form1的代碼窗口中編寫以下事件過程。Sub ex1(ByVal a As String, ByVal b As String)Dim tmp As String tmp = a: a = b: b = tmp End Sub Sub ex2(ByRef a As String, ByRef b As String)Dim tmp As String tmp = a: a = b: b = tmp End Sub

Private Sub Form_Click()Dim left As String, right As String left = “有”: right = “無” Randomize(Timer)If Rnd > 0.5 Then ex1 left, right Else ex2 left, right End If Cls Print Print Tab(6);“ 猜寶游戲” Print Tab(6);“=====================================” Print Tab(12);“現(xiàn)在是：” Print Print Tab(12);“左手：”;left;“ ”;“右手：”;right Print Print Tab(12);“猜一下：下一次寶在哪個手（鼠標單擊繼續(xù)）?！?Print Tab(6);“=====================================” End Sub

4、把窗體文件和工程文件分別命名保存。

5、按F5鍵運行程序。

五、課堂小結

本節(jié)課主要通過設計小程序，了解了通用過程和事件過程的應用，正握了參數(shù)的傳遞機制。

第四篇：VB6.0程序設計教案_第31、32課時

第31、32課時

上課時間：2014年4月10日 備課時間：2014年 4月 7日

【課題】

3.2 保持窗體上的標簽文本居中

【教學目標】

1、了解窗體的ScaleHeight屬性和ScaleWidth屬性的用法

2、了解窗體的Resize事件和Unload事件的用法 【德育目標】

培養(yǎng)學生勇于探索未知世界，積極主動學習的思想，將來為祖國的科技發(fā)展做出貢獻?！窘虒W重點】

上述兩種屬性和事件的應用 【教學難點】

對事件的理解 【教具】

多媒體、計算機 【教學過程】

一、復習

1、窗體的Load事件和Click事件的格式？

二、導入

上一章討論了Visual Basic中的窗體的常用屬性以及兩個事件的用法。本節(jié)課我們來學習窗體的屬性和事件的應用。

三、自主學習

1、窗體的ScaleHeight屬性和ScaleWidth屬性

窗體的ScaleHeight屬性和ScaleWidth屬性分別用來返回窗體內部的寬度和高度。這連個屬性在設計時是不可用的，并且在運行時是只讀的。

窗體的ScaleHeight屬性和ScaleWidth屬性給出了窗體的內部尺寸，不包括邊框厚度及菜單或標題等高度。而窗體的尺寸則由Width屬性和Height屬性決定。

窗體時控件的容器，控件在窗體上的坐標是用其Top屬性和Left屬性定義的。Width屬性和Height屬性決定了控件的寬度和高度。

2、窗體的Resize和Unload事件

1）Resize：當窗體第1次顯示或窗體的外觀尺寸被改變時發(fā)生，語法格式如下：

Private Sub Form_Resize()2)Unload：當窗體從內存中卸載時發(fā)生。當船體被加載時，它的所有控件的內容均被重新初始化。當使用控件菜單中的關閉命令、關閉按鈕或Unload語句關閉該窗體時，此事件被觸發(fā)。語法格式如下：

Private Sub Form_Unload(cancel As Integer)其中參數(shù)Cancel為整數(shù)，用來確定窗體是否卸載。如果Cancel為0，則窗體被卸載。將Cancel設置為任意一個非零值可防止窗體被刪除。

通常將參數(shù)Cancel設置為任意一個非零值可防止窗體被刪除，但不能阻止其他事件，諸如從Windows環(huán)境中退出等。可以用QuryUnload事件阻止從Windows操作系統(tǒng)中退出。在窗體被卸載時，可以用Unload事件過程來確認窗體是否被卸載或用來指定想要發(fā)生的操作。

四、合作探究

編程設計：利用響應窗體Resize事件來改變標簽Label的頂點坐標和寬度的值，從而實現(xiàn)當改變窗體大小時，標簽文本始終出現(xiàn)在窗體中央。當退出程序時，通過響應窗體Unload事件，提示確認關閉程序。

設計步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個EXE工程，并把窗體文件和工程文件分別命名并保存。

2、把窗體Form1調整到所需的大小，并將其Caption屬性值設置為“保持窗體上的標簽文本居中”。

3、在工具箱單擊Label圖標，在窗體Form1上拖動鼠標以添加標簽控件Label1，然后在屬性窗口中將標簽Label1的Caption屬性值設置為“歡迎使用Visual Basic 6.0”，并設置Font屬性，把AutoSize屬性設置為True。

4、在窗體Form1的代碼窗口中編寫以下代碼。Private Sub Form_Resize()label1.Left = Int(Form1.ScaleWidth / 2)Int(label1.Height / 2)End Sub

Private Sub Form_Unload(Cancel As Integer)Dim a As Integer a = MsgBox(“是否要關閉程序？”, vbQuestion + vbYesNo, “信息提示”)If a = vbNo Then Cancel = 1 End If End Sub

5、保存所有文件。

6、按F5運行程序。

7、當改變窗體大小時，文字信息一直保持在窗口中央。關閉窗口時，彈出對話框，單擊“是”按鈕，則退出程；單擊“否”按鈕，則返回程序。

五、課堂小結

本節(jié)課主要通過設計小程序，熟悉了窗體的scaleheight屬性和scalewidth屬性，以及窗體的resize事件和unload事件。

第五篇：VB6.0程序設計教案_第41、42課時

第41、42課時

上課時間：2014年4月25日 備課時間：2014年 4月 22日

3.7 創(chuàng)建多文檔界面應用程序

【教學目標】

1、掌握創(chuàng)建MDI窗體的方法；

2、掌握創(chuàng)建快速顯示窗體的方法?！窘虒W重點】

MDI窗體和子窗體的創(chuàng)建 【教學難點】

創(chuàng)建快速顯示窗體 【教具】

多媒體、計算機 【教學過程】

一、復習

1、CommandDialog控件的常用方法和屬性？

二、導入

上一章討論了Visual Basic中CommandDialog控件的常用方法和屬性。本節(jié)課我們來學習創(chuàng)建MDI窗體和子窗體的方法。

三、自主學習

1、多文檔界面（MDI）應用程序 MDI應用程序具有以下特性。

1）所有子窗體均顯示在MDI窗體的工作空間內。像其他窗體一樣，用戶能移動子窗體和改變子窗體的大小，不過，它們被限制于這一工作空間內。

2）當最小化一個子窗體時，它的圖標將顯示在MDI窗體上而不是在任務欄中。當最小化MDI窗體時，此MDI窗體及其所有子窗體將由一個圖標來代表。當還原MDI窗體時，MDI窗體及其所有子窗體將按最小化之前的狀態(tài)顯示出來。

3）當最大化一個子窗體時，它的標題會與MDI窗體的標題組合在一起并顯示于MDI窗體的標題欄上。MDI窗體擁有一些普通窗口所沒有的屬性，包括：

1）AutoShowChildren：通過設置該屬性，子窗體可以在窗體加載時自動顯示或自動隱藏。

2）ActiveForm：該屬性表示MDI窗體中的活動子窗體。創(chuàng)建MDI應用程序的步驟如下：

1）從“工程”菜單中選擇“添加MDI窗體”命令。

2）創(chuàng)建應用程序的子窗體。要創(chuàng)建一個MDI子窗體，可先創(chuàng)建一個新窗體（或者打開一個存在的窗體），然后把它的MDIChild屬性設為True。

3）設計時使用MDI子窗體。在設計時，子窗體不限制在MDI窗體區(qū)域之內?？梢蕴砑涌丶?、設置屬性、編寫代碼及設置子窗體功能，就像在其他Vsiual Basic窗體中做的那樣。

注意：

一個應用程序只能有一個MDI窗體。如果工程已經(jīng)有了一個MDI窗體，則該“工程”菜單上的“添加MDI窗體”命令不可使用。

2、快速顯示窗體

快速顯示窗體一般作為程序的封面使用，這種窗口一般沒有命令按鈕，沒有標題欄。當出現(xiàn)快速顯示窗體時，按任意鍵或用鼠標單擊窗口，它就會被卸載并調用應用程序主窗體。

制作快速顯示窗體時，在工程中新建一個窗體，將窗體的BorderStyle屬性設置為3，ControlBox屬性設置為False，Caption屬性設置為空字符串，并在該窗體中添加一些標簽和圖片。此外，還必須通過設置工程屬性，把快速顯示窗體設置為應用程序的啟動對象。

四、合作探究

編程設計：

在本任務中創(chuàng)建一個應用程序，當啟動該應用程序時首先出現(xiàn)一個快速顯示窗體；當該窗體消失后出現(xiàn)一個多文檔界面窗體，其中包含兩個子窗體。

設計步驟：

1、在Visual Basic集成開發(fā)環(huán)境中新建一個EXE工程，并把窗體文件和工程文件分別命名并保存。

2、把窗體Form1調整到所需的大小，并將其Caption屬性值設置為“MDI子窗體之一”，MDIChild屬性值設置為True，使該窗體稱為一個MDI子窗體。

3、通過以下操作添加MDI窗體。

1）從“工程”菜單中選擇“添加MDI窗體”命令。

2）彈出“添加MDI窗體”對話框，在“新建”選項卡中選擇“MDI窗體”，單擊“打開”按鈕。

3）將新添加的MDI窗體文件命名，并保存。將該MDI窗體的Caption屬性值設置為“MDI窗體”。

4、添加另一個MDI子窗體。

5、從“工程”菜單中選擇“添加窗體”命令，彈出“添加窗體”對話框，從“新建”選項卡中選擇“展開屏幕”選項，然后單擊“打開”按鈕，新添加的窗體名稱為frmSplash，將窗體文件命名為frmSplash.frm，并保存，此窗體中包含一些控件。

6、在屬性窗口中，對窗體frmSplash上得控件進行設置。

7、設置應用程序的啟動對象。

8、打開窗體的frmSplash的代碼窗口，對已有的程序進行修改，代碼屬下： Private sub form_keypress(keyascii as integer)Unload me Mdiform1.show End sub Private sub form_load()Lblversion.caption= “版本” & app.major & “.” & app.minor & “.”& app.revision Lvlproductname.caption = app.title End sub Private sub frame1_click()Unload me Mdiform1.show End sub

8、在窗體MDIForm1的代碼窗口中編寫以下事件過程。Private sub mdiform_activate()Form1.show Form2.show End sub

9、保存所有文件。

10、按F5運行程序。

11、當出現(xiàn)快速顯示窗體時，按任意鍵或用鼠標單擊該窗口，該窗口被隱藏。出現(xiàn)一個多文檔界面窗體，氣宗包含連個子窗體。關閉MDI窗體時，子窗體隨之關閉。

五、課堂小結

本節(jié)課主要通過設計小程序，創(chuàng)建MDI窗體的方法和創(chuàng)建快速顯示窗體的方法。