第一篇：VB6.0程序設(shè)計(jì)教案_第35、36課時(shí)[模版]

第35、36課時(shí)

上課時(shí)間：2014年4月17日 備課時(shí)間：2014年 4月 14日

【課題】

3.4 制作簡(jiǎn)單繪圖程序

【教學(xué)目標(biāo)】

1、熟悉窗體的MouseDown事件、MouseUp事件和MouseMove事件的使用方法；

2、掌握窗體的LINE方法的應(yīng)用 【教學(xué)重點(diǎn)】

MouseDown事件、MouseUp事件和MouseMove事件的使用方法 【教學(xué)難點(diǎn)】

窗體的LINE方法的應(yīng)用 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過(guò)程】

一、復(fù)習(xí)

1、窗體的Keydown、Keyup和Keypress事件的用法？

二、導(dǎo)入

上一章討論了Visual Basic中窗體的Keydown、Keyup和Keypress事件的用法。本節(jié)課我們來(lái)學(xué)習(xí)窗體的MouseDown事件、MouseUp事件和MouseMove事件的使用方法。

三、自主學(xué)習(xí)

1.窗體的MouseDown、MouseUp和MouseMove 事件

窗體的MouseDown 事件和 MouseUp 事件是當(dāng)按下(MouseDown)或者釋放（MouseUp）鼠標(biāo)按鈕時(shí)發(fā)生的事件。語(yǔ)法格式如下：

Private sub from_MouseDown(button as Integher , shift as integer , x as Single, y as single)Private sub from_mouseup(button as integer , shift as integer , x as single, Y as single)MouseMove 事件是當(dāng)鼠標(biāo)指針在屏幕上移動(dòng)時(shí)發(fā)生的事件。當(dāng)鼠標(biāo)指針處在窗體和控件的邊框內(nèi)時(shí)，窗體和控件均能識(shí)別 MouseMove 事件。語(yǔ)法格式如下：

Private Sub From MouseMove(button As Integer , shift As Integer , x As Single , y As Single)在上述鼠標(biāo)事件過(guò)程中，參數(shù) button 返回一個(gè)整數(shù)，用來(lái)標(biāo)識(shí)該事件的產(chǎn)生是按下（MouseDown）或者釋放（MouseUp）哪個(gè)鼠標(biāo)鍵引起的。Button 參數(shù)的值可以是 1、2和4，分別應(yīng)于左按鍵、右按鍵及中間按鍵。

參數(shù)shift 返回一個(gè)整數(shù)，在button 參數(shù)指定的按鍵被按下或者被釋放的情況下，該整數(shù)對(duì)應(yīng)于Shift、Ctrl和Alt鍵的狀態(tài)。Shift的值分別等于1、2和4，分別代表Shift、Ctrl和Alt鍵被按下，shift參數(shù)指示這些鍵的狀態(tài)。這些鍵也可以組合按下，例如，Ctrl鍵和Alt鍵都被按下，則shift的值就是6。

參數(shù)x和y返回一個(gè)指定鼠標(biāo)指針當(dāng)前位置的數(shù)。

MouseDown 事件和MouseUp事件過(guò)程不同于Click事件和DbClick事件，鼠標(biāo)事件被用來(lái)識(shí)別和響應(yīng)各種鼠標(biāo)狀態(tài)，并把這些狀態(tài)看做獨(dú)立的事件。在按下鼠標(biāo)按鍵并釋放時(shí)，Click事件只能把此過(guò)程識(shí)別為一個(gè)單一的操作——單擊操作，而MouseDown 和MouseUp事件能夠區(qū)分出鼠標(biāo)的左、右和中間按鍵。也可以使用Shift、Ctrl和Alt等鍵編寫(xiě)用于鼠標(biāo)加鍵盤(pán)組合操作的代碼。這是CLICK事件和DblClick事件做不到的。

MouseDown事件是3種鼠標(biāo)事件中最常使用的事件。例如：在運(yùn)行時(shí)可用它調(diào)整控件在窗體上的位置，也可用它實(shí)現(xiàn)某些圖形效果，按下鼠標(biāo)按鍵時(shí)就可觸發(fā)此事件。在本任務(wù)中，就是使用MouseDown事件和Line方法來(lái)實(shí)現(xiàn)繪圖。

