vb程序設(shè)計(jì)基礎(chǔ)全套課件vb教程第3章教案(參考版)
2025-01-12 03:42本頁面
【正文】 “顯示標(biāo)簽 ”按鈕 = True 39?！半[藏標(biāo)簽 ”按鈕 = False 39?！案淖兾淖诸伾?”按鈕 Clr = Int(15 * Rnd) 39。文字顏色 = 18 39。設(shè)置焦點(diǎn) End Sub主頁 (1)在窗體上建立一個(gè)標(biāo)簽（ Label1）和三個(gè)命令按鈕 (Command Command2和 Command3) 三個(gè)命令按鈕分別使用訪問鍵 Alt+C、 Alt+H和 Alt+D例 實(shí)現(xiàn)標(biāo)簽的顯示和隱藏 , 以及改變文字的顏色 例 主頁 (2)編寫程序代碼 ? Private Sub Form_Load() Randomize = QBColor(15) 39。清除文本框 Text2的內(nèi)容 = 39?！扒宄?”按鈕 = 39。每次減少 200點(diǎn) = 200 End Sub主頁 在第一個(gè)文本框中輸入文字時(shí)，在另外兩個(gè)文本框中顯示同樣相同的內(nèi)容，但顯示的字號(hào)和字體不同。每次增加 200點(diǎn) = + 200 End Sub Private Sub Command2_Click() 39。設(shè)置窗體的初始位置 = 1000 End Sub Private Sub Command1_Click() 39。Height為窗體的高度， P55 = 4000 39。單擊 “退出 ”按鈕時(shí)，則退出。這種格式可以使用在不需要知道用戶按鈕情況的場合。 2. 不返回值。例如 y = MsgBox(“ 輸入文件名是否正確 ” ,52,” 請(qǐng)確認(rèn)” ) 若 y為 1，表示用戶按下的是 “ 確定 ” 按鈕，依此類推。 先生：祝您馬到功成！ ) End Sub 使用對(duì)話框例 主頁 用于產(chǎn)生一個(gè)能接收用戶輸入的對(duì)話框 格式： 變量 =InputBox(提示 [,標(biāo)題 ][,缺省值 ][,xpos][,ypos]) 舉例 filename$=InputBox(“請(qǐng)輸入文件名 (不超過 8個(gè)字符 )”， ”文件名 ”，”vbfile”)? 將產(chǎn)生一個(gè)如下對(duì)話框 輸入對(duì)話框例 主頁 filename$=InputBox(請(qǐng)輸入文件名 + Chr(13) + (不超過 8個(gè)字符 ), 文件名 , vbfile) 主頁 使用 MsgBox函數(shù)，可以產(chǎn)生一個(gè)對(duì)話框來顯示消息 當(dāng)用戶單擊某個(gè)按鈕后，將返回一個(gè)數(shù)值以標(biāo)明用戶單擊了哪個(gè)按鈕 其語法格式是： 變量 =MsgBox(提示 [,對(duì)話框類型 [,對(duì)話框標(biāo)題 ]])? 例： y = MsgBox(“ 輸入文件名是否正確 ” ,52,” 請(qǐng)確認(rèn) ” ) “ 對(duì)話框類型 ” 一般有 3個(gè)參數(shù)， 4+48+0 出現(xiàn)按鈕；圖標(biāo)類型；默認(rèn)按鈕； 函數(shù)返回值 示例： 消息對(duì)話框例 主頁 1. 返回一個(gè)值。E)” 運(yùn)行時(shí)只要用戶同時(shí)按下 Alt鍵和 E鍵，就能執(zhí)行該按鈕命令 (2) Enabled屬性： 決定控件是否對(duì)用戶產(chǎn)生的事件作出響應(yīng) (3) Visible屬性： 決定控件是否可見，默認(rèn)值為 True主頁 在窗體上已經(jīng)建立了兩個(gè)文本框 Text1和 Text2，并編寫 如下三個(gè)事件過程： Private Sub Form_Click() = P = P + End Sub Private Sub Text1_Change() 180。 文本框 (TextBox)是一個(gè)文本編輯區(qū)域，用戶可以在該區(qū)域中輸入、編輯和顯示文本內(nèi)容。 床前明月光，疑是地上霜 Print Print Spc(6)。例如： ? ′ 把焦點(diǎn)設(shè)置在文本框 Text1 2. Tab鍵序 Tab鍵序是指用戶按 Tab鍵時(shí)，
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1