excel窗體編程案例說(shuō)明

1、窗體和命令按鈕 標(biāo)簽和文本框 單選按鈕、復(fù)選框和框架 定時(shí)器 輸入框和消息框 列表框和組合框 滾動(dòng)條 控件應(yīng)用綜合案例,,主要內(nèi)容,窗體和常用控件編程,1.1 [案例4-1]窗體編程案例說(shuō)明,程序運(yùn)行后，窗體的標(biāo)題為“窗體變化”，窗體的右上角無(wú)“最大化”按鈕和“最小化”按鈕，單擊窗體中不同的按鈕窗體發(fā)生相應(yīng)的變化。單擊“窗體變大”、“窗體變小”按鈕，窗體的長(zhǎng)和寬都會(huì)隨著變大和縮小，單擊“窗體最大”按鈕后，窗體最大化，同時(shí)“

2、窗體變大”、“窗體變小”、“窗體居中”三個(gè)按鈕不能使用，單擊“窗體恢復(fù)”按鈕后，窗體恢復(fù)為啟動(dòng)該窗體時(shí)的大小狀態(tài)，同時(shí)“窗體變大”、“窗體變小”、“窗體居中”恢復(fù)有效，單擊“窗體居中”按鈕后，窗體位于屏幕的中間，單擊“為窗體設(shè)置顏色”、“為窗體加載圖片”按鈕則分別給窗體設(shè)置顏色或加載圖片。,1.2 程序?qū)崿F(xiàn),1.界面設(shè)計(jì)在窗體上添加7個(gè)命令按鈕，并設(shè)置控件的相關(guān)屬性：,1.2 程序?qū)崿F(xiàn),2.代碼設(shè)計(jì),1.3 相關(guān)知識(shí),1.窗體 ：用戶(hù)

3、界面的基礎(chǔ)是窗體，各種控件必須建立在窗體上，窗體是一種容器控件。（1）窗體屬性（2）窗體事件2. 命令按鈕：用來(lái)執(zhí)行某一功能，接受用戶(hù)的操作信息，觸發(fā)相應(yīng)的事件過(guò)程，以實(shí)現(xiàn)指定的功能。（1）命令按鈕的屬性：（2）命令按鈕的事件：,1.4 拓展知識(shí),1.加載圖片：為對(duì)象加載圖片有兩種方法，可以在設(shè)計(jì)界面時(shí)在對(duì)象的屬性窗口中設(shè)置Picture屬性，另一種方法是在程序運(yùn)行時(shí)使用加載圖片函數(shù)LoadPicture（文件名）為對(duì)

4、象加載圖片。加載圖片的語(yǔ)句格式為：對(duì)象名.Picture=LoadPicture（[文件名]）對(duì)象名.Picture=LoadPicture（App.Path+“\文件名.擴(kuò)展名”）要?jiǎng)h除加載的圖片則可以使用如下語(yǔ)句：對(duì)象名.Picture=LoadPicture()2.顏色常數(shù)：VB中將常用的顏色用指定的名字表示，不需要聲明，可以直接引用，這些名字稱(chēng)為顏色常數(shù)，從顏色常數(shù)可以看出其所代表的顏色。,返回,2.1 復(fù)制文本

5、案例說(shuō)明,主要介紹標(biāo)簽控件和文本框控件的屬性和編程方法。程序運(yùn)行后，窗體上出現(xiàn)一條“提示信息”，單擊后出現(xiàn)兩個(gè)文本框，“提示信息”的內(nèi)容發(fā)生改變。在其中任何一個(gè)文本框輸入文本，另一個(gè)文本框則顯示相同的內(nèi)容。,2.2 程序?qū)崿F(xiàn),界面設(shè)計(jì)：在窗體上添加1個(gè)標(biāo)簽控件、2個(gè)文本框,2.代碼設(shè)計(jì)：,2.3 相關(guān)知識(shí),1.標(biāo)簽：可以用標(biāo)簽實(shí)現(xiàn)接收信息和顯示信息。（1）標(biāo)簽屬性（2）標(biāo)簽事件2.文本框：用于在窗體中為用戶(hù)提供一個(gè)既能顯示文本

6、又能編輯文本的區(qū)域。（1）文本框?qū)傩裕?）文本框事件（3）文本框方法,2.4 文本復(fù)制,1.案例說(shuō)明：這是一個(gè)簡(jiǎn)單的剪貼板應(yīng)用程序。程序由一個(gè)標(biāo)簽，二個(gè)文本框和四個(gè)按鈕組成。單擊“復(fù)制”或“剪切”按鈕，然后單擊“粘貼”按鈕，可以把在第一個(gè)文本框中選中的內(nèi)容復(fù)制或剪切到第二個(gè)文本框中。,返回,3.1字體設(shè)置案例說(shuō)明,本案例演示如何為文本框中的文本設(shè)置字體樣式和字體大小。程序運(yùn)行后出現(xiàn)如圖3-7所示，兩個(gè)框架控件內(nèi)分別包含了一組單選按

