1、二.VB簡(jiǎn)介VB是面向?qū)ο蟪绦蛟O(shè)計(jì)方法的高級(jí)語(yǔ)言。它采用事件驅(qū)動(dòng)機(jī)制編寫程序，一般只要在對(duì)象事件過(guò)程中填寫程序代碼?？梢跃帉懱幚砦谋?、圖形、圖像、音頻、視頻動(dòng)畫等媒體數(shù)據(jù)達(dá)到不同需求的應(yīng)用程序。1.控件：類在VB中稱為控件，它包含了某類對(duì)象的定義代碼、使用接口及圖形，用它生成控件對(duì)象。2.控件文件：存放了多個(gè)控件的代碼。文件類型一般為ocx、dll。3.控件對(duì)象：用控件生成的具體對(duì)象，一個(gè)控件可以生成多個(gè)對(duì)象，這些對(duì)象有相同的屬性名和數(shù)據(jù)類型，但屬性值不同，在生成對(duì)象時(shí)會(huì)給每個(gè)對(duì)象分配不同的存儲(chǔ)空間；同類對(duì)象會(huì)產(chǎn)生同類事件和消息，但接受消息對(duì)象的事件過(guò)程不同。3.事件驅(qū)動(dòng)模型：在標(biāo)準(zhǔn)的VB程序

2、中，可能有多個(gè)窗口對(duì)象，窗口可以包含其它的對(duì)象。當(dāng)對(duì)象發(fā)生事件會(huì)給所有窗口發(fā)送消息，如果接受消息對(duì)象在窗口內(nèi)，窗口會(huì)執(zhí)行接受消息對(duì)象對(duì)應(yīng)的事件過(guò)程。4.變量：表示存儲(chǔ)單元。5.對(duì)象屬性表示：對(duì)象名.屬性名6.對(duì)象事件表示：對(duì)象名_事件名三.VB集成開發(fā)環(huán)境(IDE) IDE提供VB程序設(shè)計(jì)時(shí)窗口布局界面、程序代碼、項(xiàng)目資源管理、對(duì)象控件屬性設(shè)置和有關(guān)編程工具等，是進(jìn)行VB編程的有好環(huán)境。1.IDE界面說(shuō)明 IDE的啟動(dòng)： “開始|程序|Visual Basic 6.0|VB集成開發(fā)環(huán)境” 菜單工具欄控件工具箱工程資源管理窗屬性窗窗體啟動(dòng)布局窗體/代碼區(qū) 2.簡(jiǎn)單程序演示 1)新建工程：執(zhí)行“文

3、件|新建工程|標(biāo)準(zhǔn)EXE” 2)添加標(biāo)簽控件對(duì)象：在工具箱中點(diǎn)擊圖標(biāo) ，在窗體form1上拖動(dòng),生成標(biāo)簽控件對(duì)象Label1。 3)添加命令控件對(duì)象：在工具箱中點(diǎn)擊圖標(biāo) ，在窗體form1上拖動(dòng),生成命令控件對(duì)象Command1。 4)修改Label1的屬性：點(diǎn)擊Label1,在屬性窗中拖動(dòng)滑桿，見(jiàn)到Caption屬性后在右邊文本框中輸入中南大學(xué)。 5)修改Command1的屬性：點(diǎn)擊command1, 見(jiàn)到Caption屬性后在右邊文本框中輸入左移。 6)調(diào)整兩個(gè)對(duì)象的位置：點(diǎn)擊label1,拖動(dòng)該圖標(biāo)到右邊，點(diǎn)擊command1,拖動(dòng)該圖標(biāo)到中間。7)調(diào)整對(duì)象圖標(biāo)的大?。狐c(diǎn)擊圖標(biāo)，拖動(dòng)圖標(biāo)

4、周圍的調(diào)整柄。8)在窗體form1中添加Command1對(duì)象的Click事件過(guò)程：在工程管理窗中左上角，點(diǎn)擊查看代碼按紐 ，在窗體/代碼區(qū)見(jiàn)到form1代碼窗口;代碼窗體左上角對(duì)象下拉選擇框中選擇command1,在右上角過(guò)程選擇選擇框中選擇Click。在代碼窗口會(huì)顯示command1的click事件過(guò)程定義代碼：Private Sub Command1_Click() End Sub9)在上述過(guò)程定義之間添加Label1的移動(dòng)代碼： Label1.Left = Label1.Left 5010)執(zhí)行程序：“運(yùn)行|啟動(dòng)”11)在顯示的程序運(yùn)行窗體上不斷地點(diǎn)擊左移按鈕。12)關(guān)閉運(yùn)行程序：點(diǎn)擊運(yùn)

