計(jì)算機(jī)軟件及應(yīng)用VB快速入門

2.1VB對(duì)象的概念2.1.1對(duì)象和類2.1.2對(duì)象的屬性、事件、方法2.1.1對(duì)象的建立和編輯2.1.1對(duì)象和類

1.對(duì)象：對(duì)象指現(xiàn)實(shí)世界中的實(shí)體。

例如：現(xiàn)實(shí)生活中的對(duì)象一個(gè)人，如張三是一個(gè)對(duì)象一個(gè)桌子是一個(gè)對(duì)象一輛汽車是一個(gè)對(duì)象……例如：VB中的對(duì)象一個(gè)命令按鈕一個(gè)文本框一個(gè)下拉列表……2.1.1對(duì)象和類

1.對(duì)象每個(gè)對(duì)象有自己的特征、能力和發(fā)生在該對(duì)象上的活動(dòng)。如張三這個(gè)對(duì)象，他有屬性身高，體重，學(xué)號(hào)，專業(yè)……，有能力如唱歌、籃球，游泳……，有活動(dòng)如老師要求他回答問(wèn)題，他就站起來(lái)回答……。在VB面向?qū)ο蟪绦蛟O(shè)計(jì)中：每個(gè)對(duì)象也有它的屬性、方法、事件對(duì)象的三要素對(duì)象的特征——屬性對(duì)象的能力——方法對(duì)象的活動(dòng)——事件2.類日常生活中類和對(duì)象的含義類是對(duì)同一種對(duì)象的集合與抽象。如人類是所有“人”的共同特征的抽象。類是對(duì)象的模板,對(duì)象則是類的一個(gè)實(shí)例。如一個(gè)叫“張三”的人，是人這個(gè)類的一個(gè)實(shí)例。VB中的類和對(duì)象的含義VB中工具欄中的每個(gè)控件，都是一個(gè)類。例如命令按鈕類，文本框類等。由類可創(chuàng)建對(duì)象，類包含所創(chuàng)建對(duì)象的屬性數(shù)據(jù),以及對(duì)這些數(shù)據(jù)進(jìn)行操作的方法，和可接受的事件。3.VB中的類和對(duì)象VB工具箱中的可視圖標(biāo)是VB系統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類。通過(guò)將控件類實(shí)例化，得到真正的控件對(duì)象。具體來(lái)說(shuō)，在工具箱中選擇一個(gè)控件，在窗體上創(chuàng)建一個(gè)對(duì)象，本質(zhì)上就是將該控件所屬的類轉(zhuǎn)換為一個(gè)具體的對(duì)象。例如：工具箱內(nèi)的Commandbutton是類窗體上顯示的3個(gè)Commandbutton對(duì)象，默認(rèn)的名字分別是Command1，Command2，Command3

Text對(duì)象Commandbutton類Commandbutton對(duì)象例如：工具箱內(nèi)的TextBox是類窗體上顯示的是兩個(gè)TextBox對(duì)象

Text對(duì)象TextBox類2.1.2對(duì)象的三要素----屬性、事件和方法1.屬性

:

作用是存放對(duì)象的數(shù)據(jù)，如不加設(shè)置，自動(dòng)使用默認(rèn)值。對(duì)象屬性的2種設(shè)置方法(以第一次課的例子為例）：（1）設(shè)計(jì)階段在屬性窗口直接設(shè)置屬性值，如:直接在text1的屬性窗口輸入其text的值為“歡迎學(xué)習(xí)VB!”直接在窗體form1的屬性窗口輸入其caption的值為“第一個(gè)VB程序”(2)在代碼窗口通過(guò)語(yǔ)句在程序運(yùn)行階段設(shè)置屬性值

<對(duì)象名>.<屬性名>=<屬性值>

如通過(guò)單擊”隱藏”按鈕，將text1的visibale屬性值設(shè)置為“false”Text1.visibale=false如通過(guò)單擊”顯示”按鈕，將text1的visibale屬性值設(shè)置為“true”Text1.visibale=true2.方法：指對(duì)象本身具有的能力，或功能。例如：文本框?qū)ο笥蟹椒⊿etFocus，通過(guò)該方法可以使文本框在程序運(yùn)行時(shí)得到焦點(diǎn)，方便操作，如輸入操作調(diào)用（執(zhí)行）對(duì)象的方法格式為： 對(duì)象.方法[參數(shù)名表]若省略對(duì)象，表示當(dāng)前對(duì)象，一般指窗體。例如：Text1.SetFocus,此語(yǔ)句使Text1控件獲得焦點(diǎn)，光標(biāo)在本文框內(nèi)閃爍。注意：對(duì)象的方法是固定的