關(guān)于MouseMove事件，當(dāng)指針移過(guò)屏幕時(shí)要調(diào)用多少次MouseMove事件？或者換個(gè)說(shuō)法，指針由屏幕頂端移動(dòng)到底端時(shí)將經(jīng)過(guò)多少個(gè)位置？并不是對(duì)鼠標(biāo)經(jīng)過(guò)的每個(gè)像素，Visual Basic都會(huì)生成MouseMove事件。操作環(huán)境每秒生成有限多個(gè)鼠標(biāo)消息。

為了看到實(shí)際上有多少次識(shí)別MouseMove事件，可用下述代碼使應(yīng)用程序在每次識(shí)別MouseMove事件之處都繪制一個(gè)小圓圈。Private sub form_mousemove(button as integer,shift as integer,x as single, y as single)Line –(x,y)Circle(x,y),100 End sub 通過(guò)測(cè)試可以知道，指針移動(dòng)越快，在任意兩點(diǎn)之間所能識(shí)別的MouseMove事件越少。如果眾多圓圈擠在一起，則表明鼠標(biāo)在此位置移動(dòng)緩慢。應(yīng)用程序能夠迅速識(shí)別大量的MouseMove事件。

可見(jiàn)，一個(gè)MouseMove事件過(guò)程不應(yīng)去做那些需要大量計(jì)算的工作。

2、窗體的Line方法

窗體的Line方法用于在窗體上畫(huà)直線和矩形，語(yǔ)法格式如下： 窗體名.Line(x1,y1)-(x2,y2)其中參數(shù)（x1,y1）是可選的，其數(shù)值類型為single，指定直線或矩形的起始坐標(biāo)。如果省略，線起始于由CurrentX和CurrentY指示的位置。

參數(shù)（x2,y2）是必需的，其數(shù)值類型為Single，指定直線或矩形的終點(diǎn)坐標(biāo)。

畫(huà)連接的線時(shí)，前一條線的終點(diǎn)就是后一條線的起點(diǎn)。線的寬度取決于DrawWidth屬性值。在背景上畫(huà)線和矩形的方法取決于DrawMode屬性值和DrawStyle屬性值。執(zhí)行Line方法時(shí)，CurrentX屬性和CurrentY 屬性被參數(shù)設(shè)置為終點(diǎn)。這個(gè)方法不能用于With?EndWith語(yǔ)句塊。

四、合作探究

編程設(shè)計(jì)：創(chuàng)建一個(gè)鍵盤(pán)測(cè)試程序。程序運(yùn)行后，當(dāng)在鍵盤(pán)上按下任一個(gè)鍵時(shí)，在窗體上顯示出該鍵的代碼和相應(yīng)的字符并顯示SHIFT、CTRL和ALT鍵的狀態(tài)，當(dāng)按“ESC”鍵時(shí)，退出程序。

設(shè)計(jì)步驟：

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

2、把窗體Form1調(diào)整到所需的大小，并將其Caption屬性值設(shè)置為“簡(jiǎn)單繪圖程序”。

3、在窗體Form1的代碼窗口中編寫(xiě)以下代碼。'聲明窗體級(jí)變量,用于保存鼠標(biāo)指針位置

Private mouseBx, mouseEx, mouseBy, mouseEy As Integer '用于判斷受否開(kāi)始畫(huà)線 Private NYcrw As Boolean Private Sub Form_Load()'程序運(yùn)行清除窗體上的內(nèi)容 Form1.Cls '將畫(huà)線狀態(tài)設(shè)為“否” NYcrw = False End Sub '按下鼠標(biāo)按鈕時(shí)執(zhí)行以下事件過(guò)程

Private Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)'按下鼠標(biāo)左鍵開(kāi)始連續(xù)畫(huà)線 If button = 1 Then mouseBx = x mouseBy = y NYcrw = True End If '按下鼠標(biāo)右鍵畫(huà)直線 If button = 2 Then forml.Line-(x, y)'直線的起點(diǎn)由currentx 和currenty決定 End If End Sub '在窗體上移動(dòng)鼠標(biāo)時(shí)執(zhí)行以下事件過(guò)程

Private Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)'當(dāng)畫(huà)線狀態(tài)為true時(shí),開(kāi)始連續(xù)畫(huà)線 If NYcrw = True Then Form1.Line(mouseBx, mouseBy)-(x, y)mouseBx = x mouseBy = y End If End Sub '釋放鼠標(biāo)按鈕時(shí)執(zhí)行以下事件過(guò)程

