第二講 VB面向?qū)ο缶幊袒A(chǔ)

VB的幾個(gè)概念對(duì)象(Object)：OOP中對(duì)象是即包含數(shù)據(jù)，又包含對(duì)數(shù)據(jù)進(jìn)行操作的方法；并將其封裝起來(lái)的一個(gè)邏輯實(shí)體。VB最主要的對(duì)象是窗體（Form）和控件（Control）屬性(Properties)：對(duì)象中封裝的數(shù)據(jù)或狀態(tài)對(duì)象屬性的設(shè)置：a.屬性窗口中設(shè)置

b.程序中用賦值語(yǔ)句設(shè)置方法(Method)：對(duì)象的操作或行為，用對(duì)象的代碼來(lái)實(shí)現(xiàn)事件(Event)：對(duì)象可識(shí)別的動(dòng)作，來(lái)自外部的刺激類(lèi)(Class)：用來(lái)創(chuàng)建對(duì)象的樣板，對(duì)象是類(lèi)的一個(gè)實(shí)例對(duì)象具有屬性,對(duì)事件的響應(yīng)和執(zhí)行方法Height（高度）Color（顏色）Diameter（直徑）Puncture（針扎）什么是對(duì)象Explode(爆炸)MakeNoise(發(fā)音)Deflate(漏氣)第二章面向?qū)ο缶幊袒A(chǔ)一、

對(duì)象和控件

1.對(duì)象的概念

對(duì)象是什么(類(lèi)和對(duì)象)

對(duì)象的命名

對(duì)象的屬性、方法

2.VB的控件

內(nèi)部控件和ActiveX控件二、VB控件屬性和方法

1.通用屬性

2.通用方法三、控件的事件

1.事件和事件過(guò)程

2.通用事件一、

對(duì)象和控件對(duì)象是什么（類(lèi)和對(duì)象）對(duì)象（Object）：對(duì)象就是既包含數(shù)據(jù)，又包含有對(duì)數(shù)據(jù)進(jìn)行操作的方法，并將其封裝起來(lái)的一個(gè)邏輯實(shí)體；開(kāi)發(fā)者為了把一些普通事物反映到計(jì)算機(jī)中，可把客觀事物的抽象成類(lèi)，類(lèi)(Class)：是創(chuàng)建對(duì)象實(shí)例的模板，是同種對(duì)象的集合于抽象，它包含了所創(chuàng)建對(duì)象的屬性描述和行為特征定義；對(duì)象被抽象成類(lèi)后包含三個(gè)方面，即屬性，方法和事件，類(lèi)是模板，而對(duì)象是以類(lèi)為模板創(chuàng)建出來(lái)的具體實(shí)例，類(lèi)和對(duì)象就像模具和成品關(guān)系例如：日常生活中的所有事物，如：人，動(dòng)物，抽象概念比如一個(gè)計(jì)數(shù)器，我們不再使用一個(gè)整型變量來(lái)表示，而是設(shè)計(jì)成一個(gè)計(jì)數(shù)器對(duì)象，Value是屬性，Init()、Dec()和Inc()分別為可執(zhí)行的三個(gè)操作。使用者可以通過(guò)三個(gè)操作完成計(jì)數(shù)功能，可以訪問(wèn)屬性獲取計(jì)數(shù)器當(dāng)前狀態(tài)。類(lèi)是模板，是靜態(tài)的定義，對(duì)象是具體的，動(dòng)態(tài)產(chǎn)生的實(shí)例什么是“類(lèi)”和“對(duì)象”O(jiān)bjBlueObjYellowObjRed內(nèi)存屬性方法事件高度顏色寬度針扎爆炸放氣ColorIDHeightwidth名字PunctuateexplodeDeflateBalloon文件或類(lèi)庫(kù)中傳統(tǒng)方法：過(guò)程語(yǔ)句,更符合計(jì)算機(jī)思維形態(tài)面向?qū)ο蠓椒ǎ焊咏祟?lèi)思維，將計(jì)算機(jī)世界也看成由客觀事物組成的世界，事物就是一個(gè)個(gè)對(duì)象。VB中的對(duì)象窗體(Form)：每一個(gè)窗體Form都是一個(gè)對(duì)象控件(Control)：窗體上的界面元素稱(chēng)為控件，比如一個(gè)命令按鈕、或一個(gè)文本框，他們都是對(duì)象部件(Component)：VB或Windows操作系統(tǒng)提供的類(lèi)庫(kù)，比如一個(gè)文件對(duì)象、一個(gè)數(shù)據(jù)庫(kù)對(duì)象、一個(gè)Word文檔對(duì)象等自定義對(duì)象(User-definedObject)：程序員可以自行設(shè)計(jì)一個(gè)類(lèi)，比如氣球、計(jì)數(shù)器對(duì)象、學(xué)生對(duì)象等為對(duì)象命名計(jì)算機(jī)中的對(duì)象需要名稱(chēng)來(lái)標(biāo)識(shí)，就象現(xiàn)實(shí)世界一樣，為了區(qū)分每個(gè)對(duì)象，需要為他們指定一個(gè)唯一的名稱(chēng)。對(duì)象的名稱(chēng)從哪里來(lái)：控件對(duì)象的名稱(chēng)：屬性窗口中的“名稱(chēng)”欄指定，最好采用匈牙利命名法（HungarianNotation）對(duì)象變量的名稱(chēng)：變量聲明時(shí)給定一個(gè)名稱(chēng)對(duì)象的屬性對(duì)象有不同的特征，特征就是屬性。每種屬性有屬性名稱(chēng)和特定對(duì)象的屬性值。比如姚明的身高為226cm獲取對(duì)象的屬性值：姚明.身高，或form1.Caption指定或修改對(duì)象的屬性值,兩種方法：