7、鈕控件和一組復(fù)選按鈕控件，單擊這兩組控件，可以把文本框中的文本字體分別設(shè)置成“粗體”、“斜體”及添加“下劃線”或是這三種的組合。單擊單選按鈕可以設(shè)置文本框中文字的分別為“18”、“24”和“28”，只能設(shè)置一種字體大小。,3.2 程序?qū)崿F(xiàn),1.界面設(shè)計(jì)：在窗體中添加一個(gè)文本框，兩個(gè)框架（Frame），在第一個(gè)框架中添加三個(gè)復(fù)選框（CheckBox），在第二框架種添加三個(gè)單選框（OptionButton）， 2.代碼設(shè)計(jì)：對(duì)兩個(gè)命令按鈕的

8、單擊事件進(jìn)行編程。 2.代碼設(shè)計(jì)：,3.3 相關(guān)知識(shí),1.框架：框架的作用是將窗體內(nèi)的控件分組，將具有聯(lián)系的一類(lèi)控件單獨(dú)分成一組放置在框架中。 （1）框架的屬性和事件（2）使用框架的注意事項(xiàng)2.單選按鈕：常常成組出現(xiàn)，主要用于“多選一”的問(wèn)題。用戶(hù)在一組單選按鈕中必須選擇一項(xiàng)，并且最多只能選擇一項(xiàng)。3.復(fù)選框：復(fù)選框（CheckBox）也稱(chēng)為檢查框，單擊復(fù)選框一次被選中，左邊出現(xiàn)“√”號(hào)，再次單擊則取消選中。清除復(fù)選框中的“√

9、”?？赏瑫r(shí)使多個(gè)復(fù)選框同時(shí)處于選中狀態(tài)，進(jìn)行多種情況的組合。,3.4 拓展知識(shí),1.字體樣式,返回,4.1趣味計(jì)時(shí)器案例說(shuō)明,本案例實(shí)現(xiàn)一個(gè)多功能計(jì)時(shí)器的應(yīng)用，以此來(lái)介紹時(shí)鐘控件。用4個(gè)文本框分別用來(lái)顯示“當(dāng)前時(shí)間”、“開(kāi)始時(shí)間”、“結(jié)束時(shí)間”、“共計(jì)耗時(shí)”，有三個(gè)命令按鈕，“開(kāi)始”、“停止”和“退出”。用來(lái)控制開(kāi)始計(jì)時(shí)的時(shí)刻和停止的時(shí)刻，另一個(gè)按鈕用來(lái)退出應(yīng)用程序。當(dāng)程序運(yùn)行時(shí)，“開(kāi)始”按鈕可用，“停止”按鈕不可用。當(dāng)需要進(jìn)行計(jì)時(shí)的時(shí)

10、候單擊一下“開(kāi)始”按鈕，同時(shí)“停止”按鈕可用。當(dāng)需要停止時(shí)，單擊一下“停止”按鈕，則停止計(jì)時(shí)，在“共計(jì)耗時(shí)”文本框中顯示從開(kāi)始計(jì)時(shí)到停止計(jì)時(shí)所花的時(shí)間，精確到0.1秒。為了增加動(dòng)感，在窗體上添加了兩個(gè)圖像框控件，兩幅相似的圖片以1秒的時(shí)間間隔交替顯示，同時(shí)會(huì)發(fā)出“嘟、嘟……”的聲音。,4.2 程序?qū)崿F(xiàn),,1.界面設(shè)計(jì)：在窗體上添加4個(gè)標(biāo)簽控件、4個(gè)文本框控件、3個(gè)命令按鈕、2個(gè)圖像框、1個(gè)圖片框、3個(gè)時(shí)鐘控件。 2.代碼設(shè)計(jì)：,4.

11、3 相關(guān)知識(shí),1.定時(shí)器控件：定時(shí)器控件（Timer）是一種按一定時(shí)間間隔觸發(fā)事件的控件，用以實(shí)現(xiàn)定時(shí)執(zhí)行指定的操作。該控件在設(shè)計(jì)可見(jiàn)，而在運(yùn)行時(shí)是不可見(jiàn)的。（1）定時(shí)器屬性：（2）定時(shí)器事件：2.圖像框控件和圖片框：,4.4 拓展知識(shí),1.Beep語(yǔ)句：通過(guò)喇叭發(fā)出一個(gè)聲調(diào)。2.Time函數(shù)和Time語(yǔ)句Time函數(shù)：返回一個(gè)指明當(dāng)前系統(tǒng)時(shí)間的函數(shù)。為了設(shè)置系統(tǒng)時(shí)間可以使用Time語(yǔ)句。例如：n=TimeTime語(yǔ)句：用

