VB第2章用戶界面(6)(閱讀)課件

V

i

s

u

a

l1B

A

S

I

C

程序設(shè)計常用內(nèi)部控件本章要點:框架、圖片框、圖像框選項按鈕、復(fù)選框列表框、組合框計時器、滾動條1

控件的公共屬性1.

Name屬性運行時是只讀的缺省名稱

以字母開始，最長40個字符，可包括字母、數(shù)字和下劃線，不能包括標(biāo)點符號或空格(允許漢字)控件數(shù)組的名稱:Name(Index)2.

Caption屬性加訪問鍵:&字母

Label控件標(biāo)題大小沒有限制。其他有標(biāo)題的控件，標(biāo)題大小限制為255個字符。注意與Name屬性、Text屬性的區(qū)別2Enabled屬性決定控件是否能夠?qū)τ脩舢a(chǎn)生的事件作出響應(yīng)Visible屬性注意:如果在屬性窗口中將控件的Visible屬性設(shè)置為False，則控件在設(shè)計窗體上仍是可見的，僅在運行時才不可見?！纠?】Visible屬性和Enabled屬性的比較3“顯示圖像”按鈕Command1的Click事件過程如下:Private

Sub

Command1_Click()Image1.Visible

=

TrueCommand1.Enabled

=

FalseCommand2.Enabled

=

TrueEnd

Sub“隱藏圖像”按鈕Command2的Click事件過程如下:Private

Sub

Command2_Click()Image1.Visible

=

FalseCommand1.Enabled

=

TrueCommand2.Enabled

=

FalseEnd

Sub45.

Left、Top、Height、Width屬性對于窗體，這些屬性總是以緹為單位表示；對于控件，它們的度量單位取決于其容器的坐標(biāo)系統(tǒng)6.

BackColor、ForeColor屬性

在Label和Shape控件中，如果BackStyle屬性的設(shè)置值為0(透明)，則忽略BackColor屬性。如果在Form對象或PictureBox控件中設(shè)置BackColor屬性，則所有已經(jīng)打印的文本或用繪圖方法繪制的圖形都將被擦除掉。設(shè)置ForeColor屬性值不會影響已經(jīng)打印的文本或繪制的圖形。7.

FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline屬性58.

Font對象屬性格式:<控件名>.Font.<屬性名><屬性名>:Name、Size、Bold、Italic、Underline、Strikethrough例:Form1.Font.Size=14Command1.Font.Italic=True62

框架(Frame)作用:作為容器，對控件進(jìn)行分組如何將控件放在容器中選中容器，在容器中直接畫選中容器，粘貼控件如何檢查控件是否在容器中拖動容器，控件隨容器移動選中框架中的多個控件:Ctrl+拖動刪除容器時，其中的控件隨之被刪除框架的常用屬性

Caption:Font:ForeColor:Backcolor:Enabled:……為False時框架中的控件不可用73

圖片框(PictureBox)作用作為容器，對控件進(jìn)行分組顯示圖像如何顯示圖像:設(shè)置Picture屬性在屬性窗口中設(shè)置對象名.Picture=LoadPicture("圖形文件名")如何清除圖像在屬性窗口中刪除Picture屬性內(nèi)容(也清除文字)對象名.Picture=LoadPicture()4.打印與清除文字打印:對象名.Print……清除:對象名.Cls5.特點自動調(diào)整控件大小以適應(yīng)圖像:AutoSize=True不能延伸圖形以適應(yīng)控件的大小。84

圖像框(Image)作用:顯示圖像如何顯示圖像:設(shè)置Picture屬性在屬性窗口中設(shè)置對象名.Picture=LoadPicture("圖形文件名")如何清除圖片在屬性窗口中刪除Picture屬性內(nèi)容對象名.Picture=LoadPicture()特點:可以自動調(diào)整控件大小以適應(yīng)圖像:設(shè)

Stretch=False可以延伸圖形以適應(yīng)控件的大小:設(shè)

Stretch=True95

