第三章 窗體 命令按鈕 標(biāo)簽 文本框

第3章窗體、命令按鈕、標(biāo)簽和文本框王紹清第3章窗體、命令按鈕、標(biāo)簽和文本框本章內(nèi)容

窗體簡單的輸入和輸出命令按鈕標(biāo)簽文本框VB語句書寫規(guī)則本章重點(diǎn)Form對(duì)象的屬性、方法和事件Msgbox（）和Inputbox（）函數(shù)命令按鈕、標(biāo)簽、文本框本章難點(diǎn)Msgbox（）函數(shù)Inputbox（）函數(shù)3.1窗體窗體是一個(gè)最常用的對(duì)象。當(dāng)創(chuàng)建一個(gè)工程時(shí)，系統(tǒng)自動(dòng)創(chuàng)建一個(gè)窗體，名稱為Form1.窗體的屬性（1）Caption設(shè)置或返回窗體標(biāo)題欄的文字。BorderStyle

設(shè)置窗體的邊框樣式，取值見P31。Controlbox設(shè)置是否顯示窗體的控制菜單條。MaxButton、MinButton

設(shè)置是否顯示最大化和最小化按鈕Moveable設(shè)置窗體是否可移動(dòng)。True可以移動(dòng)。Icon設(shè)置窗體最小化時(shí)的圖標(biāo)窗體的屬性（2）Picture--指定窗體內(nèi)要顯示的背景圖片。SetForm1.Picture=LoadPicture(“c:\bkground.jpg”)StartUpPosition--窗體啟動(dòng)時(shí)在屏幕上的顯示位置手動(dòng)（0）容器中央（1）屏幕中央（2）窗口缺省（3）WindowState

--窗體啟動(dòng)時(shí)的狀態(tài)正常（0）最小化（1）最大化（2）ScaleHeight、ScaleWidth

窗體內(nèi)部繪圖區(qū)的高度、寬度，Height,Width

指定整個(gè)窗體的高和寬。課堂示例3-1用窗體名訪問form1.caption=“歡迎”用Me訪問（me表示當(dāng)前窗體）Me.caption=“歡迎”直接訪問窗體屬性caption=“歡迎”訪問窗體的控件屬性

[窗體名.]控件名.屬性

如果是當(dāng)前窗體，則可省略窗體名。舉例：窗體Form1上有一個(gè)命令按鈕command1,使之一直位于窗口中央。(提示：在窗體的resize事件中編寫代碼)訪問窗體的屬性課堂示例3-0Initialize事件

窗體對(duì)象被創(chuàng)建、但沒加載。該事件中的代碼最先被執(zhí)行。通常將一些初始化的操作放在該事件過程中。Load事件

窗體的所有控件都裝入內(nèi)存，但窗體仍未顯示。可使用show方法顯示。窗體中控件的初始值代碼通常放在Load事件中，如：Text1=100Activate事件

窗體處于活動(dòng)狀態(tài)事件。窗體中控件的獲得焦點(diǎn)方法Setfocus一般放在此事件中。同時(shí)有Gotlocus事件產(chǎn)生。如：text1.setfocus

Deactivate事件窗體處于非活動(dòng)狀態(tài)。同時(shí)有Lostfocus事件產(chǎn)生。窗體的事件（1）【例】設(shè)計(jì)程序，使窗體一打開就在屏幕的右下角?！咎崾尽縎creen是一個(gè)全局的系統(tǒng)對(duì)象，對(duì)應(yīng)于計(jì)算機(jī)屏幕，可以直接使用。思考:如果窗體位于屏幕的中央，怎么修改上述代碼？課堂示例3-1窗體的Load事件示例QueryUnload事件cancel