2.1.2對(duì)象的屬性、方法、事件2.方法：例創(chuàng)建一個(gè)工程文件，界面如圖：程序一運(yùn)行時(shí)，光標(biāo)自動(dòng)定位到text1中；當(dāng)單擊command1,光標(biāo)定位到text2中；當(dāng)單擊command2,光標(biāo)定位到text3中；PrivateSubCommand1_Click()Text2.SetFocusEndSubPrivateSubCommand2_Click()Text3.SetFocusEndSub2.1.2對(duì)象的屬性、方法、事件3.事件：事件是發(fā)生在對(duì)象上的事情，如用鼠標(biāo)單擊命令按鈕時(shí)發(fā)生的事情稱為該命令按鈕的單擊事件。類似的，當(dāng)用鼠標(biāo)雙擊某個(gè)對(duì)象時(shí)發(fā)生的事情稱為該對(duì)象的雙擊事件，當(dāng)選中某個(gè)對(duì)象時(shí)按下鍵盤發(fā)生的事情稱為該對(duì)象的按下鍵盤事件(keypress),……VB中對(duì)象事件的特點(diǎn)：對(duì)象的事件是固定的，用戶不能建立新的事件。要對(duì)事件有所響應(yīng)，必須編寫事件過(guò)程（否則無(wú)響應(yīng)）同一事件，對(duì)不同的對(duì)象，會(huì)引發(fā)不同的反應(yīng)。2.1.2對(duì)象的屬性、方法和事件事件過(guò)程

對(duì)事件編寫的代碼，也就是應(yīng)用程序處理事件的步驟應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫事件過(guò)程的代碼。事件過(guò)程的形式如下：Sub對(duì)象名_事件(參數(shù))

… 事件過(guò)程代碼EndSub編寫事件過(guò)程代碼（VB程序設(shè)計(jì)的難點(diǎn)）注意：在代碼窗口，自動(dòng)產(chǎn)生事件過(guò)程的模板，不要修改模板的內(nèi)容，只需鍵入過(guò)程的代碼。例:單擊命令按鈕對(duì)象Command1,使Text1對(duì)象隱藏起來(lái)。SubCommand1_Click()

Text1.visible=falseEndSub模板自動(dòng)產(chǎn)生用戶編寫輸入事件過(guò)程VB程序的執(zhí)行步驟如下：①啟動(dòng)應(yīng)用程序，裝載和顯示窗體；②窗體(或窗體上的控件)等待事件的發(fā)生；③事件發(fā)生時(shí)，執(zhí)行對(duì)應(yīng)的事件過(guò)程；④重復(fù)執(zhí)行步驟②和③。這種按事件的發(fā)生決定程序執(zhí)行順序的方式稱為事件驅(qū)動(dòng)方式VB程序設(shè)計(jì)中的事件驅(qū)動(dòng)機(jī)制2.1.3對(duì)象的建立和編輯對(duì)象的建立單擊工具箱上的按鈕在窗體上拖拽適當(dāng)大小的矩形框?qū)ο蟮倪x定選定多個(gè)對(duì)象可借助于Ctrl或Shift對(duì)象的復(fù)制和刪除復(fù)制

“粘貼”(否)對(duì)象的命名Name(名稱)屬性，必須以字母或漢字開頭2.1.3最常用對(duì)象的使用對(duì)象屬性方法事件窗體caption標(biāo)題

標(biāo)簽caption標(biāo)題文本框text文本內(nèi)容命令按鈕caption標(biāo)題click單擊第2章VB快速入門2.1對(duì)象的概念2.2窗體的概念2.3控件的概念2.4如何編寫簡(jiǎn)單的應(yīng)用程序在VB中，窗體是最重要的對(duì)象，是構(gòu)成應(yīng)用程序的用戶界面的基本模塊，是所有控件的容器。我們可以把窗體看做是一塊畫布，，可以根據(jù)自己的需要利用工具箱上的控件在畫布上畫界面。窗體也是對(duì)象，屬于窗體類。有屬性、方法和事件2.2窗體的概念2.2窗體的概念2.2.1窗體的主要屬性：(1)Name