選項按鈕(OptionButton)作用:多選一(放在窗體上、或放在其他容器中)屬性Value:True—選中False—未選中Alignment屬性:決定文本的對齊方式Style—控制外觀事件Click事件—使選項按鈕從未選擇變成選擇狀態(tài)時(單擊鼠標(biāo)改變、代碼改變)10Option1Option2【例2】設(shè)計如下圖所示的界面，用選項按鈕設(shè)置文本框的文字顏色和背景顏色。Value為True的兩種顯示方式Style為1Style為0Option3Option4Option5Option611Private

Sub

Option1_Click()Text1.ForeColor

=

vbBlackEnd

SubPrivate

Sub

Option2_Click()Text1.ForeColor

=

vbYellowEnd

SubPrivate

Sub

Option3_Click()Text1.ForeColor

=

vbRedEnd

SubPrivate

Sub

Option4_Click()Text1.BackColor

=

vbWhiteEnd

SubPrivate

Sub

Option5_Click()Text1.BackColor

=

vbGreenEnd

SubPrivate

Sub

Option6_Click()Text1.BackColor

=

vbBlueEnd

Sub126

復(fù)選框(CheckBox)作用多選一或多選多(放在窗體上或其他容器中)屬性Value0—未選中1—選中2—灰度狀態(tài)(常用于表示不確定或部分選中)Alignment屬性:決定文本的對齊方式Style:控制外觀事件

Click事件13【例3】設(shè)計界面如下圖所示，用復(fù)選框設(shè)置文本框的文字樣式與效果。Check1

Check2

Check3Check414Private

Sub

Check1_Click()Text1.FontBold

=

Check1.ValueEnd

SubPrivate

Sub

Check2_Click()Text1.FontItalic

=

Check2.ValueEnd

SubPrivate

Sub

Check3_Click()Text1.FontStrikethru

=

Check3.ValueEnd

SubPrivate

Sub

Check4_Click()Text1.FontUnderline

=

Check4.ValueEnd

Sub157

列表框(ListBox)作用:提供選項列表、內(nèi)容多時自動出現(xiàn)滾動條屬性Style—外形(常規(guī)形式、復(fù)選框形式)List—列表內(nèi)容。設(shè)計時:用Ctrl+?換行;運行時:List(i)表示第i項Columns—列表形式0:垂直單列、1:水平單列、>1:水平多列

Text—只讀、運行期用，獲取當(dāng)前選擇項目的值

ListIndex—運行期用，當(dāng)前選定項目的索引(0…)如果未選定項目，則ListIndex

值為-1ListCount—列表部分項目的個數(shù)Sorted—元素是否自動按字母順序排序

Selected—運行期用，用于選擇某項如List1.Selected(3)=True

選擇第4項16MultiSelect:0—缺省值，不允許復(fù)選。1—鼠標(biāo)單擊、按空格鍵在列表中選擇或取消選擇2—按下Shift并單擊鼠標(biāo)或按下Shift以及一個箭頭鍵將在以前選中項的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項。按下Ctrl

并單擊鼠標(biāo)在列表中選中或取消選中項。3.方法AddItem—向列表框中添加新的項目<對象名>.AddItem

<項目>[,<索引>]RemoveItem—從列表框中移除項目<對象名>.RemoveItem

<索引>Clear—清除所有列表的<對象名>.Clear17【例4】設(shè)計如下圖所示的界面，左列表框列出了某數(shù)據(jù)表格的各列(字段)名稱。將左列表框中選擇的書名移動到右列表框中將右列表框中選擇的書名移動到左列表框中將左列表框中的所有書名移動到右列表框中List1List2將右列表框中的所有書名移動到左列表框中18(1)將左列表框中選擇的字段移動到右列表框中Private

Sub

Command1_Click()If

List1.ListCount

=

0

ThenMsgBox"列表中已沒有可選的字段",,"注意"Exit

SubEnd

IfIf

List1.ListIndex

>=

0ThenList2.AddItem

