第八章常用控件

第8章 常用控件II8.1圖片框和圖像框圖片框PictureBox控件作用:顯示圖片，也可作為其他控件的容器圖片框具有AutoSize屬性Autosize屬性

True圖形框自動(dòng)調(diào)整大小與圖片匹配

False圖形超過圖形框的部分將被剪裁掉2圖像框Image

使用方法與圖形框相同。圖像框占用更少的內(nèi)存，描繪得更快。圖像框內(nèi)不能存放其他控件Stretch屬性

False

圖像框自動(dòng)改變大小適應(yīng)其中的圖形

True

圖形根據(jù)圖像框的大小自動(dòng)調(diào)整尺寸例本例說明圖像框的Stretch屬性對(duì)加載的圖形的影響。

38.1.1圖片框和圖像框的屬性1.CurrentX和CurrentY屬性窗體位于屏幕上，而圖片框和圖像框位于窗體上，其坐標(biāo)的參考點(diǎn)是不同的。窗體位置使用以屏幕為參考點(diǎn)的絕對(duì)坐標(biāo)值；而圖片框和圖像框的位置使用的是以窗體位參考點(diǎn)的相對(duì)坐標(biāo)值。而圖片框和圖像框的位置使用的是以窗體位參考點(diǎn)的相對(duì)坐標(biāo)值。該屬性用來設(shè)置下一個(gè)輸出的水平（CurrentX）或垂直（CurrentY）坐標(biāo)。格式如下：[對(duì)象.]CurrentX[=X][對(duì)象.]CurrentY[=Y]例8-1：在窗體上添加一個(gè)圖片框，分別在窗體和圖片框內(nèi)顯示特定信息。PrivateSubForm_Click()'在圖片框中的打印

Picture1.ClsPicture1.Print"★"Picture1.PrintTab(10);"圖片框的第十打印位"Picture1.CurrentX=500Picture1.CurrentY=500Picture1.Print"◆"

'在窗體中的打印

ClsPrint"★"