1》初始設(shè)置：在屬性窗口中

2》代碼中去動(dòng)態(tài)的設(shè)置：form1.Caption=“歡迎”注意：VB語(yǔ)法比其他程序設(shè)計(jì)語(yǔ)言更簡(jiǎn)單易用，其他語(yǔ)言設(shè)置屬性值可能會(huì)采取其他方法（比如只能通過(guò)提供的特定操作來(lái)設(shè)置某個(gè)屬性值，而不是普通的賦值語(yǔ)句）對(duì)象的方法對(duì)象可以完成的動(dòng)作：稱(chēng)為操作、方法或服務(wù)，因此需要將計(jì)算機(jī)對(duì)象看作為物理世界中有自主行為的個(gè)體。比如窗體可以移動(dòng)，就是一個(gè)move方法，如何移動(dòng)，就是該方法的參數(shù)，move(0,0)。事實(shí)上，方法就好比一個(gè)函數(shù)或過(guò)程。使用一個(gè)對(duì)象的方法：form1.move0,0通常對(duì)象的一些屬性的改變是通過(guò)對(duì)象方法來(lái)完成的，就像計(jì)數(shù)器的value屬性通過(guò)Init(),Inc()等方法改變。這是面向?qū)ο蠓椒ǖ囊粋€(gè)重要特性——封裝性（使用者不需要關(guān)心內(nèi)部是如何實(shí)現(xiàn)的）VB可視化對(duì)象——控件內(nèi)部標(biāo)準(zhǔn)控件：只要啟動(dòng)了vb開(kāi)發(fā)工具，就會(huì)在工具箱中看到它們ActiveX控件：一般以很多個(gè)*.ocx文件獨(dú)立存在，是對(duì)標(biāo)準(zhǔn)控件的擴(kuò)充，不會(huì)自動(dòng)顯示在工具箱中，需要用時(shí)利用菜單將對(duì)應(yīng)的文件加載到工程中。二、控件的屬性和方法（名稱(chēng)）屬性控件對(duì)象的名稱(chēng)，唯一標(biāo)識(shí)該控件，所有控件都有此屬性Height,Width,Left,Top屬性容器和控件的關(guān)系類(lèi)似紗包和豆的關(guān)系Left：返回或設(shè)置控件左邊與其容器左邊之間的距離Top：返回或設(shè)置控件頂部與其容器頂邊之間的距離Width：返回或設(shè)置控件的寬度Height：返回或設(shè)置控件的高度注意：這里所指的都是相對(duì)于容器的坐標(biāo)，而不是屏幕的絕對(duì)坐標(biāo)，它們的單位是Trip(緹，一厘米是567緹)VB控件通用屬性（1）ForeColor,BackColor屬性文字顏色和控件背景顏色(其他屬性會(huì)影響顏色效果)Label控件的BackStyle不能為0（透明模式）CommandButton控件的Style程序中可以設(shè)置顏色，有兩種方法：1）使用顏色常量vbBlack,vbBlue,vbGreen等，

