第1章VisualBasic簡(jiǎn)單程序

1.1 VB集成開(kāi)發(fā)環(huán)境1.2 設(shè)計(jì)簡(jiǎn)單的VB應(yīng)用程序1.3 小結(jié)實(shí)例實(shí)例1.1實(shí)例1.2實(shí)例1.3實(shí)例1.4本章實(shí)例1.1VB集成開(kāi)發(fā)環(huán)境1.1.1Hello程序1.1.2改進(jìn)的Hello程序P1【實(shí)例1.1】窗體中有一幅圖片，同時(shí)添加 1個(gè)標(biāo)簽和2個(gè)命令按鈕。單擊1.1.1Hello程序

單擊結(jié)束程序P1操作步驟（1）啟動(dòng)VisualBasic集成環(huán)境【開(kāi)始】|【程序】|【MicrosoftVisualBasic6.0中文版】|【MicrosoftVisualBasic6.0中文版】第1步第2步第3步窗體設(shè)計(jì)器工具箱工程資源管理器對(duì)象屬性窗口查看對(duì)象查看代碼單擊命令按鈕（CommandButton）圖標(biāo)，添加命令按鈕（2）設(shè)計(jì)用戶界面單擊標(biāo)簽（Label）圖標(biāo)，添加標(biāo)簽（3）設(shè)置對(duì)象屬性屬性名屬性值對(duì)象名對(duì)象屬性屬性值窗體（名稱(chēng)）CaptionPicturefrmEx1_1歡迎界面選取一圖形文件標(biāo)簽（名稱(chēng)）CaptionlblInfo（置空）命令按鈕1（名稱(chēng)）CaptioncmdDisplay顯示命令按鈕2（名稱(chēng)）CaptioncmdExit退出（4）編寫(xiě)代碼雙擊控件或單擊工程窗口的“查看代碼”按鈕，進(jìn)入代碼窗口在對(duì)象框中選擇cmdDisplay對(duì)象在過(guò)程框中選擇Click事件PrivateSubcmdDisplay_Click()EndSublblInfo.Caption="歡迎進(jìn)入VisualBasic..."在對(duì)象框中選擇cmdExit對(duì)象在過(guò)程框中選擇Click事件PrivateSubcmdExit

_Click()EndSubEnd

（5）保存文件分別保存窗體文件(frm)、工程文件(vbp)

單擊【啟動(dòng)】按鈕運(yùn)行程序單擊【結(jié)束】按鈕停止工程運(yùn)行（6）運(yùn)行程序技能要點(diǎn)界面設(shè)計(jì)要簡(jiǎn)潔、美觀，控件布局要合理。代碼框架最好由系統(tǒng)自動(dòng)生成。建議將同一工程的所有類(lèi)型的文件存放在同一文件夾中。適當(dāng)加入一些注釋?zhuān)话悴捎米⑨尫?”。1.1.2改進(jìn)的Hello程序

【實(shí)例1.2】修改實(shí)例1.1，為窗體設(shè)置圖標(biāo)，且無(wú)最大化、最小化按鈕，將標(biāo)簽設(shè)置為“透明”狀態(tài)。在窗體上再增加1個(gè)命令按鈕。程序運(yùn)行時(shí)，“顯示”命令按鈕呈“可用”狀態(tài)，而“清除”命令按鈕置為“禁用”狀態(tài)。單擊單擊P6【文件】/【打開(kāi)工程】操作步驟（1）打開(kāi)已有工程文件（2）設(shè)計(jì)用戶界面在窗體中增加一個(gè)命令按鈕

（3）設(shè)置對(duì)象屬性對(duì)象屬

性屬性值窗體（名稱(chēng)）CaptionIconMaxButtonMinButtonPicturefrmEx1_2歡迎界面選取一圖標(biāo)文件FalseFalse選取一圖形文件對(duì)象屬

性屬性值標(biāo)簽（名稱(chēng)）CaptionBackStyleForeColorFontlblInfo（置空）0-Transparent紅色楷體、小四命令按鈕1（名稱(chēng)）CaptionEnabledcmdDisplay顯示True命令按鈕2（名稱(chēng)）CaptionEnabledcmdCls清除False命令按鈕3（名稱(chēng)）CaptioncmdExit退出（4）編寫(xiě)代碼PrivateSubcmdDisplay_Click()

lblInfo.Caption="歡迎進(jìn)入VisualBasic..."EndSub

PrivateSubcmdExit_Click()EndEndSubcmdDisplay.Enabled=FalsecmdCls.Enabled=TruePrivateSubcmdCls_Click()

lblInfo.Caption=""

cmdCls.Enabled=False