－設(shè)置為非零值，可停止窗體的關(guān)閉Unloadmode－指示引起此事件的原因UnLoad事件在Queryunload事件后發(fā)生課堂示例3-2窗體的事件（2）課堂示例3-3Resize事件當(dāng)窗口第一次顯示或窗口大小改變時(shí)引發(fā)該事件。當(dāng)窗口調(diào)整大小時(shí)，可用Resize事件過程來移動(dòng)窗口中的控件位置或調(diào)整其大小，以使界面保持美觀?！纠吭O(shè)計(jì)包含一個(gè)TextBox控件的窗體，要求該控件總是充滿整個(gè)窗體。(提示：ScaleWidth和ScaleHeigth屬性代表窗口內(nèi)部繪圖區(qū)域的寬度和高度。)窗體的事件（3）鼠標(biāo)事件窗體中最常用的鼠標(biāo)事件為Click和DbClick事件，此外，還常用：MouseMove、MouseDown、MouseUp等事件?！纠烤帉懗绦蛟诖翱跇?biāo)題欄中顯示鼠標(biāo)當(dāng)前的坐標(biāo)位置。Button按鈕常數(shù)。左按鈕（1）、右按鈕（2）Shift

換檔常數(shù)。

Shift鍵(1)、Ctrl鍵(2)、Alt鍵(4)X

鼠標(biāo)的水平坐標(biāo)Y

鼠標(biāo)的垂直坐標(biāo)&字符串連接操作符課堂示例3-2鍵盤事件鍵盤事件主要有：KeyPress、Keydown、KeyUP、KeyPreviewKeyPreview為True，窗體的鍵盤事件優(yōu)先于控件的鍵盤事件。通常情況下，焦點(diǎn)控件對(duì)于鍵盤事件有優(yōu)先響應(yīng)的權(quán)利?！纠烤帉懗绦蚶米址?和-實(shí)現(xiàn)窗口的變大和變小。課堂示例3-3窗體類型SDI窗體——程序運(yùn)行中只有一個(gè)窗口被激活和顯示MDI窗體——程序管理和顯示多個(gè)窗口添加新窗體“工程->添加->添加窗體”添加已存在窗體“工程->添加->添加文件”提示：一個(gè)工程中可以添加多個(gè)窗體，一個(gè)窗體可以添加到多個(gè)工程中。設(shè)計(jì)多窗體程序課堂示例3-4指定啟動(dòng)窗體——有多個(gè)窗體的工程必須指定一個(gè)啟動(dòng)窗體。默認(rèn)情況下，第一個(gè)創(chuàng)建的窗體為啟動(dòng)窗體。如果需要更改，可采用以下方法：右鍵單擊“工程”，選“工程屬性”選“通用”選項(xiàng)卡在“啟動(dòng)”列表框中，選中所要窗體使用SubMain在標(biāo)準(zhǔn)模塊(.bas)中定義主過程Main SubMain() …. EndSub在工程屬性的“啟動(dòng)”列表框中，選中“SubMain”舉例：將前面的示例合并到一個(gè)工程文件中。設(shè)置啟動(dòng)窗體窗體的加載、顯示和隱藏除了通過設(shè)置啟動(dòng)窗體來自動(dòng)加載窗體外，還可以在程序中加載窗體。在程序中加載窗體的方法:窗體名.Show0

無模式窗體，可以將焦點(diǎn)切換到其它窗體窗體名.Show1

模式窗體，不能將焦點(diǎn)切換到其它窗體執(zhí)行Show方法可以完成窗體的創(chuàng)建、加載和可見三個(gè)過程。如果執(zhí)行Load窗體名只能加載窗體,此時(shí)窗體還不可見，仍需要執(zhí)行show方法。顯示窗體

窗體名.Show窗體名.Visible=True隱藏窗體窗體名.Hide

窗體名.Visible=False

End

語句，立即中止、結(jié)束程序。不觸發(fā)窗體的Unload和QueryUnload事件。窗體的關(guān)閉卸載窗體可以使用以下幾種方法:Unload

窗體名

Unloadme