5、行的form1窗體右上角關(guān)閉按鈕。13)保存工程：“文件|工程另存為”14)更改工程名：在工程管理窗中右擊工程1,彈出菜單中選擇工程1屬性；在對(duì)話框中工程名稱文本框輸入移動(dòng)。15)生成exe程序文件：執(zhí)行“文件|生成移動(dòng).exe”，在對(duì)話框中選擇文件夾，按確定按鈕，打開該文件夾會(huì)見(jiàn)到移動(dòng).exe文件。16)在關(guān)閉IDE后，雙擊該文件可運(yùn)行程序。 3.屬性窗 當(dāng)點(diǎn)擊窗體對(duì)象或其上控件對(duì)象時(shí)屬性窗顯示該對(duì)象的屬性。四.VB中常用的幾個(gè)控件和屬性 1.窗體(form) 程序與用戶的交互界面。 1)添加和刪除窗體 在工程管理窗中； 右擊工程名，彈出菜單中選擇“添加|添加窗體|窗體|打開” 右擊窗體名，

6、彈出菜單中選擇移除 2)left、top屬性 窗體對(duì)象處入屏幕對(duì)象(screen)中，screen對(duì)象是容器，包容窗體對(duì)象。這兩個(gè)對(duì)象指出窗體在屏幕中的位置。Left指出窗體左上角點(diǎn)與screen左邊的距離；top指出窗體左上角點(diǎn)與screen上邊的距離；單位為像素。 3)窗體屬性保存文件 窗體有多個(gè)屬性，窗體上可有多個(gè)對(duì)象。當(dāng)對(duì)象生成時(shí)每個(gè)對(duì)象的屬性有默認(rèn)值，這些默認(rèn)值可不要保存，但設(shè)計(jì)時(shí)設(shè)置了某些對(duì)象屬性，對(duì)象修改屬性值保存在窗體文件中，每個(gè)窗體保存時(shí)會(huì)生成窗體文件，文件名為。內(nèi)容例子如下： VERSION 5.00Begin VB.Form Form1 Caption = Form1 C

7、lientHeight = 3150 ClientLeft = 60 ClientTop = 390 ClientWidth = 4680 LinkTopic = Form1 ScaleHeight = 3150 ScaleWidth = 4680 StartUpPosition = 3 窗口缺省 Begin VB.Label Label1 Caption = 例子 Height = 495 Left = 1200 TabIndex = 0 Top = 720 Width = 1335 EndEndAttribute VB_Name = Form1Attribute VB_GlobalName

8、Space = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False 在書列出該文件的內(nèi)容主要是說(shuō)明窗體上有那些對(duì)象，窗體對(duì)象和其上對(duì)象屬性有那些改變。在設(shè)計(jì)程序時(shí)生成這些對(duì)象，在屬性窗中設(shè)置這些屬性。在代碼窗中輸入定義代碼、過(guò)程定義框架和其中的代碼。4)Picture屬性 可以在窗體上裝入圖片。2.標(biāo)簽(Label)控件 標(biāo)簽對(duì)象可以顯示文字。該控件對(duì)象顯示的文字放在caption屬性中。 3.文本(TextBox)控件 可以輸入文本。輸入的文本放在Te

9、xt屬性中。4.PictureBox控件 該控件對(duì)象可以顯示圖片，但圖片不會(huì)隨對(duì)象大小縮放。圖片放在picture屬性中，可以把顯示圖片裝入該屬性。 PictureBox對(duì)象是一個(gè)容器，可以包容其它對(duì)象，也可以在對(duì)象上繪圖。5.Image控件 該控件對(duì)象可以顯示圖片，圖片放在picture屬性中。如果圖片隨對(duì)象大小縮放，應(yīng)把stretch屬性設(shè)置為true，或者該控件對(duì)象的大小隨圖片變化。 6.命令按鈕(CommandButton)控件 用于執(zhí)行某功能。該對(duì)象顯示的文字放在caption屬性中。 7.定時(shí)器(Timer)控件 該控件對(duì)象每隔一段時(shí)間發(fā)出定時(shí)消息。如需定時(shí)執(zhí)行的代碼可放入該事件過(guò)