List1.TextList1.RemoveItem

List1.ListIndexElseMsgBox"請先在列表中選擇某字段",,"注意"End

IfEnd

Sub19(2)將右列表框中選擇的字段移動到左列表框中。Private

Sub

Command2_Click()If

List2.ListCount

=

0

ThenMsgBox"列表中已沒有可選的字段",,"注意"Exit

SubEnd

IfIf

List2.ListIndex

>=

0ThenList1.AddItem

List2.TextList2.RemoveItem

List2.ListIndexElseMsgBox"請先在列表中選擇某字段",,"注意"End

IfEnd

Sub20將左列表框中的所有字段移動到右列表框中Private

Sub

Command3_Click()For

i

=

0

To

List1.ListCount

-

1List1.Selected(0)

=

TrueList2.AddItem

List1.TextList1.RemoveItem

0Next

iEnd

Sub將右列表框中的所有字段移動到左側(cè)列表框中Private

Sub

Command4_Click()For

i

=

0

To

List2.ListCount

-

1List2.Selected(0)

=

TrueList1.AddItem

List2.TextList2.RemoveItem

0Next

iEnd

Sub218

組合框(ComboBox)作用:提供列表(可折疊)、文本輸入屬性List—列表內(nèi)容(Ctrl+Enter換行)Style—外形0—下拉組合框(折疊)1—簡單組合框(不折疊)2—下拉列表框(不能修改Text屬性)Text—文本框內(nèi)容ListIndex—運行期用，當(dāng)前選定項目的索引索引從0開始ListCount—列表部分項目的個數(shù)

Sorted—元素是否自動按順序排序223.事件組合框的事件與Style屬性有關(guān)。Style為0時:響應(yīng)Click、Change、DropDown事件

Style為1時:響應(yīng)Click、DblClick、Change事件

Style為2時:響應(yīng)Click、DropDown事件4.方法AddItem:

向組合框中添加新的項目<對象名>.AddItem

<項目>[,<索引>]RemoveItem:

從組合框中移除項目<對象名>.RemoveItem

<索引>Clear:清除組合框中的所有項目<對象名>.Clear23【例5】在窗體上放4個組合框，用于選擇微機(jī)配置，包括選擇機(jī)型、CPU主頻、硬盤、內(nèi)存。運行時，在選擇了各項內(nèi)容之后，單擊“確定”按鈕顯示所

選擇的機(jī)器配置。Style=1Style=2Style=2Style=024Private

Sub

Form_Load()Combo1.Text

=

Combo1.List(0)Combo2.Text

=

Combo2.List(0)Combo3.Text

=

Combo3.List(0)Combo4.Text

=

Combo4.List(0)End

SubPrivate

Sub

Command1_Click()Picture1.ClsPicture1.Print"您選擇的配置是:"Picture1.Print"機(jī)型:";Combo1.TextPicture1.Print

"CPU:";Combo2.TextPicture1.Print"硬盤:";Combo3.TextPicture1.Print"內(nèi)存:";Combo4.TextEnd

Sub259

定時器(Timer)作用:周期性地執(zhí)行某功能、運行時不可見屬性Enabled:將Enabled設(shè)置為False時將停止定時器的計時操作Interval:計時事件執(zhí)行的時間間隔(毫秒)事件Timer事件:

每當(dāng)計時時間到時產(chǎn)生Timer事件注:

一個計時器的最大計時時間為65535毫秒

,等于1

分鐘多一些。如果最大計時時間大于該值，可以使用多個計時器。26Timer1屬性:

Enabled—FalseInterval—1000Cmd1Cmd2Cmd3【例6】在窗體上放置一個紅色圓。單擊“增大”按鈕每隔1秒直徑自動增大200Twips；單擊“縮小”按鈕每隔1秒直徑自動縮小200Twips；單擊“停止”按鈕停止增大或縮小。Timer1Shape127Dim

Flag

AsIntegerPrivate

Sub

Cmd1_Click()Timer1.Enabled