form1.BackColor=vbBlue2）使用RGB(0,255,255)，紅、綠、藍(lán)，取值在0—255，如黃色為（255，255，0)

form1.BackColor=RGB(255,0,0)VB控件通用屬性（2）窗體和有文字的控件都有此屬性。屬性窗口設(shè)置字體：打開(kāi)字體對(duì)話框設(shè)置利用字體屬性在程序中設(shè)置FontName屬性Form1.FontName=“黑體”FontSize屬性Form1.FontSize=24FontBold屬性Form1.FontBold=TrueFontItalic、FontUnderline、FontStrikethruVB控件通用屬性（3）Font屬性（對(duì)象類(lèi)型屬性）窗體和有文字的控件都有此屬性該屬性本身又是一個(gè)獨(dú)立的字體對(duì)象，該對(duì)象有以下屬性Name：字體名稱(chēng)Size：字體大小Bold：是否加重(true/false)Underline：是否有下劃線(true/false)如：Form1.Font.Size=12VB控件通用屬性（4）一個(gè)控件都有一個(gè)屬性存放最重要數(shù)據(jù)，此屬性稱(chēng)為控件的值Caption屬性:標(biāo)題名屬性，F(xiàn)rame,Label,等控件有此屬性（文本是靜態(tài)的）Text屬性:文本屬性，Textbox,List,ComboBox等控件有此屬性（文本是動(dòng)態(tài)的）Value屬性：記錄控件的狀態(tài)，CommandButton，Checkbox和OptionButton，滾動(dòng)條控件中常使用控件的值有時(shí)也作為控件的缺省屬性，此時(shí)在代碼中書(shū)寫(xiě)時(shí)可以省略，比如：Form1.caption可以簡(jiǎn)寫(xiě)為Form1VB控件通用屬性（5）Parent屬性運(yùn)行時(shí)才會(huì)出現(xiàn)，返回控件的管理窗體Container屬性運(yùn)行時(shí)才會(huì)出現(xiàn)，返回控件的容器對(duì)象，也可以是窗體，也可以是容器對(duì)象?？梢宰鋈萜鞯目丶蠪orm,PictureBox,Frame等settxtStudentName.Container=picBasicVB控件通用屬性（6）Enabled屬性設(shè)置控件是否無(wú)效，即不可用，不響應(yīng)Visible屬性設(shè)置控件是否可見(jiàn)應(yīng)用程序通過(guò)改變上面兩個(gè)屬性的值可以控制界面輸入或輸出的可操作性和可見(jiàn)性，使用戶(hù)界面更易用VB控件通用屬性（7）焦點(diǎn)（Focus）：控件在運(yùn)行時(shí)被選中的狀態(tài)Tab鍵：在鍵盤(pán)上第三行的第一個(gè)按鍵。TabStop屬性具有輸入特性的控件有此屬性設(shè)置控件是否可以通過(guò)Tab鍵接受輸入焦點(diǎn)(true/false)TabIndex屬性設(shè)置Tab鍵的順序，該屬性決定控件在一個(gè)窗體中的輸入順序提示：使用熱鍵(快捷鍵)也是一種鍵盤(pán)操作方法,但TextBox等控件不支持熱鍵設(shè)置,可以使用Label控件的熱鍵+Label控件的TabIndex屬性幫助定位VB控件通用屬性（8）MousePointer屬性設(shè)置光標(biāo)停留在控件時(shí)的形狀光標(biāo)形狀為常量,如vbCross,vbArrow等MouseIcon屬性設(shè)置光標(biāo)停留在控件時(shí)的圖案只有當(dāng)MousePointer=vbCustom時(shí)才生效程序中設(shè)置使用LoadPicture來(lái)賦值 如: Text2.MousePointer=vbCustom Text2.MouseIcon=LoadPicture("c:\a.ico")VB控件通用屬性（9）BorderStyle