PrintTab(10);"窗體的第十打印位"CurrentX=500CurrentY=500Print"◆"EndSub2．Picture屬性.bmp、.ico、.wmf、.jpg和.gif等在程序運(yùn)行時(shí)裝入圖形：圖形框/圖像框.Picture=LoadPicture(“圖形文件路徑和名稱

")刪除圖形框、圖像框中圖形，可用圖形框/圖像框.Picture=LoadPicture(“”)

8.1.1圖片框和圖像框的屬性8.1.2圖片框與圖像框的區(qū)別(1)圖片框控件可以作為其他控件的容器，圖像框則不可以。圖片框比圖像框更靈活，且適應(yīng)于動(dòng)態(tài)環(huán)境；而圖像框僅適合于靜態(tài)情況，(2)圖片框可以使用Print方法和繪畫語句，而圖像框只能使用picture屬性則不可以使用print方法。(3)圖像框比圖片框占用的內(nèi)存少，顯示速度快。(4)圖像框具有Stretch屬性，若Stretch屬性設(shè)置為True，則保持圖像框自身尺寸不變，通過擠壓或拉伸載入的圖片，使圖片裝滿圖像框，用此屬性可以實(shí)現(xiàn)圖像的放大和縮小。8.1.3圖片框和圖像框的事件圖片框常用的事件有Click、DblClick、Change、鼠標(biāo)事件和鍵盤事件，圖片框的方法與窗體幾乎相同，而圖像框沒有Change和鍵盤事件。8.1.4.圖片框的方法圖片框的方法常用的有Cls、Print方法和圖形方法等。用Cls方法可以清除Print、PSet、Line、Circle等方法在圖片框中輸出的文字和圖形信息，不能清除Picture屬性中的圖形，在圖片框中加載的圖片只能用不帶參數(shù)的LoadPicture函數(shù)清除。1.單選按鈕(OptionButton)

單選按鈕以組的形式出現(xiàn)，允許選擇一項(xiàng)。8.2單選按鈕、復(fù)選框和框架2.復(fù)選框(CheckBox)

8.2.1復(fù)選框和單選按鈕的屬性1.Value屬性單選按鈕：Value屬性表示單選按鈕的狀態(tài)：

True——被選定

False——未被選定復(fù)選按鈕:value屬性表示復(fù)選框的狀態(tài)：0——vbUnchecked未選定1——vbChecked被選定2——vbGrayed灰色，并顯示一個(gè)選中標(biāo)記。2.Style屬性設(shè)置控件的外觀是標(biāo)準(zhǔn)的文本樣式，還是圖形樣式

當(dāng)Style屬性值為1時(shí)，控件的Picture、DownPicture和DisabledPicture屬性有效

8.2.2復(fù)選框和單選按鈕的事件

單選按鈕和復(fù)選框的最常用事件是Click事件此時(shí)控件的value值會(huì)發(fā)生變化程序代碼分析（只分析除法，其它用法相同）PrivateSubOption4_Click()'除運(yùn)算

A=Val(Text1.Text)B=Val(Text2.Text)IfB<>0Then'判斷"操作數(shù)2"是否為0Text3.Text=A/BElseText3.Text="輸入操作數(shù)錯(cuò)"EndIfEndSub

例單選按鈕應(yīng)用示例。用戶界面如圖所示。用戶在“運(yùn)算數(shù)1”和“運(yùn)算數(shù)2”所對(duì)應(yīng)的文本框中輸入運(yùn)算數(shù)，然后單擊運(yùn)算符的單選按鈕，就能在“運(yùn)算結(jié)果”所對(duì)應(yīng)的文本框中輸出運(yùn)算結(jié)果。8.3框架(Frame)

具有容器功能先建立框架，然后將各控件放置其中框架用法示例

8.3.1框架的屬性Caption屬性框架上的標(biāo)題文本

8.3.2框架的事件框架可以響應(yīng)Click和DoubleClick事件，但一般不需要編寫事件過程。例8-2:用兩個(gè)框架區(qū)分藥品的類別，用單選按鈕選擇不同的類別，然后再使用復(fù)選框選擇具體的藥品名稱，被選中的藥品名稱用斜體表示。8.4數(shù)組控件控件數(shù)組創(chuàng)建方法：第一種方法：采用“復(fù)制”“粘貼”的方法添加第二種方法：在窗體上添加作為數(shù)組元素的各個(gè)控件，在屬性窗口中逐一修改它們的Name屬性為相同指定名稱例8-3:通過單擊命令按鈕輸入一個(gè)堿基序列到文本框內(nèi)。堿基對(duì)是形成DNA、RNA單體以及編碼遺傳信息的化學(xué)結(jié)構(gòu)，組成堿基對(duì)的堿基包括A、G、T、C、U。PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0Text1=Text1&Command1(0).CaptionCase1Text1=Text1&Command1(1).CaptionCase2Text1=Text1&Command1(2).CaptionCase3Text1=Text1&Command1(3).CaptionCase4Text1=Text1&Command1(4).CaptionEndSelectEndSub8.5定時(shí)器定時(shí)器以一定的時(shí)間間隔產(chǎn)生Timer事件屬性Enabled

為False時(shí)定時(shí)器不產(chǎn)生Tick事件Interval

觸發(fā)Timer事件的時(shí)間間隔(ms)

事件定時(shí)器控件只有一個(gè)Timer事件產(chǎn)生Timer事件條件

Enabled=True;Interval>08.5.1主要屬性1.Enabled屬性Enabled=false時(shí)，定時(shí)器不產(chǎn)生timer事件2.Interval屬性該屬性決定兩個(gè)timer事件之間的時(shí)間間隔，以ms（0.001s）為單位若該屬性值為0則不產(chǎn)生timer事件8.5.2計(jì)時(shí)器的事件只有Timer事件

每經(jīng)過一個(gè)由Interval屬性指定的時(shí)間間隔就觸發(fā)一次Timer事件。例8-4：設(shè)計(jì)一個(gè)具有簡單動(dòng)畫效果的程序。PrivateSubForm_Load()'窗體加載

Image1.Picture=LoadPicture(“G:\黑蝴蝶.jpg")Image1.Top=Me.Height-Image1.Height'圖像框定位

Image1.Left=0EndSubPrivateSubTimer1_Timer()'定時(shí)器事件

DimxAsInteger,yAsIntegerx=Image1.Left+200'設(shè)置圖像框的新位置參數(shù)(向右上)y=Image1.Top-100Ifx>Me.WidthOry<0Then'若新位置移出窗體則回到初始位置

x=0y=Me.Height-Image1.HeightEndIfImage1.Movex,y'移動(dòng)圖像框到新位置EndSub例8-5：編寫倒計(jì)時(shí)器程序。請(qǐng)編制一個(gè)以分鐘為時(shí)間段的倒計(jì)時(shí)器。Dimt%PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=1000EndSubPrivateSubCommand1_Click()

t=60*Val(Text1)Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Dimm%,s%

t=t-1m=t\60s=tMod60Label4=m&"分"&s&"秒"

Ift=0ThenTimer1.Enabled=FalseMsgBox"時(shí)間到!"EndIfEndSub8.6滾動(dòng)條滾動(dòng)條(ScrollBar)通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可作為數(shù)據(jù)輸入工具。滾動(dòng)條有水平和垂直兩種滾動(dòng)條屬性Value

滑塊當(dāng)前位置的值(缺省為0)Min

滑塊最小位置值，最左邊最上邊(缺省為0)Max

滑塊最大位置值SmallChange

單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性(滑塊位置)改變值LargeChange

單擊滾動(dòng)條的空白區(qū)域時(shí)，Value屬性改變值滾動(dòng)條事件Scroll

當(dāng)拖動(dòng)滑塊時(shí)觸發(fā)Changed

改變Value屬性時(shí)觸發(fā)Changed事件和scroll事件的差別:當(dāng)拖動(dòng)滑塊時(shí)觸發(fā)scroll事件，滾動(dòng)條內(nèi)滑塊位置變化（改變value值）時(shí)觸發(fā)changed事件Scroll事件用于跟蹤滾動(dòng)條中的動(dòng)態(tài)變化，Change事件則用來得到滾動(dòng)條的最后值。例8-6:設(shè)計(jì)一個(gè)文字移動(dòng)程序。每隔1秒鐘，帶有文字的標(biāo)簽水平向右移動(dòng)一段距離，文字移動(dòng)的速度由水平滾動(dòng)條調(diào)節(jié)，當(dāng)文字移動(dòng)到窗體的右邊時(shí)，立刻返回到最左邊；通過一個(gè)垂直滾動(dòng)條調(diào)節(jié)文字的大小。

例題：設(shè)計(jì)一個(gè)使用滾動(dòng)條改變顏色的程序8.7列表框和組合框列表框和組合框?qū)嵸|(zhì)是一維字符串?dāng)?shù)組的使用列表框（listbox）可顯示多個(gè)選項(xiàng)供用戶選擇，不能直接修改其中的內(nèi)容。本章目錄組合框（ComboBox）將文本框和列表框的功能結(jié)合在一起，既具有文本框的輸入功能，又具有列表框的選擇功能。下拉式：用戶可以直接在文本框鍵入內(nèi)容，也可以單擊下拉箭頭選擇簡單組合：列出所有項(xiàng)目供用戶選擇，沒有下拉箭頭，列表框不能收起下拉列表框：不允許輸入，只能選擇2列表框和組合框重要屬性(1)

