第5章 簡(jiǎn)單窗體設(shè)計(jì)

第5章簡(jiǎn)單窗體設(shè)計(jì)掌握窗體設(shè)置熟悉

常用控件的使用學(xué)會(huì)

制作計(jì)算器實(shí)例目標(biāo)要求第5章簡(jiǎn)單窗體設(shè)計(jì)l

窗體l

常用控件的使用l

制作計(jì)算器實(shí)例講課提綱第5章簡(jiǎn)單窗體設(shè)計(jì)5.1.1新建窗體創(chuàng)建VB應(yīng)用程序的第一步是創(chuàng)建用戶(hù)界面。用戶(hù)界面的基礎(chǔ)是窗體，各種控件對(duì)象必須建立在窗體上。 啟動(dòng)VB后，新建一個(gè)標(biāo)準(zhǔn)工程,即在屏幕上顯示一個(gè)窗體。5.1.2窗體的主要屬性1）Caption屬性2）MaxButton屬性和MinButton屬性3）BorderStyle屬性4）BackColor屬性和ForeColor屬性5）Height屬性和Width屬性6）Left屬性和Top屬性7）Name（名稱(chēng)）屬性8）Enabled屬性9）Moveable屬性10）Visible屬性11）Picture屬性12）WindowState屬性5.1窗體

第5章簡(jiǎn)單窗體設(shè)計(jì)窗體常用的事件1.Click事件程序運(yùn)行后，單擊窗體觸發(fā)該事件。2.DbClick事件程序運(yùn)行后，雙擊窗體觸發(fā)該事3.Load事件Load事件是窗體被裝入內(nèi)存工作區(qū)時(shí)觸發(fā)的事件。如果這個(gè)事件過(guò)程存在，就馬上執(zhí)行它。Load事件過(guò)程通常用于啟動(dòng)程序時(shí)，對(duì)屬性、變量的初始化以及裝載數(shù)據(jù)等。4.Unload事件是窗體被關(guān)閉并從內(nèi)存工作區(qū)撤出時(shí)觸發(fā)的事件。5.Mousedown事件是指鼠標(biāo)按下時(shí)觸發(fā)的事件。6.Mousemove事件是指鼠標(biāo)移動(dòng)時(shí)出發(fā)的事件。5.1窗體第5章簡(jiǎn)單窗體設(shè)計(jì)事件應(yīng)用范例程序（05-01-01）：要求：?jiǎn)螕舸绑w時(shí)，窗體打印出“歡迎光臨”字樣。設(shè)置窗體事件過(guò)程如下：PrivateSubForm_Click()Me.FontSize=20Print"歡迎光臨"EndSub窗體的方法：.MOVE.SHOW.HIDE.Cls.PRINT5.1窗體第5章簡(jiǎn)單窗體設(shè)計(jì)范例程序（05-01-04）：實(shí)現(xiàn)將指定的窗體在屏幕上進(jìn)行顯示或隱藏的切換。為了實(shí)現(xiàn)這一功能，可以在窗體Forml的“代碼”窗口中輸入下列代碼：PrivateSubForm_Click()Form1.Hide'隱藏窗體MsgBox"窗體已經(jīng)關(guān)閉,單擊確定重現(xiàn)"'顯示信息Form1.Show'重現(xiàn)窗體EndSub5.1窗體第5章簡(jiǎn)單窗體設(shè)計(jì)5.2.1命令按鈕CommandButton

5.2.2標(biāo)簽Label

范例程序（05-02-01）：在窗體上，放置5個(gè)標(biāo)簽，其名稱(chēng)使用默認(rèn)值Label1－Label5，適度調(diào)整大小，在屬性窗口，按下表設(shè)置它們的屬性

5.2常用控件的使用

默認(rèn)控件名Name標(biāo)題Caption有關(guān)屬性設(shè)置Label1左對(duì)齊Alignment=0，BorderStyle=1Label2水平居中Alignment=1，BorderStyle=1Label3自動(dòng)AutoSize=True，WordWarp=False，BorderStyle=1Label4背景白BackColor=&H00FFFFFF&，BorderStyle=0Label5前景紅ForeColor=&H000000FF&，BorderStyle=0第5章簡(jiǎn)單窗體設(shè)計(jì)第5章簡(jiǎn)單窗體設(shè)計(jì)設(shè)置結(jié)果如下圖：5.2常用控件的使用第5章簡(jiǎn)單窗體設(shè)計(jì)5.2.3文本框TextBox