12、來(lái)設(shè)置系統(tǒng)時(shí)間，時(shí)間參數(shù)可以使用任何能夠表示時(shí)刻的數(shù)值表達(dá)式、字符串表達(dá)式或它們的組合。如果Time是一個(gè)字符串，系統(tǒng)利用時(shí)間分隔符將其轉(zhuǎn)換成一個(gè)時(shí)間，如果無(wú)法轉(zhuǎn)換成一個(gè)有效的時(shí)間，則會(huì)導(dǎo)致錯(cuò)誤發(fā)生。,返回,5.1求三角形面積案例說(shuō)明,要求用輸入框從鍵盤(pán)輸入三個(gè)數(shù)，作為三角形的三條邊。在計(jì)算面積之前，首先要判斷這三個(gè)數(shù)作為三條邊是否能構(gòu)成三角形，如果不能構(gòu)成三角形，則給出提示信息，并可選擇重新輸入或退出執(zhí)行；如果能構(gòu)成三角形則用“消息框

13、”把三角形的面積顯示出來(lái)。注意這兩種消息框的不同之處。,5.2 程序?qū)崿F(xiàn),,1.界面設(shè)計(jì)：2.代碼設(shè)計(jì)：,5.3 相關(guān)知識(shí),1.輸入框：把數(shù)據(jù)輸入計(jì)算機(jī)，使用VB提供的InputBox函數(shù)生成的輸入框來(lái)進(jìn)行數(shù)據(jù)信息的輸入。InputBox函數(shù)的一般格式為：InputBox( [,標(biāo)題] [,缺省值] [,x坐標(biāo)位置] [,y坐標(biāo)位置])該函數(shù)產(chǎn)生一個(gè)對(duì)話框，作為輸入數(shù)據(jù)的界面，等待用戶(hù)輸入正文或按下按鈕，函數(shù)返回值是字符

14、串類(lèi)型：幾點(diǎn)說(shuō)明：,5.3 相關(guān)知識(shí),2.消息框：用MsgBox語(yǔ)句或MsgBox函數(shù)產(chǎn)生的，兩者的不同之處在于MsgBox函數(shù)會(huì)產(chǎn)生一個(gè)與用戶(hù)所選擇按鈕相對(duì)應(yīng)的整數(shù)。（1）MsgBox函數(shù)：格式為：MsgBox（提示 [，按鈕組合][，標(biāo)題]）,按鈕組合說(shuō)明：,表4-11 MsgBox函數(shù)的返回值,（2）MsgBox語(yǔ)句消息框也可以寫(xiě)成語(yǔ)句的形式，即MsgBox 提示 [，按鈕組合][，標(biāo)題]其中各參數(shù)的含義及作用與M

15、sgBox函數(shù)相同，只是MsgBox語(yǔ)句沒(méi)有返回值，因而常用于較簡(jiǎn)單的信息提示。,5.3 相關(guān)知識(shí),5.4 拓展知識(shí),GoTo語(yǔ)句GoTo語(yǔ)句的格式：GoTo |GoTo的功能是無(wú)條件轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)所指定的語(yǔ)句執(zhí)行，而且只能是同一過(guò)程中的語(yǔ)句。是一個(gè)字符系列，首字符必須為字母，標(biāo)號(hào)的后面必須有一個(gè)冒號(hào)“：”；而可以是一個(gè)數(shù)字序列。理解本案例中Goto語(yǔ)句的作用。不過(guò)在程序設(shè)計(jì)時(shí)，應(yīng)盡量避免使用GoTo語(yǔ)句，以提高可讀性。,返回,

16、6.1項(xiàng)目選擇案例說(shuō)明,本案例是一個(gè)列表框和組合框的簡(jiǎn)單應(yīng)用。先選擇“姓名”的列表框，然后從“項(xiàng)目”列表框中選擇項(xiàng)目，此時(shí)在列表框中就會(huì)顯示姓名和運(yùn)動(dòng)項(xiàng)目。如果要?jiǎng)h除某項(xiàng)，則可先選中該項(xiàng)，然后單擊“刪除”按鈕。單擊“清空”按鈕，則可把列表框中的內(nèi)容全部刪除。,6.2 程序?qū)崿F(xiàn),,1.界面設(shè)計(jì)：在窗體上添加2個(gè)組合框、1個(gè)列表框、兩個(gè)命令按鈕，適當(dāng)調(diào)整它們的大小和位置。 2.代碼設(shè)計(jì)：,6.3 相關(guān)知識(shí),1.列表框：主要用途在于提供列表