=

TrueFlag

=

1End

SubPrivate

Sub

Cmd2_Click()Timer1.Enabled

=

TrueFlag

=

0End

SubPrivate

Sub

Cmd3_Click()Timer1.Enabled

=

FalseEnd

Sub28Private

Sub

Timer1_Timer()If

Flag

=

0ThenIf

Shape1.Width<200

Or

Shape1.Height<200

ThenMsgBox"不能再縮小",,"注意"Timer1.Enabled=FalseExit

Sub

'結(jié)束本事件過程

End

IfShape1.Width

=

Shape1.Width

-

200Shape1.Height

=

Shape1.Height

-

200ElseShape1.Width

=

Shape1.Width

+200Shape1.Height

=

Shape1.Height

+

200End

IfEnd

Sub29滾動箭頭10 滾動條(HScrollBar、VScrollBar)作用滾動條結(jié)構(gòu)滾動箭頭 滾動塊屬性LargeChange—單擊滾動塊和滾動箭頭之間的區(qū)域時，滾動條Value

值的改變量。SmallChange—單擊滾動箭頭時，滾動條的Value值的改變量。

Max－滾動條的Value

屬性最大值。

Min－滾動條的Value

屬性最小值。Value—滾動條當(dāng)前位置值，介于[Min

,Max]之間。事件Change(單擊時、Value改變時)、Scroll(拖動時30)【例7】設(shè)計一水平滾動條，表示范圍為1到100，要求:單擊某按鈕生成[1，100]之間的隨機(jī)整數(shù)，在滾動條上反映此隨機(jī)數(shù)，同時在標(biāo)簽上顯示該值。滾動條滾動時，標(biāo)簽內(nèi)容能夠及時反映滾動條的當(dāng)前值。HScroll1Label3Command131Private

Sub

Command1_Click()Randomize:X

=

Int(Rnd

*

100

+

1)HScroll1.Value

=

XLabel3.Caption

=

XEnd

SubPrivate

Sub

HScroll1_Change()Label3.Caption

=

HScroll1.ValueEnd

SubPrivate

Sub

HScroll1_Scroll()Label3.Caption

=

HScroll1.ValueEnd

Sub32【例8】在圖片框Picture1上放置一個圓，在窗體上放一個水平滾動條HScroll1和一個垂直滾動條VScroll1，如下圖。運行時，拖動滾動條可以使圓在圖片框上隨滾動條左右或上下移動。移動范圍限制在圖片框內(nèi)部。Picture1Shape1HScroll1VScroll133Private

Sub

Form_Load()HScroll1.Min

=

0HScroll1.Max

=

Picture1.ScaleWidth

–

_Shape1.WidthHScroll1.LargeChange

=

(Picture1.ScaleWidth

–

_Shape1.Width)

/20HScroll1.SmallChange

=

(Picture1.ScaleWidth

–

_Shape1.Width)

/40VScroll1.Min

=

0VScroll1.Max

=

Picture1.ScaleHeight

–Shape1.HeightVScroll1.LargeChange

=

(Picture1.ScaleHeight

–

_Shape1.Height)

/

20VScroll1.SmallChange

=

(Picture1.ScaleHeight

–

_Shape1.Height)

/

40Shape1.Left

=

0Shape1.Top

=

0End

Sub34Private

Sub

HScroll1_Change()Shape1.Left

=

HScroll1.ValueEnd

SubPrivate

Sub

HScroll1_Scroll()Shape1.Left

=

HScroll1.ValueEnd

SubPrivate

Sub

VScroll1_Change()Shape1.Top

=

VScroll1.ValueEnd

SubPrivate

Sub

VScroll1_Scroll()Shape1.Top

=

VScroll1.ValueEnd

Sub35本章小結(jié)1.控件的公共屬性36NameLeftCaptionTopVisibleWidthBackColorFontName

FontSizeEnabledHeightForeColorFontBoldFontItalicFontStrikethru、FontUnderlineFont對象屬性:

Name

Bold

Size

Bold

ItalicStrikethroughUnderline框架(Frame):作為容器圖片框(PictureBox)作為容器;顯示圖像Picture屬性;LoadPicture函數(shù);Cls、Print方法圖像框(Image)顯示圖像Picture屬性;LoadPicture函數(shù);Cls方法選項按鈕(OptionButton) Value屬性、Click事件復(fù)選框(CheckBox) Value屬性、Click事件列表框(ListBox)屬性:Style、List、Columns、Text

、ListIndex、ListCount、Sorted、Selected、MultiSelect事件:Click方法:AddItem、RemoveItem、Clear37組合框(ComboBox)屬性:List、Style、Text、ListIndex、ListCount、Sorted事件:Click、Change、DropDown方法:AddItem、RemoveItem、Clear定時器(Timer)屬性:Enabled、Interval事件:Timer滾動條(HScrollBar、VScrollBar)屬性:LargeChange、SmallChange、Max、Min、Value事件:

Change、Scroll38V

i

s

u

a

l39B

A

S

I

C

程序設(shè)計界面設(shè)計本章要點:菜單的設(shè)計工具欄的設(shè)計狀態(tài)欄的設(shè)計多文檔界面的設(shè)計對話框的設(shè)計1

菜單的設(shè)計兩種菜單類型:下拉式菜單；彈出式菜單下拉式菜單下拉式菜單的結(jié)構(gòu)子菜單菜單命令主菜單欄主菜單標(biāo)題分隔條子菜單40菜單編輯器菜單項:看成控件，具有其屬性、事件、方法。菜單項也稱為菜單控件。設(shè)計:通過“菜單編輯器”完成。打開菜單編輯器:首先使窗體成為當(dāng)前窗體執(zhí)行“工具”菜單下的“菜單編輯器”命令單擊標(biāo)準(zhǔn)工具欄的“菜單編輯器”按鈕從窗體快捷菜單中選擇“菜單編輯器”命令菜單編輯器結(jié)構(gòu):屬性區(qū)、編輯區(qū)、菜單列表區(qū)41CaptionNameIndexShortcutChecked

Enabled

Visible

WindowList(MDI)NegotiatePositionHelpContextID注: 標(biāo)題框中鍵入“-”和“&”符號的作用。不能給頂級菜單項加快捷鍵。42【例1】設(shè)計菜單界面，各主菜單項及其下拉菜單如下圖所示。下拉菜單中的子菜單項用于對文本框Text1設(shè)置字體、字號、文字顏色和文字效果。其中，效果子菜單下的各菜單項具有復(fù)選功能，設(shè)運行初始時各項前面沒有√符號，與文本框的初始狀態(tài)一致。43菜單編輯器設(shè)置如下表:標(biāo)

題名稱索引快捷鍵說

明字體(&F)AA訪問鍵Alt+F....宋體AA11Ctrl+A定義成控件數(shù)組AA1;AA1(3)用于生成分隔條....黑體AA12Ctrl+B....-AA13....隸書AA14Ctrl+C....楷體_GB2312AA15Ctrl+D字號(&S)BB訪問鍵Alt+S....14BB11定義成控件數(shù)組BB1....16BB12....18BB13....20BB1444(續(xù)表)標(biāo)

題名稱索引快捷鍵說

明顏色(&C)CC訪問鍵Alt+C....紅色CC1....綠色CC2....藍(lán)色CC3效果(&E)DD訪問鍵Alt+E....刪除線DD1....下劃線DD2....粗體DD3....斜體DD445

“字體”菜單下的菜單項設(shè)計成一個控件數(shù)組AA1，共享以下事件過程:Private

Sub

AA1_Click(Index

As

Integer)Text1.Font

=AA1(Index).CaptionEnd

Sub

“字號”菜單下的菜單項設(shè)計成一個控件數(shù)組BB1，共享以下事件過程:Private

Sub

BB1_Click(Index

As

Integer)Text1.FontSize