ListList是一個(gè)集合(2)ListIndex

選項(xiàng)的序號(hào)(從0開始)(3)ListCount項(xiàng)目數(shù)量

(4)Sorted排序(5)Text被選定的文本內(nèi)容(6)multiselct確定列表框是否允許多選0—None，表示列表框是單選列表框，一次只能選擇一項(xiàng)1—Simple，表示列表框是復(fù)選列表框，2—Extended表示列表框類似于“資源管理器”，可用Shift＋鼠標(biāo)單擊（連續(xù)多選）、Ctrl＋鼠標(biāo)單擊（不連續(xù)多選）等來進(jìn)行復(fù)選。(7)Selected屬性該屬性用來設(shè)置或返回列表框中某項(xiàng)目的選擇狀態(tài)。(8)Columns屬性Columns=0，并具有垂直滾動(dòng)條。當(dāng)希望使用多列列表框時(shí)，設(shè)置Columns為大于0的值，表示具有若干列和水平滾動(dòng)條。

List1.ListIndex=2List1.ListCount=6List1.Sorted=FalseList1.Text為

"C/C++程序設(shè)計(jì)"

List1.List(List1.ListIndex)等于List1.Text2、常用方法

AddItem方法把一個(gè)項(xiàng)目加入列表

對(duì)象.