屬性設(shè)置控件的邊框類(lèi)型ToolTipText屬性設(shè)置光標(biāo)停留在控件時(shí)的提示文字VB控件通用屬性（10）窗體的定位坐標(biāo)：指窗口運(yùn)行時(shí)離屏幕右上角（0,0）的偏移坐標(biāo)Move方法移動(dòng)控件，或改變控件大小

MoveLeft,Top,Width,Height后三個(gè)參數(shù)是可省略的使用該方法比直接對(duì)屬性賦值效率要高SetFocus方法控件獲取輸入焦點(diǎn)，如txtName.SetFocus如果控件無(wú)效或不可視，使用該方法會(huì)出錯(cuò)VB控件通用方法（1）三、控件通用事件事件和事件過(guò)程事件：就是發(fā)生的事情，有外界的刺激（如鼠標(biāo)和鍵盤(pán)的輸入）也有內(nèi)部屬性的變化（如：時(shí)鐘的定時(shí)事件），或者說(shuō)是對(duì)象能夠識(shí)別的一個(gè)動(dòng)作或內(nèi)部狀態(tài)的改變。

VB事件：是VB預(yù)先定義好的，能被對(duì)象識(shí)別的，即發(fā)生在對(duì)象上的事情。事件過(guò)程：響應(yīng)事件時(shí)需要執(zhí)行的代碼；事件參數(shù)：記錄了事件發(fā)生時(shí)的狀態(tài)，尤其是事件產(chǎn)生的原因；例子：PrivatesubForm1_keyPress(KeyAsciiAsInteger)..Endsub過(guò)程代碼單擊和雙擊事件：Click和DblClick事件事件過(guò)程沒(méi)有參數(shù)最好不要為一個(gè)控件同時(shí)定義單擊和雙擊響應(yīng)在改變CheckBox或OptionButton的Value屬性時(shí)，系統(tǒng)會(huì)自動(dòng)引發(fā)該事件VB控件通用事件（1）鍵盤(pán)事件：KeyPress事件(有參數(shù))當(dāng)按下可打印字符鍵或控件鍵時(shí)，產(chǎn)生該事件，事件過(guò)程有參數(shù)，參數(shù)值為字符的Ascii值KeyDown和KeyUP事件（有參數(shù)）鍵盤(pán)中任意鍵只要按下，就產(chǎn)生KeyDown事件，松開(kāi)時(shí)產(chǎn)生KeyUp事件，有鍵值和控制鍵狀態(tài)兩個(gè)參數(shù)VB控件通用事件（2）鼠標(biāo)事件MouseMove事件當(dāng)鼠標(biāo)在控件上移動(dòng)時(shí)，引發(fā)該事件MouseDown和MouseUP事件鼠標(biāo)任何鍵按下和松開(kāi)會(huì)產(chǎn)生MouseDown和MouseUp時(shí)間上述事件都包含同樣的三個(gè)參數(shù)：鼠標(biāo)按鈕的狀態(tài)（左、中、右等）控制鍵的狀態(tài)（Shift、Ctrl、Alt）X、Y坐標(biāo)（不是屏幕絕對(duì)坐標(biāo)，而是相對(duì)當(dāng)前控件的坐標(biāo)）VB