Private Sub form_mouseup(botton As Integer, shift As Integer, x As Single, y As Single)NYcrw = flase End Sub

4、保存所有文件。

5、按F5運(yùn)行程序。

6、通過(guò)拖動(dòng)鼠標(biāo)左鍵連續(xù)畫(huà)線，釋放鼠標(biāo)左鍵時(shí)停止畫(huà)線。單擊鼠標(biāo)右鍵，畫(huà)一條從上次畫(huà)圖位置出發(fā)的線段。

五、課堂小結(jié)

本節(jié)課主要通過(guò)設(shè)計(jì)小程序，熟悉了窗體的MouseDown事件、MouseUp事件和MouseMove事件,又學(xué)習(xí)了窗體的LINE方法。

第二篇：VB6.0程序設(shè)計(jì)教案_第61、62課時(shí)

5.3 制作變換的圖形

上課時(shí)間：2014年 6月 5日 備課時(shí)間：2014年 6月 2日

【教學(xué)目標(biāo)】

1、掌握Line控件的常用屬性；

2、掌握Shape控件的常用屬性 【教學(xué)重點(diǎn)】

Line控件的常用屬性和Shape控件的常用屬性 【教學(xué)難點(diǎn)】

Line控件和Shape控件的應(yīng)用 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過(guò)程】

一、復(fù)習(xí)

1、circle語(yǔ)句的用法？

二、導(dǎo)入

上一節(jié)討論了Visual Basic中學(xué)習(xí)了circle語(yǔ)句的用法。本節(jié)課我們來(lái)通過(guò)制作小程序，學(xué)習(xí)Line控件的常用屬性和Shape控件的常用屬性。

三、自主學(xué)習(xí)

1、Line控件

Line控件是圖形控件，它顯示水平線、垂直線或者對(duì)角線。

在設(shè)計(jì)時(shí)，可以使用Line控件在窗體上繪制線。在運(yùn)行時(shí)，除了使用Line方法外，還可以使用Line控件，或者使用后者代替前者。即使AutoRedraw屬性設(shè)置為False，Line控件繪制的線也仍會(huì)保留在窗體上?？梢栽诖绑w、圖像框和框架中顯示Line控件。運(yùn)行時(shí)不能使用Move方法移動(dòng)Line控件，但是可以通過(guò)改變X1、X2、Y1和Y2屬性來(lái)移動(dòng)它或者調(diào)整它的大小。

Line控件的常用屬性如下。

（1）BorderColor：返回或設(shè)置對(duì)象的邊框顏色。（2）BorderStyle：返回或設(shè)置對(duì)象的邊框樣式。BorderStyle屬性有以下設(shè)置值：0表示透明，1（默認(rèn)值）表示實(shí)線，2表示虛線，3表示點(diǎn)線，4表示點(diǎn)畫(huà)線，5表示雙點(diǎn)畫(huà)線，6表示內(nèi)收實(shí)線。（3）BorderWidth：返回或設(shè)置控件邊框的寬度。

（4）X1、X2、Y1、Y2：返回或設(shè)置Line控件的起始點(diǎn)（X1，Y1）和終止點(diǎn)（X2，Y2）的坐標(biāo)。水平坐標(biāo)是X1和X2；垂直坐標(biāo)是Y1和Y2。設(shè)置BorderStyle屬性的效果取決于BorderWidth屬性的設(shè)置。如果BorderWidth不是1而B(niǎo)orderStyle不是0或6，則將BorderStyle設(shè)置成1。

2、Shape控件

Shape控件是圖形控件，可以用于顯示矩形、正方形、橢圓、圓形、圓角矩形或者圓角正方形。

除了BorderColor、BorderStyle和BorderWidth外，Shape形狀控件還具有以下屬性。

1）Shpae：用于設(shè)置所顯示的形狀，該屬性有6個(gè)可選值：0表示矩形，1表示正方形，2表示橢圓，3表示圓，4表示圓角矩形，5表示圓角正方形。

2）FillColor：用來(lái)設(shè)置形狀控件的填充顏色。