10、程中。Interval屬性確定時(shí)間間距，單位為ms。Enable屬性為true表示發(fā)定時(shí)消息，為false不發(fā)定時(shí)消息。 8.窗體的load過(guò)程 當(dāng)窗體裝入內(nèi)存后會(huì)自動(dòng)執(zhí)行該過(guò)程，如果窗體為啟動(dòng)窗體，可把程序的初始代碼放入其中。 9.垂直滾動(dòng)條(VscrollBox)、水平滾動(dòng)條(HscrollBox) 通過(guò)該對(duì)象滾動(dòng)塊的滾動(dòng)可視化地獲得位置值。Max屬性為最大位置值，min為最小位置值。Value保存當(dāng)前滾動(dòng)塊的位置。當(dāng)滾動(dòng)條滾動(dòng)時(shí)會(huì)產(chǎn)生Scroll事件。10.常見(jiàn)的屬性 1)Left、top:控件對(duì)象在容器對(duì)象中的位置。 2)Width、Height：控件對(duì)象的寬度、高度。 3)scale

11、width、scaleheight：控件對(duì)象繪圖區(qū)的寬度和高度 widthHeightScalehHightScaleWidthtopleftxy(0,0)4)ScaleMode 決定坐標(biāo)的單位。缺省為緹(twin),1 twin=1/20 point(點(diǎn))，1點(diǎn)=1/72英寸，1 twin=1/1440英寸=1/567厘米。 1:twip 2:point 3:pixel(像素) 4:Character 5:inch 6:Millimeter(毫米) 7:Centimeter(厘米) 5)forecolor和backcolor屬性 前景色和背景色屬性。6)AutoSize ture:控件大小隨

12、圖像變 。False:不隨圖像變。 五.在圖片上平滑移動(dòng)文字見(jiàn)書p287六.常用的方法和事件 1)MouseMove事件 當(dāng)鼠標(biāo)在某個(gè)控件對(duì)象顯示區(qū)移動(dòng)時(shí)，對(duì)象發(fā)出該事件。事件過(guò)程定義形式如下：Privete sub 對(duì)象名_ MouseMove(Button As Integer,shift As Integer,X As single,Y As single)End SubX,Y表示當(dāng)前鼠標(biāo)指針的坐標(biāo)。Button:表示鼠標(biāo)移動(dòng)時(shí)鼠標(biāo)按鍵狀態(tài)。Button=0:沒(méi)有按鍵 Button=1:按下左鍵 Button=2:按下右鍵 Button=4:按下中間鍵Shift:表示鼠標(biāo)移動(dòng)時(shí)鍵盤按鍵狀

13、態(tài)。 Shift=1:按下鍵。 Shift=2:按下鍵。 Shift=4:按下鍵。 值可以組合如：shift=1+4=5 表示按下+ 2)MouseDown事件 當(dāng)鼠標(biāo)在某個(gè)控件對(duì)象顯示區(qū)按下鼠標(biāo)鍵時(shí)，對(duì)象發(fā)出該事件。事件過(guò)程定義形式如下：Privete sub 對(duì)象名_ MouseDown(Button As Integer,shift As Integer,X As single,Y As single)End Sub參數(shù)的含義與MouseMove相同。 3)Line 方法 在容器對(duì)象上畫直線。調(diào)用形式如下： 對(duì)象名.Line (SX,SY)-(X,Y),Color,B/BF (SX,SY

14、):起點(diǎn)坐標(biāo)。 (X,Y):終點(diǎn)坐標(biāo)。 color:顏色值。 函數(shù)GRB(red,green,blue)返回顏色值。 如：grb(255,64,32)返回值為 &H2040FF& 4)Activate事件 當(dāng)窗體成為當(dāng)前窗體時(shí)發(fā)出該事件。 5)Setfocus方法 使某個(gè)對(duì)象獲得焦點(diǎn)。形式如下： 對(duì)象名.Setfocus 6)非運(yùn)算not 使邏輯值為反。 paintnow=not paintnow 7)paint事件 當(dāng)窗體或其它容器對(duì)象顯示大小改變或重新顯示時(shí)發(fā)出該事件。表示形式如下： 對(duì)象名_paint8)Chang事件 當(dāng)控件對(duì)象的內(nèi)容發(fā)生改變時(shí)發(fā)出該事件。表示形式如下： 對(duì)象名_Change 七.常用的函數(shù) 1)inputbox函數(shù) 顯示對(duì)話框，輸入一個(gè)字符串,還回值為輸入的字串。調(diào)用形式如下： inputbo