名稱屬性：所創(chuàng)建的對(duì)象名稱，在程序中引用。（運(yùn)行時(shí)不可改）(2)Caption

標(biāo)題屬性該屬性決定了（窗體）對(duì)象上顯示的標(biāo)題內(nèi)容。(3)Height、Width屬性決定（窗體）對(duì)象的高度、寬度。(4)Picture

屬性：用來(lái)設(shè)置窗體的背景圖片：如果要顯示的圖片如2.jpg已經(jīng)保存在d:\下，則Form1.Picture=LoadPicture("d:\2.jpg")如果要顯示的圖片如2.jpg已經(jīng)保存在與程序相同的文件夾中，則Form1.Picture=LoadPicture(App.Path+"\2.jpg")如果要去掉圖片，則：Form1.Picture=LoadPicture()

2.2.1窗體的主要屬性(5)BackColor屬性：用于設(shè)置窗體的背景顏色(6)MaxButton和MinButton屬性：決定窗體的標(biāo)題欄是否具有最大最小化按鈕值為True或False2.2.1窗體的主要屬性(8)BorderStyle屬性用于設(shè)置窗體邊框形式，值為0～5，默認(rèn)值為2(9)WindowState

屬性用于設(shè)置窗體啟動(dòng)時(shí)的狀態(tài)，有3種形式：0——Normal：正常顯示(默認(rèn)值)1——Maxmized：最大化顯示2——Minimized：最小化顯示2.2.2窗體的常用事件常用的事件Click：?jiǎn)螕?；DblClick：雙擊；Load：是在窗體被裝入工作區(qū)時(shí)觸發(fā)的事件。當(dāng)應(yīng)用程序啟動(dòng)，自動(dòng)執(zhí)行該事件，該事件通常用來(lái)在啟動(dòng)應(yīng)用程序時(shí)對(duì)屬性和變量進(jìn)行初始化。Unload：在窗體退出時(shí)產(chǎn)生，主要是關(guān)閉已打開的文件等。窗體常用屬性使用舉例例:設(shè)計(jì)一個(gè)窗體,要求:1、窗體的標(biāo)題為：窗體屬性舉例2、在設(shè)計(jì)階段窗體的背景是1.jpg,而當(dāng)運(yùn)行時(shí)顯示的是2.jpg2.當(dāng)單擊窗體時(shí)，每單擊一次，窗體的高和寬都在原來(lái)的基礎(chǔ)上減少200緹3.窗體沒(méi)有最大化、最小化按鈕設(shè)計(jì)思路：1、在屬性窗口設(shè)置form1的caption為窗體屬性舉例，picture為1.jpg2、編寫窗體的load事件，使在窗體裝載顯示時(shí)顯示2.jpgPrivateSubForm_Load()Form1.Picture=LoadPicture(App.Path+"\2.jpg")EndSub3、編寫窗體的單擊事件程序PrivateSubForm_Click()Form1.Height=Form1.Height-500Form1.Width=Form1.Width-500EndSub4、在屬性窗口設(shè)置maxbutton、minbutton為false2.2.3窗體的常用方法使用方法的語(yǔ)法形式：

對(duì)象.方法

[參數(shù)列表]2.2.3窗體的常用方法Print方法：在窗體上顯示文本Cls方法：用于清除程序運(yùn)行時(shí)在窗體（或圖形框）中產(chǎn)生的文本或圖形,但注意cls方法不能清除窗體在設(shè)計(jì)時(shí)的文本和圖形例如：PrivateSubCommand1_Click()

Form1.Print"你好！"EndSubPrivateSubCommand2_Click()Form1.ClsEndSub

窗體的Print方法

Print方法使用說(shuō)明：一個(gè)Print方法輸出一行；因此，如果要輸出一個(gè)空行，語(yǔ)句為：

form1.print當(dāng)需要在一行輸出多個(gè)值時(shí)，用;或，分開：;

表示緊接著顯示；，表示在同一行的下一個(gè)位置顯示

PrivateSubCommand1_Click()Form1.Print"張三豐收蘋果"Form1.PrintForm1.Print"張三","豐收","蘋果"Form1.PrintForm1.Print"張三";"豐收";"蘋果"EndSubPrivateSubCommand2_Click()Form1.ClsEndSub