3）FillStyle：設(shè)置填充效果。FillStyle屬性有以下設(shè)置值：0表示實(shí)心，1表示透明，2表示水平線，3表示垂直線，4表示左上對(duì)角線，5表示右下對(duì)角線，6表示交叉線，7表示對(duì)角交叉線。

可以在容器中繪制Shape控件，但是不能把該控件當(dāng)做容器。設(shè)置BorderStyle屬性產(chǎn)生的效果取決于BorderStyle屬性的設(shè)置。如果BorderWidth不是1，并且BorderStyle不是0或者6，則將BorderStyle設(shè)置成1。

四、合作探究

編程設(shè)計(jì)：

在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，運(yùn)行時(shí)每單擊一次按鈕，會(huì)出現(xiàn)一個(gè)不同的圖形，并用不同的顏色、效果填充。設(shè)計(jì)步驟：

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

2、將窗體Form1的Caption屬性分別設(shè)置為“變換的圖形”。

3、在窗體Form1上添加Line控件Line1、Shape控件Shape1、命令按鈕Command1和Command2，將兩個(gè)命令按鈕的Caption屬性分別設(shè)置為“演示”和“結(jié)束”。

4、在窗體Form1的代碼窗口中編寫(xiě)以下事件過(guò)程。Private sub command1_click()Static i As Integer, j As Integer Dim r As Integer, g As Integer, b As Integer Randomize r = Int(Rnd * 256)g = Int(Rnd * 256)b = Int(Rnd * 256)If j <= 7 Then shape1.FillStyle = i End If shape1.FillColor = RGB(r, g, b)shape1.BorderColor = RGB(r, g, b)line1.BorderColor = RGB(r, g, b)shape1.Shape = 0 i = i + 1 If i > 5 Then i = 1 End If shape1.Shape = i line1.BorderWidth = i End Sub Private Sub command2_click()Unload Me End Sub

5、按F5運(yùn)行程序。

6、每單擊一次“演示”按鈕，變換一次圖形，并用不同的顏色、效果填充。

五、課堂小結(jié)

本節(jié)課主要通過(guò)設(shè)計(jì)小程序，學(xué)習(xí)了Line控件的常用屬性和Shape控件的常用屬性。

第三篇：VB6.0程序設(shè)計(jì)教案_第51、52課時(shí)

第51、52課時(shí)

上課時(shí)間：2014年 5月 21日 備課時(shí)間：2014年 5月 18日

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

【教學(xué)目標(biāo)】

1、掌握列表框控件的應(yīng)用；

2、掌握組合框控件的應(yīng)用；

3、掌握復(fù)選框按鈕控件的應(yīng)用?！窘虒W(xué)重點(diǎn)】

列表框控件和組合框控件的應(yīng)用 【教學(xué)難點(diǎn)】

對(duì)Split函數(shù)的理解和應(yīng)用 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過(guò)程】

一、復(fù)習(xí)

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

二、導(dǎo)入

上一章討論了Visual Basic中學(xué)習(xí)了單選按鈕控件、框架控件以及復(fù)選框按鈕控件的應(yīng)用。本節(jié)課我們來(lái)通過(guò)制作小程序，學(xué)習(xí)列表框控件和組合框控件的應(yīng)用。

三、自主學(xué)習(xí)

1、列表框控件

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

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

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

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

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

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

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

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

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

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

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

如果所給出的Index值有效，則Item將防止在oList中相應(yīng)的位置。如果省略index，則當(dāng)Sorted屬性設(shè)置為T(mén)rue時(shí)，item將添加到恰當(dāng)?shù)呐判蛭恢?，?dāng)Sorted屬性設(shè)置為False時(shí)，item將添加到列表框的結(jié)尾。

2）RemoveItem：從列表框控件中刪除一項(xiàng)，語(yǔ)法格式如下： oList.RemoveItem index 其中oList表示列表框控件；參數(shù)index是一個(gè)整數(shù)，表示要?jiǎng)h除的項(xiàng)在列表框中的位置。對(duì)于列表框中的首項(xiàng)，index為0。

2、組合框控件

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

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

2）Text：對(duì)于Style屬性設(shè)置為0的下拉組合框或Style屬性設(shè)置為1的簡(jiǎn)單組合框，返回或設(shè)置編輯域中的文本；對(duì)于Style屬性設(shè)置為2的下拉列表框，返回在列表框中選擇的項(xiàng)目，返回值總與表達(dá)式List（ListIndex）的返回值相同。

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