=

Val(BB1(Index).Caption)End

Sub“顏色”菜單下的各菜單項為獨立的菜單控件，因 此應(yīng)分別在其單擊事件過程中編寫代碼，各事件 過程如下:46Private

SubCC1_Click()Text1.ForeColor

=

vbRedEnd

SubPrivate

SubCC2_Click()Text1.ForeColor

=

vbGreenEnd

SubPrivate

SubCC3_Click()Text1.ForeColor

=

vbBlueEnd

Sub(4)“效果”菜單下的各菜單項具有復(fù)選功能，每次單擊時應(yīng)切換成另一種狀態(tài)，因此要判斷當(dāng)前菜單項的Checked屬性，各事件過程如下:47Private

SubDD1_Click()If

DD1.Checked

=

TrueThenText1.FontStrikethru

=

FalseDD1.Checked

=

FalseElseText1.FontStrikethru

=

TrueDD1.Checked

=

TrueEnd

IfEnd

Sub48Private

SubDD2_Click()If

DD2.Checked

=

TrueThenText1.FontUnderline

=

FalseDD2.Checked

=

FalseElseText1.FontUnderline

=

TrueDD2.Checked

=

TrueEnd

IfEnd

Sub49Private

SubDD3_Click()If

DD3.Checked

=

TrueThenText1.FontBold

=

FalseDD3.Checked

=

FalseElseText1.FontBold

=

TrueDD3.Checked

=

TrueEnd

IfEnd

Sub50Private

SubDD4_Click()If

DD4.Checked

=

TrueThenText1.FontItalic

=

FalseDD4.Checked

=

FalseElseText1.FontItalic

=

TrueDD4.Checked

=

TrueEnd

IfEnd

Sub511.2

彈出式菜單彈出式菜單:上下文菜單、快捷菜單、右鍵菜單為某對象設(shè)計彈出式菜單的步驟:

在菜單編輯器中設(shè)計彈出式菜單，然后將頂級菜單設(shè)置為不可見。在對象的MouseDown事件過程中編寫代碼，用以下的PopupMenu方法顯示彈出式菜單:[<窗體名>.]PopupMenu

<菜單名>,flags[,x[,y[,boldcommand]]]]功能:在當(dāng)前鼠標(biāo)位置或指定的坐標(biāo)位置顯示彈出式菜單。52【例2】在例1的基礎(chǔ)上設(shè)計窗體和文本框的彈出式菜單。如下圖所示。(1)設(shè)置菜單編輯器:標(biāo)題名稱可見文本框快捷菜單EE√....增加1磅EE1√....減少1磅EE2√....鎖定EE3√窗體快捷菜單FF....紅色背景FF1√....綠色背景FF2√....默認(rèn)背景FF35√3(2)

在文本框的MouseDown事件過程中編寫代碼Private

Sub

Text1_MouseDown(Button

As

Integer,Shift

As

Integer,

X

As

Single,

Y

As

Single)If

Button

=

2

ThenPopupMenu

EE,

0

Or

0End

IfEnd

Sub54參數(shù)Button:1—按下鼠標(biāo)的左按鈕2—按下鼠標(biāo)的右按鈕4—按下鼠標(biāo)的中間按鈕在窗體的MouseDown事件過程中編寫代碼Private

Sub

Form_MouseDown(Button

As

Integer,Shift

As

Integer, X

As

Single,

Y

AsSingle)If

Button

=

2

ThenPopupMenu

FF,8

Or

0,

,

,FF3End

IfEnd

Sub編寫實現(xiàn)菜單命令功能的代碼Dim

Fcolor

As

LongPrivate

Sub

Form_Load()Fcolor

=Form1.BackColorEnd

Sub55Private

SubEE1_Click()Text1.FontSize

=

Text1.FontSize

+

1End

SubPrivate

SubEE2_Click()Text1.FontSize

=

Text1.FontSize

–

1End

SubPrivate

SubEE3_Click()If