窗體的Print方法舉例

注意問(wèn)題：當(dāng)在窗體的load事件中需要調(diào)用Print方法時(shí)，必須預(yù)先把窗體的autoredraw屬性設(shè)置為true,否則，無(wú)效。PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"張三豐收蘋果"Form1.PrintForm1.Print"張三","豐收","蘋果"Form1.PrintForm1.Print"張三";"豐收";"蘋果"EndSub注意問(wèn)題：如果需要設(shè)置所顯示的文字的字體、字號(hào)、字的顏色，可在使用窗體的print方法之前進(jìn)行有關(guān)屬性的設(shè)置。例如：PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.FontName="隸書"Form1.FontSize=20Form1.ForeColor=vbRedForm1.Print"張三豐收蘋果"Form1.PrintForm1.Print"張三","豐收","蘋果"Form1.PrintForm1.Print"張三";"豐收";"蘋果"EndSub第2章VB快速入門2.1對(duì)象的概念2.2窗體的概念2.3控件的概念2.4如何編寫簡(jiǎn)單的應(yīng)用程序2.3控件的概念2.3.1控件的概念控件是構(gòu)成窗體的基本元素，用于接收和顯示數(shù)據(jù)信息?？丶煞譃槿悾簶?biāo)準(zhǔn)控件ActiveX控件可插入對(duì)象2.3.2控件對(duì)象的建立和編輯控件的建立：?jiǎn)螕艄ぞ呦渖系陌粹o，在窗體上拖拽適當(dāng)大小的矩形框控件的選定單擊對(duì)象選定。要選定窗體，在窗體空白處單擊選定多個(gè)對(duì)象可借助于Ctrl或Shift控件的刪除單擊對(duì)象選定。按del2.3.3常用基本控件最重要、最基本的三個(gè)控件：1.標(biāo)簽2.命令按鈕2.文本框2.3.4常用基本控件1——標(biāo)簽功能：用來(lái)顯示文本，所顯示的文本一般用做提示信息。1.常用屬性(1)Name

編程時(shí)引用，默認(rèn)為L(zhǎng)abel1，默認(rèn)為L(zhǎng)abel2，默認(rèn)為L(zhǎng)abel3，……(2)Caption設(shè)置標(biāo)簽中要顯示的文字(3)AutoSize

是否自動(dòng)根據(jù)需要決定標(biāo)簽大小，取值為True和False。(4)FontName

設(shè)置標(biāo)簽中文本的字體。如宋體、隸書、……(5)FontSize

設(shè)置標(biāo)簽中文本的字體大小。如14磅，20磅，……(6)ForeColor

設(shè)置標(biāo)簽中文本的顏色,顏色可以用rgb（）函數(shù)表示或用vb常量表示，如vbRed。（7）BackColor

設(shè)置標(biāo)簽的背景顏色2.3.4常用基本控件1——標(biāo)簽功能：用來(lái)顯示文本，所顯示的文本一般用做提示信息。2.事件 標(biāo)簽也有很多事件，但對(duì)標(biāo)簽控件很少使用事件，有時(shí)會(huì)用到接收Click和DblClick事件。2.3.4常用基本控件1——標(biāo)簽例:標(biāo)簽常用屬性設(shè)置方法一：在設(shè)計(jì)模式下通過(guò)屬性窗口直接設(shè)置：如：Label1Caption：山東工商學(xué)院ForeColor：紅色Font:字號(hào)：20字體：隸書字形：粗體

‘FontBold是否粗體