3、Split函數(shù)

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

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

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

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

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

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

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

四、合作探究

編程設(shè)計(jì)：

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

設(shè)計(jì)步驟：

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

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

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

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

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

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

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

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

10）命令按鈕cmdCancel,將其Caption屬性設(shè)置為“取消”，Cancel屬性設(shè)置為T(mén)rue。

4、在窗體Form1的代碼窗口中編寫(xiě)以下事件過(guò)程。

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 = “計(jì)算機(jī)軟件，多媒體技術(shù)應(yīng)用，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)” scourse1 = “計(jì)算機(jī)操作與使用，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)與應(yīng)用，基于過(guò)程的程序設(shè)計(jì)，網(wǎng)頁(yè)制作，數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)，桌面應(yīng)用程序開(kāi)發(fā)，軟件開(kāi)發(fā)實(shí)訓(xùn)” scourse2 = “計(jì)算機(jī)操作與使用，美術(shù)設(shè)計(jì)，多媒體技術(shù)應(yīng)用，計(jì)算機(jī)圖形圖像處理，二維動(dòng)畫(huà)制作，三維動(dòng)畫(huà)制作，音頻視頻編輯處理，平面設(shè)計(jì)，影視制作，多媒體制作” scourse3 = “計(jì)算機(jī)操作與使用，計(jì)算機(jī)組裝與維修，操作系統(tǒng)與網(wǎng)絡(luò)服務(wù)器管理，計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)與應(yīng)用，網(wǎng)絡(luò)布線與小型局域網(wǎng)搭建，網(wǎng)頁(yè)制作，中小型網(wǎng)站建設(shè)與管理” 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、在當(dāng)前工程中添加窗體Form2，并在該窗體上添加以下控件。1）標(biāo)簽lb1Resule,將其Caption屬性清空。

2）文本框txtResult，將其MultiLine屬性設(shè)置為T(mén)rue，ScrollBars屬性設(shè)置為3.3）命令按鈕cmdClose，將其Caption屬性設(shè)置為“關(guān)閉”。

6、在窗體Form2的代碼窗口中編寫(xiě)以下事件過(guò)程。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運(yùn)行程序。

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

五、課堂小結(jié)

本節(jié)課主要通過(guò)設(shè)計(jì)小程序，學(xué)習(xí)了學(xué)習(xí)列表框控件和組合框控件的應(yīng)用。

第四篇：VB6.0程序設(shè)計(jì)教案_第31、32課時(shí)

第31、32課時(shí)

上課時(shí)間：2014年4月10日 備課時(shí)間：2014年 4月 7日

【課題】

3.2 保持窗體上的標(biāo)簽文本居中

【教學(xué)目標(biāo)】

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

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

培養(yǎng)學(xué)生勇于探索未知世界，積極主動(dòng)學(xué)習(xí)的思想，將來(lái)為祖國(guó)的科技發(fā)展做出貢獻(xiàn)?！窘虒W(xué)重點(diǎn)】

上述兩種屬性和事件的應(yīng)用 【教學(xué)難點(diǎn)】

對(duì)事件的理解 【教具】

多媒體、計(jì)算機(jī) 【教學(xué)過(guò)程】

一、復(fù)習(xí)

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

二、導(dǎo)入

上一章討論了Visual Basic中的窗體的常用屬性以及兩個(gè)事件的用法。本節(jié)課我們來(lái)學(xué)習(xí)窗體的屬性和事件的應(yīng)用。

三、自主學(xué)習(xí)

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

窗體的ScaleHeight屬性和ScaleWidth屬性分別用來(lái)返回窗體內(nèi)部的寬度和高度。這連個(gè)屬性在設(shè)計(jì)時(shí)是不可用的，并且在運(yùn)行時(shí)是只讀的。

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

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

2、窗體的Resize和Unload事件

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

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

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

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

四、合作探究

編程設(shè)計(jì)：利用響應(yīng)窗體Resize事件來(lái)改變標(biāo)簽Label的頂點(diǎn)坐標(biāo)和寬度的值，從而實(shí)現(xiàn)當(dāng)改變窗體大小時(shí)，標(biāo)簽文本始終出現(xiàn)在窗體中央。當(dāng)退出程序時(shí)，通過(guò)響應(yīng)窗體Unload事件，提示確認(rèn)關(guān)閉程序。

