第5章 簡單窗體設(shè)計

第5章簡單窗體設(shè)計掌握窗體設(shè)置熟悉

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

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

窗體l

常用控件的使用l

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

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

5.2.2標(biāo)簽Label

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

5.2常用控件的使用

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

其他控件：Frame（框架）

ListBox（列表框）

ComboBox（組合框

CheckBox（復(fù)選框）

OptionButton（選項按鈕）

PictureBox（圖片框）

Timer（定時器）

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

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

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

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

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

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

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

PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9IfFirstNumThenStrNum1=Str(Index)

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

FirstNum=FalseElseStrNum1=StrNum1+"."EndIfElseExitSubEndIf

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

FirstNum=True

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

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

FirstNum=True

P