斜體‘FontItalic是否斜體背景色BackColor：黃色二者等價(jià)2.3.4常用基本控件1——標(biāo)簽例:標(biāo)簽常用屬性設(shè)置方法二：通過(guò)代碼窗口設(shè)置，如Label2Label2.Caption=“山東工商學(xué)院"Label2.ForeColor=vbRedLabel2.ForeColor=RGB(255,0,0)Label2.FontSize=20Label2.FontName="隸書"Label2.FontBold=True‘FontBold是否粗體Label2.FontItalic=True‘FontItalic是否斜體Label2.BackColor=vbYellow二者等價(jià)注意2種設(shè)置方法的不同：關(guān)于RGB()函數(shù)的使用語(yǔ)法：RGB(red,green,blue)參數(shù)：red、green、blue的取值范圍從0到255，分別表示紅色、綠色和藍(lán)色的成份。說(shuō)明：RGB函數(shù)可以產(chǎn)生256＊256＊256種不同的顏色。任何需要得到顏色的屬性都可以通過(guò)RGB函數(shù)設(shè)置。下表顯示一些常見的標(biāo)準(zhǔn)顏色，以及這些顏色的紅、綠、藍(lán)三原色的成份。各種常見色的RGB函數(shù)參數(shù)值顏色紅色值綠色值藍(lán)色值黑色000藍(lán)色00255綠色02550紅色25500紫色2550255黃色2552550白色255255255VB中常用表示顏色的常數(shù)（常量）vbBlack黑色vbRed紅色vbGreen綠色vbYellow黃色vbBlue藍(lán)色vbMagenta紫紅色vbCyan青色vbWhite白色推薦使用!例標(biāo)簽屬性效果實(shí)例標(biāo)簽的其它屬性：（直接演示說(shuō)明）1、Alignment文本在標(biāo)簽中的對(duì)齊方式0----leftjustify左對(duì)齊1----rightjustify右對(duì)齊2----center居中對(duì)齊2、borderstyle標(biāo)簽有無(wú)邊界

0----none默認(rèn)值無(wú)邊界1----fixedsingle有固定邊界本章第2次課2.3.3常用基本控件2——命令按鈕最重要的屬性、事件1.屬性(1)Name

編程時(shí)引用，默認(rèn)為Command1，Command2，Command3，……(2)Caption命令按鈕上顯示的文字2.事件 命令按鈕一般接收Click事件2.3.3常用基本控件2——命令按鈕其它常用屬性(3)Style

按鈕樣式

0——Standard：默認(rèn)，按鈕上不能顯示圖形

1——Graphical：按鈕上可以顯示圖形和文字(4)Picture

在按鈕裝入圖形，當(dāng)Style=1時(shí)才能用Enabled

是否有效truefalseVisible是否可見設(shè)置命令按鈕顯示圖片的步驟：1、Style

設(shè)置為12、Picture設(shè)置要顯示的圖片文件命令按鈕使用舉例設(shè)計(jì)運(yùn)行時(shí)如圖所示程序：1.創(chuàng)建對(duì)象（略）2.設(shè)置命令按鈕顯示圖片的步驟：(1)

Style

設(shè)置為1(2)Picture

設(shè)置要顯示的圖片文件3.編寫各個(gè)事件程序程序運(yùn)行時(shí)單擊各個(gè)按鈕的結(jié)果圖示各事件程序PrivateSubCommand1_Click()Form1.FontSize=40Form1.Print"你好！"EndSubPrivateSubCommand2_Click()Form1.ClsEndSubPrivateSubCommand3_Click()Command1.Enabled=FalseEndSubPrivateSubCommand4_Click()Command2.Visible=FalseEndSub2.3.3常用基本控件2——命令按鈕命令按鈕的快捷鍵設(shè)置：在命令按鈕的caption中設(shè)置，例如確定(&O)2.3.5常用基本控件3——文本框文本框是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。1.重要屬性最重要的屬性：Text：顯示或輸入的文本內(nèi)容例：編寫一個(gè)簡(jiǎn)單加法計(jì)算器的程序。計(jì)算機(jī)基礎(chǔ)教學(xué)部文本框的基本使用例---text屬性的使用

例：編寫一個(gè)簡(jiǎn)單加法計(jì)算器的程序。

其中,文本框作為一個(gè)數(shù)據(jù)輸入控件來(lái)使用。本章目錄計(jì)算機(jī)基礎(chǔ)教學(xué)部設(shè)計(jì)思路：1.建立用戶界面的對(duì)象

輸入，使用文本框TextBox;

提示，使用標(biāo)簽Label; 運(yùn)算，使用按鈕Command。2.設(shè)置對(duì)象的屬性

設(shè)置提示文字、字體、大小等3.編寫Command的Click事件執(zhí)行處理。4.運(yùn)行并保存程序?qū)ο髮傩悦Q屬性值Form1Caption簡(jiǎn)單計(jì)算器

Label1

