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

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

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

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

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

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

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

:

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

<對象名>.<屬性名>=<屬性值>

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

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

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

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

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

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

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

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

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

屬性：用來設(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屬性：決定窗體的標題欄是否具有最大最小化按鈕值為True或False2.2.1窗體的主要屬性(8)BorderStyle屬性用于設(shè)置窗體邊框形式，值為0～5，默認值為2(9)WindowState

屬性用于設(shè)置窗體啟動時的狀態(tài)，有3種形式：0——Normal：正常顯示(默認值)1——Maxmized：最大化顯示2——Minimized：最小化顯示2.2.2窗體的常用事件常用的事件Click：單擊；DblClick：雙擊；Load：是在窗體被裝入工作區(qū)時觸發(fā)的事件。當應(yīng)用程序啟動，自動執(zhí)行該事件，該事件通常用來在啟動應(yīng)用程序時對屬性和變量進行初始化。Unload：在窗體退出時產(chǎn)生，主要是關(guān)閉已打開的文件等。窗體常用屬性使用舉例例:設(shè)計一個窗體,要求:1、窗體的標題為：窗體屬性舉例2、在設(shè)計階段窗體的背景是1.jpg,而當運行時顯示的是2.jpg2.當單擊窗體時，每單擊一次，窗體的高和寬都在原來的基礎(chǔ)上減少200緹3.窗體沒有最大化、最小化按鈕設(shè)計思路：1、在屬性窗口設(shè)置form1的caption為窗體屬性舉例，picture為1.jpg2、編寫窗體的load事件，使在窗體裝載顯示時顯示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窗體的常用方法使用方法的語法形式：

對象.方法

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

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

窗體的Print方法

Print方法使用說明：一個Print方法輸出一行；因此，如果要輸出一個空行，語句為：

form1.print當需要在一行輸出多個值時，用;或，分開：;

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

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

窗體的Print方法舉例

注意問題：當在窗體的load事件中需要調(diào)用Print方法時，必須預(yù)先把窗體的autoredraw屬性設(shè)置為true,否則，無效。PrivateSubForm_Load()Form1.AutoRedraw=TrueForm1.Print"張三豐收蘋果"Form1.PrintForm1.Print"張三","豐收","蘋果"Form1.PrintForm1.Print"張三";"豐收";"蘋果"EndSub注意問題：如果需要設(shè)置所顯示的文字的字體、字號、字的顏色，可在使用窗體的print方法之前進行有關(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對象的概念2.2窗體的概念2.3控件的概念2.4如何編寫簡單的應(yīng)用程序2.3控件的概念2.3.1控件的概念控件是構(gòu)成窗體的基本元素，用于接收和顯示數(shù)據(jù)信息?？丶煞譃槿悾簶藴士丶嗀ctiveX控件可插入對象2.3.2控件對象的建立和編輯控件的建立：單擊工具箱上的按鈕，在窗體上拖拽適當大小的矩形框控件的選定單擊對象選定。要選定窗體，在窗體空白處單擊選定多個對象可借助于Ctrl或Shift控件的刪除單擊對象選定。按del2.3.3常用基本控件最重要、最基本的三個控件：1.標簽2.命令按鈕2.文本框2.3.4常用基本控件1——標簽功能：用來顯示文本，所顯示的文本一般用做提示信息。1.常用屬性(1)Name

編程時引用，默認為Label1，默認為Label2，默認為Label3，……(2)Caption設(shè)置標簽中要顯示的文字(3)AutoSize

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

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

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

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

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

‘FontBold是否粗體

斜體‘FontItalic是否斜體背景色BackColor：黃色二者等價2.3.4常用基本控件1——標簽例:標簽常用屬性設(shè)置方法二：通過代碼窗口設(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二者等價注意2種設(shè)置方法的不同：關(guān)于RGB()函數(shù)的使用語法：RGB(red,green,blue)參數(shù)：red、green、blue的取值范圍從0到255，分別表示紅色、綠色和藍色的成份。說明：RGB函數(shù)可以產(chǎn)生256＊256＊256種不同的顏色。任何需要得到顏色的屬性都可以通過RGB函數(shù)設(shè)置。下表顯示一些常見的標準顏色，以及這些顏色的紅、綠、藍三原色的成份。各種常見色的RGB函數(shù)參數(shù)值顏色紅色值綠色值藍色值黑色000藍色00255綠色02550紅色25500紫色2550255黃色2552550白色255255255VB中常用表示顏色的常數(shù)（常量）vbBlack黑色vbRed紅色vbGreen綠色vbYellow黃色vbBlue藍色vbMagenta紫紅色vbCyan青色vbWhite白色推薦使用!例標簽屬性效果實例標簽的其它屬性：（直接演示說明）1、Alignment文本在標簽中的對齊方式0----leftjustify左對齊1----rightjustify右對齊2----center居中對齊2、borderstyle標簽有無邊界

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

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

按鈕樣式

0——Standard：默認，按鈕上不能顯示圖形

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

在按鈕裝入圖形，當Style=1時才能用Enabled

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

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

Style

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

設(shè)置要顯示的圖片文件3.編寫各個事件程序程序運行時單擊各個按鈕的結(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——文本框文本框是一個文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。1.重要屬性最重要的屬性：Text：顯示或輸入的文本內(nèi)容例：編寫一個簡單加法計算器的程序。計算機基礎(chǔ)教學(xué)部文本框的基本使用例---text屬性的使用

例：編寫一個簡單加法計算器的程序。

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

輸入，使用文本框TextBox;

提示，使用標簽Label; 運算，使用按鈕Command。2.設(shè)置對象的屬性

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

Label1

caption第一個數(shù)Label2Caption第二個數(shù)Label3Caption計算結(jié)果Label4Caption+Label5Caption=Text1Text空Text2Text空Text3Text空Command3Caption清空Command4Caption計算Command5Caption結(jié)束2.設(shè)置對象的屬性3.編寫各個命令按鈕的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——文本框文本框是一個文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。1.其它重要屬性(2)Maxlength：設(shè)置文本框可輸入的文字最大長度。默認值為0，表示可以輸入任意長字符串注意：在VB中字符長度以字為單位，即一個西文字符與一個漢字都是一個字，長度為1。(3)PassWordChar

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

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

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

0—None（默認）無滾動條

1—Horizontal水平滾動條

2—Vertical垂直滾動條

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

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

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

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

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

2.文本框的常用事件：

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

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

GotFocus事件、

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

GotFocus事件、

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

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

Text1.SetFocusEndIf

EndSub當text2失去焦點時發(fā)生的事PrivateSubText2_LostFocus()

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

Text2.SetFocusEndIfEndSub當text3獲得焦點時發(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個字符位置是0SelLength屬性設(shè)置選中的文本長度這3個屬性互相關(guān)聯(lián),例如設(shè)置SelStart、SelLength后，SelText自動存放指定的文本。2.3.5常用基本控件3——文本框PrivateSubCommand1_Click()Form1.Print"選中的文本是：";Text1.SelTextEndSubPrivateSubCommand2_Click()Form1.Print"選中的文本開始位置是：";Text1.SelStartEndSubPrivateSubCommand3_Click()Form1.Print"選中的文本的長度是：";Text1.SelLengthEndSub選中的文字例：程序運行時如圖要求如下：①窗體界面如圖所示，左側(cè)文本框內(nèi)容在設(shè)計時輸入，而非運行時輸入；②運行時，當單擊“隸書16磅”按鈕，左側(cè)文本框字體格式隨之變化；效果如圖所示；③單擊“復(fù)制”按鈕，會把左側(cè)框內(nèi)選中的文本復(fù)制到右側(cè)文本框中，如圖；單擊“剪切”按鈕，會把左側(cè)框內(nèi)選中的文本移動到右側(cè)文本框中，如圖所示。注意：無論是復(fù)制還是剪切，都把新文本粘貼在Text2原有文本的后面。例如本例中，在左側(cè)選中“世界”后復(fù)制到右側(cè)文本框中，然后再選中“天堂”，單擊“剪切”按鈕，右側(cè)文本框中的內(nèi)容就變?yōu)椤笆澜缣焯谩薄Ｎ谋究驊?yīng)用舉例：設(shè)計一個簡單的文本編輯器

文本框舉例：設(shè)計一個簡單的文本編輯器

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