End關(guān)閉按鈕

課堂示例3-63.2簡單的輸入和輸出VB中可以使用控件來控制輸入輸出，也可以使用輸入對(duì)話框InputBox和消息對(duì)話框MsgBox函數(shù)。InputBox和MsgBox運(yùn)行效果消息對(duì)話框MsgBoxMsgBox函數(shù)和語句會(huì)產(chǎn)生一個(gè)輸出對(duì)話框，向用戶傳送信息，并可通過用戶在對(duì)話框上的選擇接收用戶所做的響應(yīng)，作為程序繼續(xù)執(zhí)行的依據(jù)。格式：

MsgBox(prompt[,buttons][,title])prompt——對(duì)話框中顯示的消息，字符串表達(dá)式buttons——按鈕、圖標(biāo)和默認(rèn)按鈕的取值之和，數(shù)值表達(dá)式，見P41Title——對(duì)話框的標(biāo)題，字符串表達(dá)式函數(shù)返回值為一個(gè)數(shù)值，見P42。課堂示例3-5Inputbox函數(shù)提供一個(gè)輸入對(duì)話框，允許用戶輸入數(shù)據(jù)。函數(shù)返回值就是用戶輸入的值，是一個(gè)字符串。格式：變量=InputBox(prompt

[,title][,default][,x][,y])BackString

對(duì)話框中的返回值prompt

對(duì)話框中顯示的提示信息，必選項(xiàng)title可選，對(duì)話框的標(biāo)題，缺省標(biāo)題為應(yīng)用程序名default

可選，輸入文本框中的缺省值x,y

對(duì)話框與屏幕左邊和上邊的距離輸入對(duì)話框InputBox課堂示例3-6如果提示字符串信息較長，需要分成多行顯示時(shí)，可以在每行結(jié)尾處加上回車符chr(10)

和換行符chr(13)或者使用常量vbCrlf提示字符串的換行3.3命令按鈕(Command)命令按鈕用來接收用戶的命令?；緦傩訬ameHeight、Width、Top、LeftEnabledVisibleFontCaption

命令按鈕的標(biāo)題。可在標(biāo)題的某字母前加“&“設(shè)置快捷鍵。例如：&Ok、退出(&X)Default設(shè)置為True時(shí)，按Enter鍵相當(dāng)于用鼠標(biāo)單擊了該按鈕。Cancel設(shè)置為True時(shí)，按Esc鍵相當(dāng)于用鼠標(biāo)單擊了該按鈕。注意：在一個(gè)窗體中，只能有一個(gè)按鈕的Default或

Cancel屬性設(shè)置為True。命令按鈕——常用屬性（1）課堂示例4-0命令按鈕——常用屬性Value在程序中，如果該值設(shè)為True,相當(dāng)于單擊該按鈕。該屬性在設(shè)計(jì)時(shí)無效。Style

確定按鈕顯示的形式.0只能顯示文字,1

文字、圖形均可。Picture

Style值設(shè)為1時(shí)，在按鈕上顯示的圖片文件(.bmp和.Ico)。ToolTipText

圖片按鈕時(shí)，用于設(shè)置按鈕的提示文本。一般和Picture結(jié)合使用。課堂示例4-1命令按鈕——常用方法Move方法

移動(dòng)對(duì)象Setfocus方法

獲得焦點(diǎn)命令按鈕——常用事件Click()事件。一般也只對(duì)該事件進(jìn)行編程。注意：命令按鈕沒有DblClick