caption第一個(gè)數(shù)Label2Caption第二個(gè)數(shù)Label3Caption計(jì)算結(jié)果Label4Caption+Label5Caption=Text1Text空Text2Text空Text3Text空Command3Caption清空Command4Caption計(jì)算Command5Caption結(jié)束2.設(shè)置對(duì)象的屬性3.編寫各個(gè)命令按鈕的Click事件程序PrivateSubCommand1_Click()Text1.text=""Text2.text=""Text3.text=""EndSubPrivateSubCommand2_Click()Text3.text=Val(Text1.text)+Val(Text2.text)EndSubPrivateSubCommand3_Click()EndEndSub2.3.5常用基本控件3——文本框文本框是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。1.其它重要屬性(2)Maxlength：設(shè)置文本框可輸入的文字最大長(zhǎng)度。默認(rèn)值為0，表示可以輸入任意長(zhǎng)字符串注意：在VB中字符長(zhǎng)度以字為單位，即一個(gè)西文字符與一個(gè)漢字都是一個(gè)字，長(zhǎng)度為1。(3)PassWordChar

設(shè)置程序運(yùn)行時(shí)，當(dāng)用戶向文本框中輸入文本時(shí)顯示的符號(hào)（口令域）。默認(rèn)取值為空，此時(shí)顯示正常文本；常設(shè)置為取值為“*”，此時(shí)無(wú)論輸入什么都顯示“*”。也可設(shè)置為其它符號(hào)，如#，@，……，意義同*(3)MultiLine

設(shè)置文本框是否多行顯示True：文本框可以輸入或顯示多行正文。False：（默認(rèn)）僅顯示一行。(4)ScrollBars

設(shè)置文本框是否具有滾動(dòng)條

0—None（默認(rèn)）無(wú)滾動(dòng)條

1—Horizontal水平滾動(dòng)條

2—Vertical垂直滾動(dòng)條

3—Both同時(shí)加水平和垂直滾動(dòng)條注意：當(dāng)MultiLine為True時(shí)，ScrollBars才有效2.3.5常用基本控件3——文本框（1）KeyPress事件：

按下并且釋放鍵盤上的一個(gè)鍵時(shí)，引發(fā)焦點(diǎn)所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中PrivateSubText1_KeyPress(KeyAsciiAsInteger)……EndSub在程序設(shè)計(jì)中常用于根據(jù)按下的鍵不同，程序要做不同的事。特別是常見于對(duì)回車鍵的判斷，回車鍵的KeyAscii=13，根據(jù)keyascll的值是否是13，決定下一步做什么

xx2.文本框的常用事件：例：在文本框中輸入鍵盤上的任意一個(gè)鍵，程序在窗體上輸出“你按下的是ascll碼為:xx的鍵比如：在程序運(yùn)行時(shí)在文本框中依次輸入abcd回車鍵，結(jié)果如圖示PrivateSubText1_KeyPress(KeyAsciiAsInteger)Form1.Print"你按下的是ascll碼為:";KeyAscii;"鍵"EndSub

xxKeyPress事件：這里只是說(shuō)明一下這個(gè)事件程序的含義，在以后的學(xué)習(xí)中，會(huì)介紹在實(shí)用程序中如何使用keypress

(2)Changed事件：當(dāng)Text屬性值發(fā)生改變時(shí)引發(fā)該事件例如：編寫程序，當(dāng)在文本框中輸入一個(gè)字時(shí)在窗體上就顯示文本框的內(nèi)容PrivateSubText1_Change()Form1.PrintText1.TextEndSub

2.文本框的常用事件：

(3)LostFocus事件對(duì)象失去焦點(diǎn)時(shí)發(fā)生LostFocus事件該事件主要是用來(lái)對(duì)數(shù)據(jù)進(jìn)行驗(yàn)證和確認(rèn)，常用于檢查Text屬性的內(nèi)容是否符合要求。(4)GotFocus事件當(dāng)一個(gè)對(duì)象獲得焦點(diǎn)時(shí)發(fā)生的事件

2.文本框的常用事件：文本框最有用的方法是SetFocus，把光標(biāo)移到指定的文本框中。其形式如下：對(duì)象名.SetFocus3.文本框的常用方法：LostFocus事件、

GotFocus事件、

SetFocus方法經(jīng)常用于對(duì)輸入數(shù)據(jù)進(jìn)行合法性檢驗(yàn)，過(guò)濾不合法的數(shù)據(jù)LostFocus事件、

GotFocus事件、