17、式的多個(gè)數(shù)據(jù)項(xiàng)供用戶(hù)選擇。如果項(xiàng)目總數(shù)超過(guò)了可顯示的項(xiàng)目數(shù)，則系統(tǒng)會(huì)自動(dòng)在列表框邊上加上一個(gè)垂直滾動(dòng)條。（1）屬性（2）方法 （3）事件 2.組合框：將文本框和列表框的功能結(jié)合在一起，它可以像列表框控件一樣讓用戶(hù)通過(guò)鼠標(biāo)選擇所需要的項(xiàng)目，也可以像文本框控件一樣，用鍵盤(pán)輸入的方法選擇項(xiàng)目。 （1）屬性（2）方法 （3）事件,返回,7.1調(diào)色板案例說(shuō)明,用一個(gè)標(biāo)簽制作一個(gè)調(diào)色板，通過(guò)三個(gè)滾動(dòng)條來(lái)調(diào)整這個(gè)標(biāo)簽的前景色和背景色，而且前景色

18、和背景色是互為補(bǔ)色，如圖4-18所示。前景色和背景色的調(diào)節(jié)用RGB函數(shù)，而三個(gè)滾動(dòng)條的當(dāng)前值作為RGB函數(shù)的三個(gè)參數(shù)，分別代表了RGB中的紅、綠和藍(lán)色所占的比重；每個(gè)滾動(dòng)條旁都有一個(gè)標(biāo)簽，用以顯示每個(gè)滾動(dòng)條的當(dāng)前值。,7.2 程序?qū)崿F(xiàn),,1.界面設(shè)計(jì)：在窗體上添加4個(gè)標(biāo)簽控件，3個(gè)水平滾動(dòng)條控件。 2.代碼設(shè)計(jì)：,7.3 相關(guān)知識(shí),1.滾動(dòng)條:通常用來(lái)輔助瀏覽顯示信息、確定位置，在某些場(chǎng)合也可以用來(lái)輸入數(shù)據(jù)。分為水平滾動(dòng)條（HScr

19、ollBar）和垂直滾動(dòng)條（VScrollBar）兩種。滾動(dòng)條的兩端各有一個(gè)滾動(dòng)箭頭，在滾動(dòng)箭頭之間有一個(gè)滑塊?；瑝K可以在兩個(gè)滾動(dòng)箭頭之間移動(dòng)，滾動(dòng)條的值從左到右（從上往下）遞增，兩端分別是滾動(dòng)條的最大值和最小值，其值均為整數(shù)，取值范圍為－32768～＋32767。 （1）屬性（2）方法 （3）事件,返回,8.1打字練習(xí)案例說(shuō)明,這是一個(gè)模擬練習(xí)打字程序，運(yùn)行程序后的界面如圖4-20所示。“窗體”呈最大化狀態(tài)，單擊窗體上的“圖片”（其

20、實(shí)是一個(gè)按鈕），在窗體內(nèi)某個(gè)位置隨機(jī)出現(xiàn)小寫(xiě)的英文字母，并且逐步往下降落，在“字母”沒(méi)有超出窗體下端時(shí)敲擊鍵盤(pán)，如果鍵入的字母與窗體上的字母一致，則“計(jì)分”累加一分，如果不一致，則字母繼續(xù)降落，直至超出窗體的下沿，此時(shí)又出現(xiàn)另一個(gè)英文字母，與此同時(shí)“剩余時(shí)間”逐秒減少，減到0時(shí)，彈出消息框，根據(jù)不同的得分范圍給出不同的信息。,8.2 程序?qū)崿F(xiàn),,1.界面設(shè)計(jì)：在窗體上添加1個(gè)命令按鈕控件、2個(gè)時(shí)鐘控件、6個(gè)標(biāo)簽控件。各個(gè)控件的屬性按表4

21、-14進(jìn)行設(shè)置。其中，Label1在程序運(yùn)行時(shí)顯示隨機(jī)產(chǎn)生的字母，Label4用來(lái)顯示“計(jì)分”；Timer1每隔100ms使得Label1的Top屬性遞增，能夠產(chǎn)生這個(gè)標(biāo)簽往下降的效果，因此，“字母”下降的速度可由Timer1的Interval屬性和Top的增量來(lái)控制。Timer2用來(lái)計(jì)時(shí)，剩余時(shí)間由Label5顯示，每隔1000ms，Label5的Caption屬性值減1，一直減到0為止；同時(shí)把Label1～Label6的背景設(shè)置為0