其他控件：Frame（框架）

ListBox（列表框）

ComboBox（組合框

CheckBox（復(fù)選框）

OptionButton（選項(xiàng)按鈕）

PictureBox（圖片框）

Timer（定時(shí)器）

Data（數(shù)據(jù)）控件5.2常用控件的使用第5章簡(jiǎn)單窗體設(shè)計(jì)通過(guò)此實(shí)例主要讓讀者學(xué)會(huì)控件在窗體中放置、時(shí)間的應(yīng)用、方法的編寫(xiě)并了解控件數(shù)組的應(yīng)用。具體制作步驟：1、

創(chuàng)建一個(gè)標(biāo)準(zhǔn)工程，添加一個(gè)窗體。窗體的名稱(chēng)（Name）和標(biāo)題(Caption)設(shè)置為：計(jì)算器。2、設(shè)計(jì)窗體，在窗體添加一個(gè)文本框Text1、一個(gè)命令按鈕Command1。將Text1的Text屬性設(shè)為“0.”。如圖所示。

5.3實(shí)例應(yīng)用—計(jì)算器的制作

第5章簡(jiǎn)單窗體設(shè)計(jì)3、復(fù)制Command1，在第一次復(fù)制時(shí)會(huì)提示你是否創(chuàng)建控件數(shù)組，點(diǎn)擊確定創(chuàng)建，然后連續(xù)用“復(fù)制”和“粘貼”命令創(chuàng)建16個(gè)Command1，屬性設(shè)置如下：

5.3實(shí)例應(yīng)用—計(jì)算器的制作控件名稱(chēng)屬性（Name）標(biāo)題屬性（Caption）前10個(gè)Command1默認(rèn)分別設(shè)置為0、1、2、3、4、5、6、7、8、911-16個(gè)Command1默認(rèn)分別設(shè)置為.、=、+、-、*、/第17個(gè)Command1默認(rèn)清除第5章簡(jiǎn)單窗體設(shè)計(jì)界面效果圖1、

代碼及注釋DimNum1,Num2AsSingleDimStrNum1,StrNum2AsStringDimFirstNumAsBoolean'判斷是否是數(shù)字開(kāi)頭DimPointFlagAsBoolean'判斷是否已有小數(shù)點(diǎn)DimRunsignAsInteger'儲(chǔ)存運(yùn)算符號(hào)DimSignFlagAsBoolean'判斷是否已有運(yùn)算符號(hào)SubClear()Num1=0Num2=0StrNum1=""StrNum2=""FirstNum=TruePointFlag=False5.3實(shí)例應(yīng)用—計(jì)算器的制作第5章簡(jiǎn)單窗體設(shè)計(jì)Runsign=0SignFlag=FalseText1.Text="0.“EndSubSubRun()Num1=Val(StrNum2)Num2=Val(StrNum1)SelectCaseRunsignCase1equal=Num1+Num2Case2equal=Num1-Num2Case3equal=Num1*Num2Case45.3實(shí)例應(yīng)用—計(jì)算器的制作第5章簡(jiǎn)單窗體設(shè)計(jì)

equal=Num1/Num2EndSelectStrNum2=Str(equal)StrNum1=StrNum2Text1.Text=StrNum1EndSub

PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9IfFirstNumThenStrNum1=Str(Index)

FirstNum=FalseElse5.3實(shí)例應(yīng)用—計(jì)算器的制作第5章簡(jiǎn)單窗體設(shè)計(jì)StrNum1=StrNum1+Str(Index)EndIfText1.Text=StrNum1Case10IfNotPointFlagThenIfFirstNumThenStrNum1="0."

FirstNum=FalseElseStrNum1=StrNum1+"."EndIfElseExitSubEndIf

5.3實(shí)例應(yīng)用—計(jì)算器的制作第5章簡(jiǎn)單窗體設(shè)計(jì)PointFlag=TrueText1.Text=StrNum1Case12To15

FirstNum=True

PointFlag=False'還原標(biāo)記值Runsign=Index-11IfSignFlagThenCallRunElse

SignFlag=TrueStrNum2=StrNum1StrNum1=""EndIf5.3實(shí)例應(yīng)用—計(jì)算器的制作第5章簡(jiǎn)單窗體設(shè)計(jì)Case11IfNotSignFlagThenText1.Text=StrNum1equal=Val(StrNum1)

FirstNum=True

P