SetFocus方法使用舉例例：程序設(shè)計(jì)時(shí)界面如圖，要求：1.當(dāng)在text1中輸入數(shù)據(jù)后，如果數(shù)據(jù)不在0-100之間，要求自動(dòng)清除text1中的數(shù)據(jù)，并把焦點(diǎn)重新設(shè)置在text1中，且在窗體中輸出出錯(cuò)信息："數(shù)學(xué)成績(jī)輸入錯(cuò)誤(應(yīng)在0-100之間)，重新輸入！"2.當(dāng)在text2中輸入數(shù)據(jù)后，如果數(shù)據(jù)不在0-100之間，要求自動(dòng)清除text2中的數(shù)據(jù)，并把焦點(diǎn)重新設(shè)置在text2中，且在窗體中輸出出錯(cuò)信息：“語(yǔ)文成績(jī)輸入錯(cuò)誤(應(yīng)在0-100之間)，重新輸入！"3.當(dāng)text3獲得焦點(diǎn)時(shí)，就在text3中顯示平均成績(jī)當(dāng)text1失去焦點(diǎn)時(shí)發(fā)生的事PrivateSubText1_LostFocus()

Dima%a=Val(Text1.Text)Ifa<0Ora>100ThenForm1.Print"數(shù)學(xué)成績(jī)輸入錯(cuò)誤(應(yīng)在0-100之間)，重新輸入！"Text1.Text=""

Text1.SetFocusEndIf

EndSub當(dāng)text2失去焦點(diǎn)時(shí)發(fā)生的事PrivateSubText2_LostFocus()

Dima%a=Val(Text2.Text)Ifa<0Ora>100ThenForm1.ClsForm1.Print"語(yǔ)文成績(jī)輸入錯(cuò)誤(應(yīng)在0-100之間)，重新輸入！"Text2.Text=""

Text2.SetFocusEndIfEndSub當(dāng)text3獲得焦點(diǎn)時(shí)發(fā)生的事PrivateSubText3_GotFocus()Dima%,b%,c!a=Val(Text1.Text)b=Val(Text2.Text)c=(a+b)/2Text3.Text=cEndSub4.文本框有關(guān)選中復(fù)制的屬性：SelText屬性：文本框中選中的文本SelStart屬性設(shè)置選中文本開始位置，第1個(gè)字符位置是0SelLength屬性設(shè)置選中的文本長(zhǎng)度這3個(gè)屬性互相關(guān)聯(lián),例如設(shè)置SelStart、SelLength后，SelText自動(dòng)存放指定的文本。2.3.5常用基本控件3——文本框PrivateSubCommand1_Click()Form1.Print"選中的文本是：";Text1.SelTextEndSubPrivateSubCommand2_Click()Form1.Print"選中的文本開始位置是：";Text1.SelStartEndSubPrivateSubCommand3_Click()Form1.Print"選中的文本的長(zhǎng)度是：";Text1.SelLengthEndSub選中的文字例：程序運(yùn)行時(shí)如圖要求如下：①窗體界面如圖所示，左側(cè)文本框內(nèi)容在設(shè)計(jì)時(shí)輸入，而非運(yùn)行時(shí)輸入；②運(yùn)行時(shí)，當(dāng)單擊“隸書16磅”按鈕，左側(cè)文本框字體格式隨之變化；效果如圖所示；③單擊“復(fù)制”按鈕，會(huì)把左側(cè)框內(nèi)選中的文本復(fù)制到右側(cè)文本框中，如圖；單擊“剪切”按鈕，會(huì)把左側(cè)框內(nèi)選中的文本移動(dòng)到右側(cè)文本框中，如圖所示。注意：無(wú)論是復(fù)制還是剪切，都把新文本粘貼在Text2原有文本的后面。例如本例中，在左側(cè)選中“世界”后復(fù)制到右側(cè)文本框中，然后再選中“天堂”，單擊“剪切”按鈕，右側(cè)文本框中的內(nèi)容就變?yōu)椤笆澜缣焯谩?。文本框?yīng)用舉例：設(shè)計(jì)一個(gè)簡(jiǎn)單的文本編輯器

文本框舉例：設(shè)計(jì)一個(gè)簡(jiǎn)單的文本編輯器

PrivateSubCommand1_Click()Text2.Text=Text1.SelTextEndSubPrivateSubCommand2_Click()Text2.Text=Text1.SelTextText1.SelText=""EndSubPrivateSubCommand3_Click()Text1.FontName="隸書"Text1.FontSize=16