cmdDisplay.Enabled=TrueEndSub（5）保存文件【文件】/【frmEx1_2.frm另存為…】【文件】/【工程另存為…】技能要點(diǎn)很多屬性可在設(shè)計(jì)階段設(shè)置，也可在運(yùn)行階段設(shè)置。但有些屬性只能在設(shè)計(jì)階段或只能在運(yùn)行階段才能設(shè)置。輸入“cmdCls.”后，出現(xiàn)成員列表。若不出現(xiàn)，說(shuō)明該對(duì)象的名稱(chēng)有錯(cuò)，應(yīng)檢查?！皹?biāo)題（Caption）”和“名稱(chēng)（Name）”是兩個(gè)不同屬性。合理設(shè)置命令按鈕的“可用”與“禁用”狀態(tài)。編寫(xiě)事件過(guò)程時(shí)，采用逐個(gè)編寫(xiě)、調(diào)試的方式。1.2設(shè)計(jì)簡(jiǎn)單的VB應(yīng)用程序

1.2.1文本信息的顯示1.2.2窗體中顯示圖片和文字P91.2.1文本信息的顯示

【實(shí)例1.3】在窗體上添加2個(gè)標(biāo)簽，標(biāo)簽的內(nèi)容分別是“HappyNewYear”和“新年快樂(lè)”，文字的字體和顏色不同。程序運(yùn)行時(shí)，單擊窗體，交換兩個(gè)標(biāo)簽的內(nèi)容。雙擊窗體，結(jié)束程序的運(yùn)行。P9（1）屬性設(shè)置對(duì)象屬

性屬性值窗體（名稱(chēng)）CaptionPicturefrmEx1_3賀詞互換選取一圖形文件標(biāo)簽1（名稱(chēng)）CaptionBackStyleFontForeColorlblWish1HappyNewYear0-Transparent華文行楷、二號(hào)紅色標(biāo)簽2（名稱(chēng)）CaptionBackStyleFontForeColorlblWish2新年快樂(lè)0-Transparent華文彩云、二號(hào)蘭色PrivateSubForm_Click()temp=lblWish1.Caption lblWish1.Caption=lblWish2.CaptionlblWish2.Caption=tempEndSubPrivateSubForm_DblClick()EndEndSub（2）代碼交換算法技能要點(diǎn)一定要明確編寫(xiě)代碼的位置。不要將所有代碼編寫(xiě)完畢再運(yùn)行。標(biāo)簽的BackStyle（背景風(fēng)格）屬性為“0-Transparent”時(shí)，產(chǎn)生透明效果。要實(shí)現(xiàn)A和B的交換功能，必須使用中間變量T。1.2.2窗體中顯示圖片和文字

【實(shí)例1.4】窗體中有4個(gè)命令按鈕。程序運(yùn)行時(shí)，窗體顯示出一幅圖（作為背景圖），單擊“春”、“夏”、“秋”和“冬”4個(gè)命令按鈕，在窗體中分別顯示不同的圖片；單擊窗體，清除顯示的圖片，同時(shí)在窗體上直接輸出“要顯示的圖是什么？”；雙擊窗體，清除窗體上顯示的文字，重新顯示出背景圖。P12（1）屬性設(shè)置對(duì)象屬

性屬性值窗體（名稱(chēng)）CaptionfrmEx1_4四季圖命令按鈕1（名稱(chēng)）CaptioncmdSpring春命令按鈕2（名稱(chēng)）CaptioncmdSummer夏命令按鈕3（名稱(chēng)）CaptioncmdAutumn秋命令按鈕4（名稱(chēng)）CaptioncmdWinter冬PrivateSubForm_Load()frmEx1_4.Picture=LoadPicture("d:\vb\

background.jpg")EndSub（2）代碼PrivateSubcmdSpring_Click()frmEx1_4.Picture=LoadPicture("d:\vb\

scn_spring.wmf")EndSub“夏”、“秋”、“冬”命令按鈕的Click事件過(guò)程類(lèi)似注意路徑PrivateSubForm_Click() frmEx1_4.Picture=LoadPicture("") Print"要顯示的圖是什么？"EndSubPrivateSubForm_DblClick()

Cls frmEx1_4.Picture=LoadPicture("d:\vb\

background.jpg")EndSub技能要點(diǎn)使用LoadPicture函數(shù)裝載圖形時(shí)一定要寫(xiě)明文件的完整路徑和文件名全稱(chēng)（含擴(kuò)展名）。在運(yùn)行時(shí)要?jiǎng)h除已裝載的圖形，應(yīng)使用“LoadPicture("")”形式，若在設(shè)計(jì)時(shí)刪除圖形，則選中Picture的屬性值后，按“Delete”鍵。