EE3.Caption="鎖定"ThenEE3.Caption="取消鎖定"Text1.Locked=TrueElseEE3.Caption="鎖定"Text1.Locked=FalseEnd

IfEnd

Sub56Private

SubFF1_Click()Form1.BackColor

=

vbRedEnd

SubPrivate

SubFF2_Click()Form1.BackColor

=

vbGreenEnd

SubPrivate

SubFF3_Click()Form1.BackColor

=

FcolorEnd

Sub57工具欄的設(shè)計作用:常用于提供對最常用的菜單命令的快速訪問設(shè)計:手工;使用工具欄控件用手工方式制作工具欄：

在窗體上放置一個圖片框，設(shè)置其Align屬性為:1-Align

Top，調(diào)整好圖片框的高度。在圖片框中放置控件。給控件裝入一定的圖片。設(shè)置控件的ToolTipText屬性，添加適當(dāng)?shù)奶崾?。為各工具欄控件編寫代碼。如果工具欄控件的功能已經(jīng)包括在某菜單項中，可以通過直接調(diào)用菜單項的相應(yīng)事件過程。58【例3】在例2的基礎(chǔ)上添加工具欄。如下圖。放置4各復(fù)選框控件，分別用于完成“效果”菜單下的四個功能。在復(fù)選框的ToolTipText屬性中分別設(shè)置功能提示:刪除線、下劃線、粗體、斜體。Check1~

Check459分別在復(fù)選框控件的Click事件過程中編寫代碼：Private

SubCheck1_Click()Text1.FontStrikethru

=

Check1.ValueEnd

SubPrivate

SubCheck2_Click()Text1.FontUnderline

=

Check2.ValueEnd

SubPrivate

SubCheck3_Click()Text1.FontBold

=

Check3.ValueEnd

SubPrivate

SubCheck4_Click()Text1.FontItalic

=

Check4.ValueEnd

Sub602.2

使用工具欄控件(ToolBar)制作工具欄設(shè)計步驟:添加ToolBar控件、ImageList控件。

工程→部件→選擇“MicrosoftWindowsCommon

Controls

6.0”常用ImageList控件提供工具欄所需的圖片。在窗體上畫ToolBar控件、ImageList控件設(shè)置ImageList控件。設(shè)置ToolBar控件的“屬性頁”。定義按鈕對象集。 引用索引號為n的按鈕:Buttons(n)例:設(shè)置Toolbar1中索引號為3的按鈕的標(biāo)題。Toolbar1.Buttons(3).Caption="顯示"編寫代碼:在ButtonClick事件過程或ButtonMenuClick事件過程中編寫。613

狀態(tài)欄的設(shè)計作用:顯示應(yīng)用程序當(dāng)前的運行狀態(tài)、系統(tǒng)狀態(tài)、提供一些操作提示等。設(shè)計步驟添加StatusBar控件工程→部件→選擇“Microsoft

Windows

CommonControls

6.0”；在窗體上畫狀態(tài)欄。設(shè)置StatusBar控件的“屬性頁”。定義Panels對象集合

(Panel:

窗格)。在代碼中訪問索引為n的Panel對象:Panels(n)例:設(shè)置狀態(tài)欄StatusBar1中索引值為2的窗格的顯示文本為“鎖定”:StatusBar1.Panels(2).Text=“鎖定”編寫代碼。624

多文檔界面設(shè)計單文檔界面(SDI):一次只能打開一個文檔如Notepad（記事本）多文檔界面(MDI):一次可以打開多個文檔如ExcelMDI主要特點：子窗體隨父窗體最小化或關(guān)閉而最小化或關(guān)閉。子窗體不能移出父窗體。當(dāng)子窗體最大化時，標(biāo)題與父窗體的標(biāo)題重疊。