事件。3.4標(biāo)簽(Label)標(biāo)簽用來顯示靜態(tài)文本?；緦傩訦eight、Width、Top、LeftEnabledVisibleFontForeColorBackColorCaption標(biāo)簽控件中顯示的文本。長度最多為1024字節(jié)。缺省情況下，當(dāng)文本超過控件寬度時(shí)，文本會(huì)自動(dòng)換行，而當(dāng)文本超過控件高度時(shí)，超出部分將被裁剪掉。BackStyle標(biāo)簽的背景是否透明。0-背景透明；1-不透明。Alignment標(biāo)簽文本對(duì)齊方式：0-左對(duì)齊；1-右對(duì)齊；2-居中對(duì)齊。標(biāo)簽——常用屬性（1）課堂示例4-2AutoSize為True表示自動(dòng)改變標(biāo)簽大小。WordWrap設(shè)置AutoSize屬性為True時(shí)，標(biāo)簽?zāi)J(rèn)會(huì)沿水平方向自動(dòng)改變大?。▎涡酗@示）。若先將WordWrap設(shè)置為True，則標(biāo)簽會(huì)沿垂直方向伸縮，水平寬度不變。標(biāo)簽——常用屬性（2）課堂示例4-2標(biāo)簽——常用方法、事件常用方法Move方法

移動(dòng)對(duì)象常用事件標(biāo)簽可響應(yīng)單擊（Click)和雙擊（DblClick）事件，但一般情況不對(duì)它進(jìn)行編程。3.5文本框（Text)文本框用來編輯和顯示文本，允許用戶輸入數(shù)據(jù)?；緦傩訬ameHeight、Width、Top、LeftEnabledVisibleFontForeColorBackColor

文本框——常用屬性（1）Text文本框中顯示的內(nèi)容。缺省最多為2048個(gè)。注意，文本框沒有Caption屬性。Maxlength設(shè)置文本框內(nèi)文本的長度。

0表示任意長度值。Locked文本框內(nèi)的文本是否可以被編輯。False，表示為可編輯。PassWordChar設(shè)置密碼字符，如設(shè)成*

。課堂示例4-3文本框——常用屬性（2）MultiLine文本框內(nèi)的文本是否允許多行顯示。True允許多行顯示。默認(rèn)為一行（

False）。ScrollBars文本框內(nèi)是否顯示滾動(dòng)條。當(dāng)MultiLine為True時(shí)，該屬性才有效。0-None：無滾動(dòng)條1-Horizontal：水平滾動(dòng)條2-Vertical：垂直滾動(dòng)條3-Both：水平和垂直滾動(dòng)條課堂示例4-3文本框——常用屬性（3）SelStart設(shè)置或返回在文本框選中文本的起始位置。第一個(gè)字符的位置為0。如果SelStart的值大于文本的長度，則SelStart取當(dāng)前文本的長度。若沒有選擇文本，則返回插入點(diǎn)的位置。SelLength設(shè)置或返回在文本框中選定文本的長度（即字符個(gè)數(shù)）。SelText設(shè)置或返回在文本框中選定的文本字符串。課堂示例4-3文本框——使用Clipboard對(duì)象來操作剪貼板剪貼板（Clipboard）對(duì)象沒有任何屬性和事件。清除剪貼板中的內(nèi)容Clipboard.clear將文本復(fù)制到剪貼板中Clipboard.SetText

要復(fù)制的文本

示例：將在Text1中選擇的文本復(fù)制到剪貼板中

Clipboard.SetTextText1.seltext

復(fù)制返回存儲(chǔ)在剪貼板上的文本目標(biāo)=Clipboard.GetText示例：用剪貼板中的文本替換Text1中選擇的文本

Text1.seltext=Clipboard.GetText

粘貼課堂示例4-4Change事件當(dāng)改變文本框的Text屬性時(shí)會(huì)引發(fā)該事件示例：當(dāng)下邊的程序運(yùn)行后，在文本框中輸入ABCD，則在窗體上在輸出結(jié)果是？文本框——常用事件課堂示例4-5KeyPress事件當(dāng)用戶按下并釋放鍵盤上一個(gè)ANSI鍵時(shí)，就會(huì)觸發(fā)一次該事件示例：當(dāng)下邊的程序運(yùn)行后，在文本框中輸入ABC