設(shè)計(jì)步驟：

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

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

3、在工具箱單擊Label圖標(biāo)，在窗體Form1上拖動(dòng)鼠標(biāo)以添加標(biāo)簽控件Label1，然后在屬性窗口中將標(biāo)簽Label1的Caption屬性值設(shè)置為“歡迎使用Visual Basic 6.0”，并設(shè)置Font屬性，把AutoSize屬性設(shè)置為T(mén)rue。

4、在窗體Form1的代碼窗口中編寫(xiě)以下代碼。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(“是否要關(guān)閉程序？”, vbQuestion + vbYesNo, “信息提示”)If a = vbNo Then Cancel = 1 End If End Sub

5、保存所有文件。

6、按F5運(yùn)行程序。

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

五、課堂小結(jié)

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

第五篇：VB6.0程序設(shè)計(jì)教案_第41、42課時(shí)

第41、42課時(shí)

上課時(shí)間：2014年4月25日 備課時(shí)間：2014年 4月 22日

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

【教學(xué)目標(biāo)】

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

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

MDI窗體和子窗體的創(chuàng)建 【教學(xué)難點(diǎn)】

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

多媒體、計(jì)算機(jī) 【教學(xué)過(guò)程】

一、復(fù)習(xí)

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

二、導(dǎo)入

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

三、自主學(xué)習(xí)

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

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

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

3）當(dāng)最大化一個(gè)子窗體時(shí)，它的標(biāo)題會(huì)與MDI窗體的標(biāo)題組合在一起并顯示于MDI窗體的標(biāo)題欄上。MDI窗體擁有一些普通窗口所沒(méi)有的屬性，包括：

1）AutoShowChildren：通過(guò)設(shè)置該屬性，子窗體可以在窗體加載時(shí)自動(dòng)顯示或自動(dòng)隱藏。

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

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

2）創(chuàng)建應(yīng)用程序的子窗體。要?jiǎng)?chuàng)建一個(gè)MDI子窗體，可先創(chuàng)建一個(gè)新窗體（或者打開(kāi)一個(gè)存在的窗體），然后把它的MDIChild屬性設(shè)為T(mén)rue。

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

注意：

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

2、快速顯示窗體

快速顯示窗體一般作為程序的封面使用，這種窗口一般沒(méi)有命令按鈕，沒(méi)有標(biāo)題欄。當(dāng)出現(xiàn)快速顯示窗體時(shí)，按任意鍵或用鼠標(biāo)單擊窗口，它就會(huì)被卸載并調(diào)用應(yīng)用程序主窗體。

制作快速顯示窗體時(shí)，在工程中新建一個(gè)窗體，將窗體的BorderStyle屬性設(shè)置為3，ControlBox屬性設(shè)置為False，Caption屬性設(shè)置為空字符串，并在該窗體中添加一些標(biāo)簽和圖片。此外，還必須通過(guò)設(shè)置工程屬性，把快速顯示窗體設(shè)置為應(yīng)用程序的啟動(dòng)對(duì)象。

四、合作探究

編程設(shè)計(jì)：

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

設(shè)計(jì)步驟：

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

2、把窗體Form1調(diào)整到所需的大小，并將其Caption屬性值設(shè)置為“MDI子窗體之一”，MDIChild屬性值設(shè)置為T(mén)rue，使該窗體稱為一個(gè)MDI子窗體。

3、通過(guò)以下操作添加MDI窗體。

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

2）彈出“添加MDI窗體”對(duì)話框，在“新建”選項(xiàng)卡中選擇“MDI窗體”，單擊“打開(kāi)”按鈕。

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

4、添加另一個(gè)MDI子窗體。

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

6、在屬性窗口中，對(duì)窗體frmSplash上得控件進(jìn)行設(shè)置。

7、設(shè)置應(yīng)用程序的啟動(dòng)對(duì)象。

8、打開(kāi)窗體的frmSplash的代碼窗口，對(duì)已有的程序進(jìn)行修改，代碼屬下： 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的代碼窗口中編寫(xiě)以下事件過(guò)程。Private sub mdiform_activate()Form1.show Form2.show End sub

9、保存所有文件。

10、按F5運(yùn)行程序。

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

五、課堂小結(jié)

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