父窗體和子窗體可以有各自的菜單，加載子窗體后，父窗體的菜單將被子窗體的菜單取代。63創(chuàng)建多文檔界面步驟：添加一個MDI父窗體。工程→添加MDI窗體→選擇“MDI窗體”建立其它子窗體。建立普通窗體，設(shè)置其MDIChild屬性為True設(shè)置啟動對象為MDIForm對象。工程→工程屬性→選擇“啟動對象”為MDIForm要在MDIForm對象中顯示各子窗體，可以使用Show方法。使用Arrange方法可以重排MDI子窗體或圖標(biāo)。格式:

<MDIForm對象名>.Arrange

<排列方式><排列方式>：vbCascade或0—層疊非最小化的子窗體

vbTileHorizontal或1—水平平鋪非最小化子窗體

vbTileVertical或2—垂直平鋪非最小化子窗體vbArrangeIcons或3—重排最小化子窗體的圖標(biāo)645

對話框的設(shè)計對話框:特殊類型的窗體對象。作用:是用戶和應(yīng)用程序交互的主要途徑。建立方法:使用預(yù)定義對話框，即輸入框、消息框。自定義對話框。使用CommonDialog控件創(chuàng)建通用對話框。5.1

自定義對話框設(shè)計步驟:添加窗體:工程→添加窗體。將窗體定義成對話框風(fēng)格。如:不能移動、改變尺寸、最大或最小化65例:

BorderStyle設(shè)置為1—單邊框，不能改變大小ControlBox設(shè)置為False—刪除控制菜單框MaxButton設(shè)置為False—刪除最大化按鈕MinButton設(shè)置為False—刪除最小化按鈕在對話框上添加按鈕，如“確定”與“取消”按鈕。在對話框上添加其它控件。在適當(dāng)?shù)奈恢镁帉戯@示對話框的代碼。兩種顯示方式:模式對話框與無模式對話框。顯示模式對話框:或:窗體名.Show

1窗體名.Show

vbModal顯示無模式對話框:窗體名.Show

vbModeless或:

窗體名.Show

0

或:

窗體名.Show66例如:Form2.Show

vbModalForm2.ShowvbModeless為確保對話框可以隨其父窗體的最小化而最小化，隨其父窗體的關(guān)閉而關(guān)閉，需要在Show方法中定義父窗體。例如:Private

SubCommand1_Click()Form2.Show

vbModeless,Form1End

Sub(6)

編寫從對話框退出的代碼例如:Unload

Form2或:Form2.Hide67【例4】設(shè)計對話框Form2如下圖所示。當(dāng)輸入某文件所在的路徑及名稱后，單擊“確定”按鈕按所選擇的運行方式運行該文件，單擊“取消”按鈕取消本次操作，返回窗體Form1中。如果輸入文件名錯誤，將給出警告并返回該對話框。Text1Option1Option2Option3Command1Command268對話框Form2代碼如下：Private

Sub

Command1_Click()On

Error

GoToErrorHandlerFName

=

Trim(Text1.Text)If

Option1.Value

=

True

Then

a

=

Shell(FName,

1)If

Option2.Value

=

True

Then

a

=

Shell(FName,

3)If

Option3.Value

=

True

Then

a

=

Shell(FName,

2)Exit

SubErrorHandler:MsgBox"不能運行該程序",,"注意"Resume

Next

'從產(chǎn)生錯誤的語句之后開始運行End

SubPrivate

Sub

Command2_Click()Unload

MeEnd

Sub695.2

通用對話框使用通用對話框控件(CommonDialog)可以創(chuàng)建多種標(biāo)準(zhǔn)對話框。設(shè)計步驟:添加:工程→部件→選擇“Microsoft

Common

Dialog

Controls

6.0”在窗體的任意位置畫通用對話框控件。設(shè)置通用對話框控件的“屬性頁”。在代碼中使用以下方法打開對話框。

ShowOpen:顯示“打開文件”對話框

ShowSave:

顯示“文件存儲”對話框

ShowColor:

顯示“顏色”對話框

ShowFont:

顯示“字體”對話框

ShowPrinter:顯示“打印”對話框

ShowHelp:顯示“幫助”對話框701