freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

visualbasic程序設(shè)計(jì)(第二版下)ppt(編輯修改稿)

2025-04-18 02:56 本頁(yè)面
 

【文章內(nèi)容簡(jiǎn)介】 程序運(yùn)行時(shí),單擊命令按鈕,打開(kāi)一個(gè)“ 保存 ” 為 “ 保存 ” 命令按鈕編寫(xiě)以下事件過(guò)程: “ 保存 ” ( Save As)對(duì)話(huà)框 Private Sub cmdSave_Click() = ″保存文件 ″ = ″frm文件 |*.frm|All Files(*.*)|*.*″ = 1 = ″ D: \Tan\Program″ = 6 = 2 End Sub 運(yùn)行時(shí)顯示一個(gè) “ 保存 ” 對(duì)話(huà)框,見(jiàn)圖 。 圖 可以看到,程序中指定 Action屬性值為 2,故對(duì)話(huà)框?yàn)?“ 保存 ” 類(lèi)型, FilterIndex值為 1,故對(duì)話(huà)框中過(guò)濾的文件類(lèi)型的默認(rèn)值為 “ *.frm”, Flags值為6,在表 6的項(xiàng), Flags的值可以是表 ,例如,6=4+2,它表示同時(shí)具備 Flags=2和 Flags=4的特性,即對(duì)話(huà)框中不出現(xiàn) “ 只讀檢查 ” 復(fù)選框,以及當(dāng)用戶(hù)選中磁盤(pán)中已存在的文件名時(shí)會(huì)出現(xiàn)一個(gè)消息框,詢(xún)問(wèn)用戶(hù)是否覆蓋已有的文件。如果在運(yùn)行時(shí)用戶(hù)選中了與已有文件同名的文件,則會(huì)出現(xiàn)如圖 所示的提示消息框。 圖 許多 Windows應(yīng)用程序都有 “ 顏色 ” 對(duì)話(huà)框,使用戶(hù)能夠自己選擇所需的顏色。當(dāng)通用對(duì)話(huà)框的Action屬性值為 3時(shí),通用對(duì)話(huà)框就會(huì)執(zhí)行 “ 顏色 ” 【 例 】 利用 “ 顏色 ” 對(duì)話(huà)框?qū)⑽谋究蛑械奈淖指淖冾伾4绑w設(shè)計(jì)如圖 。 屬性設(shè)置如表 (見(jiàn)書(shū) 174頁(yè))所示。 “ 顏色 ” ( Color)對(duì)話(huà)框 圖 “ 標(biāo)志 ” ( Flags)屬性用來(lái)定義對(duì)話(huà)框的格式?!?顏色 ” 對(duì)話(huà)框的 Flags屬性值有 4種可能值,見(jiàn)表(見(jiàn)書(shū) 174頁(yè))。設(shè)置顏色為 255(紅色),標(biāo)志為 1。 “ 改變顏色 ” 命令按鈕的事件過(guò)程如下: Private Sub cmdColor_Click() = 3 = End Sub Private Sub cmdEnd_Click() End End Sub 程序運(yùn)行開(kāi)始后,用戶(hù)單擊窗體中的 “ 改變顏色 ”按鈕,觸發(fā)上面的 cmdColor_Click事件過(guò)程,屏幕顯示如圖 。 從 “ 基本顏色 ” 中選擇藍(lán)色(用戶(hù)也可以選擇其他顏色),然后單擊 “ 確定 ” 按鈕,文本框中的文字 如果用戶(hù)認(rèn)為 “ 基本顏色 ” 中的顏色不能滿(mǎn)足要求,需要自己定義顏色,可以單擊圖 “ 規(guī)定自定義顏色 ” 按鈕,此時(shí)在對(duì)話(huà)框右側(cè)彈出一個(gè)“ 添加到自定義顏色 ” 部分,如圖 。 圖 圖 在前面幾章的例題中設(shè)置屬性時(shí),已用過(guò)屬性窗口中的 Font屬性來(lái)產(chǎn)生一個(gè) “ 字體 ” 對(duì)話(huà)框,并從中選擇字體和大小。為了方便 Windows應(yīng)用程序的設(shè)計(jì), Visual Basic也允許用戶(hù)根據(jù)需要設(shè)計(jì) “ 字體 ”對(duì)話(huà)框。當(dāng) Action=4時(shí),定義并打開(kāi)一個(gè) “ 字體 ” 【 例 】 將上例改成在運(yùn)行過(guò)程中用 “ 字體 ” 對(duì)話(huà)框改變字體。窗體設(shè)計(jì)與圖 。將 “ 改變顏色 ” 命令按鈕改為 “ 改變字體 ” 命令按鈕,將其N(xiāo)ame屬性值改為 cmdFont,將通用對(duì)話(huà)框的 Name屬性值改為 FontDialog。 “ 字體 ” ( Font)對(duì)話(huà)框 程序開(kāi)始運(yùn)行后的屏幕如圖 。文本框中的“ Visual Basic”字體是在設(shè)計(jì)階段對(duì)文本框 Text1的 Font屬性設(shè)置的狀況。用戶(hù)單擊 “ 改變字體 ” 按鈕,屏幕彈出一個(gè) “ 字體 ” 對(duì)話(huà)框,如圖 。 從圖 :對(duì)話(huà)框中各項(xiàng)屬性的初始值就是在屬性窗口中設(shè)置的值。用戶(hù)如果確認(rèn)此值就直接單擊 “ 確定 ” 按鈕。如想修改,可以重新選擇各屬性值。例如,設(shè)置字體為 Comic Sans MS,“ 字體樣式 ” 為 “ 粗體 ” , “ 大小 ” 為 20,如圖。單擊 “ 確定 ” 按鈕,此時(shí)屏幕如圖 所示。 圖 圖 圖 圖 程序如下: Private Sub cmdFont_Click() = 4 = = = = = = End Sub Private Sub cmdEnd_Click() End End Sub 在上述過(guò)程中,將用戶(hù)在對(duì)話(huà)框中選擇的字體名(即 FontDialog的 FontName屬性值,如 Times New Roman就是一個(gè)字體名)賦給文本框 Text1的FontName屬性,以下各語(yǔ)句類(lèi)似,這樣就將文本框中的文字按各 Font 當(dāng)通用對(duì)話(huà)框的 Action屬性值為 5時(shí),通用對(duì)話(huà)框作為 “ 打印 ” 對(duì)話(huà)框使用。其屬性頁(yè)如圖 示。 【 例 】 利用通用對(duì)話(huà)框控件使屏幕顯示一個(gè)“ 打印 ” 對(duì)話(huà)框。窗體設(shè)計(jì)如圖 。 指定 “ 打開(kāi)打印對(duì)話(huà)框 ” 命令按鈕的 Name屬性值為 cmdPrint,對(duì)話(huà)框的 Name屬性值為PrintDialog,編寫(xiě)如下程序: “ 打印 ” ( Print)對(duì)話(huà)框 圖 圖 Private Sub cmdPrint_Click() = 5 End Sub 運(yùn)行開(kāi)始后,用戶(hù)單擊 “ 打開(kāi)打印對(duì)話(huà)框 ” 命令按鈕,屏幕上出現(xiàn)一個(gè) “ 打印 ” 對(duì)話(huà)框(如圖 示)??梢钥闯觯簣D中各項(xiàng)的初始值是在設(shè)計(jì)階段在 “ 屬性頁(yè) ” 中指定的(如圖 )。用戶(hù)可以根據(jù)打印需要改變 “ 打印 ” 對(duì)話(huà)框中的各項(xiàng)值。 圖 81 設(shè)計(jì)一個(gè)程序,當(dāng)單擊窗體時(shí),出現(xiàn)有 3個(gè)按鈕的消息框,如圖 ( a)所示。選擇其中一個(gè)按鈕后,再出現(xiàn)一個(gè)消息框,顯示出所選擇的按鈕,如圖 ( b)所示。 82 設(shè)計(jì)一個(gè)如圖 。窗體上有 6個(gè)標(biāo)簽,其中 3個(gè)標(biāo)簽用來(lái)顯示 “ 數(shù)據(jù) 1”、 “ 數(shù)據(jù) 2”、 “ 數(shù)據(jù) 3”等提示信息。另外 3個(gè)為白色背景有邊框的標(biāo)簽,輸入的數(shù)據(jù)將被顯示在這三個(gè)標(biāo)簽中。窗體上有兩個(gè)命令按鈕: “ 輸入 ” 和 “ 退出 ” 按鈕。 習(xí)題 圖 圖 程序運(yùn)行時(shí),單擊 “ 輸入 ” 按鈕,出現(xiàn) “ 輸入 ” 對(duì)話(huà)框。若輸入的數(shù)據(jù)在 0~100范圍內(nèi),則依次將數(shù)據(jù)寫(xiě)到標(biāo)簽中。如果輸入數(shù)據(jù)超出規(guī)定的范圍,則用消息框提示 “ 是否接受輸入的數(shù)據(jù)? ” ,如圖。若選擇 “ 是 ” ,則將數(shù)據(jù)顯示在標(biāo)簽中,否則重新輸入數(shù)據(jù)。 83 設(shè)計(jì)一個(gè)輸入學(xué)生成績(jī)的窗體。窗體中各控件及屬性如表 (見(jiàn)書(shū) 181頁(yè))所示,窗體外觀如圖 運(yùn)行程序,分別在三個(gè)文本框中輸入數(shù)學(xué)、物理和英語(yǔ)的成績(jī),單擊 “ 統(tǒng)計(jì) ” 按鈕,對(duì)三個(gè)成績(jī)累計(jì)求和,并將計(jì)算結(jié)果顯示在 “ 總分 ” 后面的標(biāo)簽中。單擊 “ 退出 ” 按鈕,結(jié)束程序的運(yùn)行。 圖 圖 84 設(shè)計(jì)一個(gè)程序,能夠改變標(biāo)簽中文本的顏色、字體。窗體外觀如圖 。 單擊 “ 改變顏色 ” 按鈕時(shí),出現(xiàn) “ 顏色 ” 對(duì)話(huà)框,選中某個(gè)顏色并單擊 “ 確定 ” 按鈕后,窗體上標(biāo)簽中文字的顏色被設(shè)置為選中的顏色。如果單擊 “ 改變字體 ” 按鈕,則出現(xiàn) “ 字體 ” 對(duì)話(huà)框。在該對(duì)話(huà)框中設(shè)置字體、字體大小、字體樣式后,窗體上標(biāo)簽中的文字按新設(shè)置的參數(shù)顯示。 圖 85 改進(jìn)題 84中的程序,使其對(duì)顯示在文本框中的文件具有簡(jiǎn)單的編輯功能。在窗體上添加一個(gè)能顯示多行文本的文本框、一個(gè)通用對(duì)話(huà)框和 6個(gè)命令按鈕,界面如圖 。文本框中的文本從一個(gè)文本文件中讀取。單擊 “ 結(jié)束 ” 按鈕時(shí),先保存文本框中的內(nèi)容,再結(jié)束程序的運(yùn)行。 圖 86 設(shè)計(jì)一個(gè)程序,查找指定的字符串。窗體上有一個(gè)文本框和一個(gè)標(biāo)簽框,文本框用于顯示從某個(gè)文件中讀取的文件。標(biāo)簽框顯示 “ 程序進(jìn)入運(yùn)行狀態(tài)后,請(qǐng)單擊窗體 ” 的提示。窗體外觀如圖 示。程序進(jìn)入運(yùn)行狀態(tài)后,彈出 “ 打開(kāi)文件 ” 對(duì)話(huà)框,選擇一個(gè)文件,并將其內(nèi)容顯示在文本框中。單擊窗體,彈出輸入對(duì)話(huà)框。用戶(hù)輸入要查找的字符串后單擊 “ 確定 ” 按鈕,被找到的字符串被涂黑顯示,如果用戶(hù)輸入的字符串沒(méi)有查找到,彈出消息框,告訴用戶(hù)字符串沒(méi)找到。 圖 87 在窗體上畫(huà)一個(gè)文本框。當(dāng)向文本框中輸入一個(gè)數(shù)字字符時(shí),彈出一個(gè)消息框,其標(biāo)題為 “ 輸入提示 ” ,消息框中的提示信息為 “ 輸入的是數(shù)值數(shù)據(jù)! ” ,消息框中只有一個(gè) “ 確定 ” 按鈕。當(dāng)向文本框中輸入一個(gè)字母時(shí)(不論大小寫(xiě)字母),彈出一個(gè)消息框,其標(biāo)題為 “ 輸入提示 ” 消息框中的提示信息為 “ 輸入的是字母! ” ,消息框外觀如圖。 圖 第 9章 圖片框、圖像框和計(jì)時(shí)器 圖片框 圖像框 計(jì)時(shí)器 利用圖片框和計(jì)時(shí)器設(shè)計(jì)簡(jiǎn)單動(dòng)畫(huà) 習(xí)題 【 例 】 在窗體上建立一個(gè)圖片框,將 Visual Basic系統(tǒng)提供的文件 。具 ( 1) 打開(kāi)一個(gè)新工程,選用工具箱中的圖片框工具,在窗體上所需的位置處畫(huà)一圖片框控件,設(shè)名稱(chēng)為 picShow,再添加命令按鈕控件 cmdExit,如圖 。 圖片框 圖 ( 2) 在屬性窗口中選擇圖片框控件 picShow的Picture屬性,這時(shí)在其右側(cè)出現(xiàn)按鈕,用鼠標(biāo)單擊此按鈕,屏幕上出現(xiàn)一個(gè) “ 加載圖片 ” 對(duì)話(huà)框,如圖 。 打開(kāi) C盤(pán)上的 Popular(全路徑名為 c:\Program Files\Microsoft Office\Clipart\ Popular) 子目錄,選擇該目錄中的 ,然后單擊 “ 打開(kāi) ”按鈕,在窗體的圖片框中立即顯示出一圖形,如圖。當(dāng)然也可以選擇任何其他已存在的圖形文件。 圖 圖 ① 位圖( bitmap),文件后綴為 .bmp ② 圖標(biāo)( icon),文件后綴為 .ico ③ Windows元文件( metafile) ,文件后綴為 .wmf。 通常希望圖形能夠充滿(mǎn)圖片框,或者圖形能夠隨著圖片框大小的改變而改變,也就是說(shuō)始終讓圖形的邊界與圖片框的邊界重合??梢酝ㄟ^(guò)設(shè)置圖片框的AutoSize屬性達(dá)到這個(gè)目的。 AutoSize有兩個(gè)值: True和 False。當(dāng) AutoSize屬性的值設(shè)置為 True時(shí),圖片框隨著圖形的實(shí)際大小而自動(dòng)調(diào)整尺寸,以適應(yīng)圖形的尺寸。當(dāng) AutoSize屬性的值設(shè)置為 False時(shí),圖片框不能自動(dòng)調(diào)整尺寸,類(lèi)型為 .wmf的圖形文件會(huì)自動(dòng)調(diào)整大小,以適應(yīng)圖片框的尺寸。如果是 .bmp和 .ico文件,則圖形不會(huì)自動(dòng)調(diào)整大小。 以上是在設(shè)計(jì)階段將圖形以圖形文件的形式裝入圖片框的方法。在設(shè)計(jì)階段將圖形裝入的另一種方法是,使用剪貼板把在各種圖形軟件下制作的圖形粘貼到圖片框中。 【 例 】 使用任何圖形軟件工具制作一個(gè)圖形,然后利用剪貼板將圖形裝入圖片框內(nèi)。具體做法如 ( 1) 用 Windows下任何一種圖形軟件(如CorelDraw﹑ Paintbrush﹑ Photoshop等)畫(huà)出一個(gè)圖形。現(xiàn)在使用 Word 2022來(lái)制作一個(gè)立體的“ Visual Basic” ( 2) 選擇 “ 編輯 ” 菜單中的 “ 復(fù)制 ” 命令 (或“ 編輯 ” /“剪切 ” )命令將該圖形復(fù)制到剪貼板上; ( 3) 關(guān)閉 Word 2022的窗口,打開(kāi) Visual Basic,在窗體上建立一個(gè)圖片框; ( 4) 用 “ 編輯 ” 菜單中的 “ 粘貼 ” 命令將剪貼板上的圖形粘貼到圖片框中(如圖 )。 實(shí)際上,并不是只有用圖形軟件制作的圖形才能裝入圖片框,凡是能放到 Windows剪貼板上的圖形,都可以用 Visual Basic的 “ 編輯 ” /“粘貼 ”
點(diǎn)擊復(fù)制文檔內(nèi)容
畢業(yè)設(shè)計(jì)相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖片鄂ICP備17016276號(hào)-1