第 1 頁:選擇題 |
第 5 頁:操作題 |
第 6 頁:參考答案 |
二、基本操作題
(1)通用對話框(CommonDialog)提供諸如打開文件、保存文件、設(shè)置打印選項、選擇顏色、設(shè)置字體、顯示幫助等撰作的一組標(biāo)準對話框,通用對話框顯示這些對話框?qū)?yīng)的方法分別為ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。該控件運行時不可見。通用對話框的Action屬性也可用于設(shè)置被打開對話框的類型。
根據(jù)題意,新建“標(biāo)準EXE”工程,一個命令按鈕和一個文件對話框控件添加到窗體中,CommonDialog 控件需要選擇“工程”一“部件”命令,或在左側(cè)工具箱中單擊鼠標(biāo)右鍵,選擇“部件”菜單,打開“部件”對話框,將Microsoft Common Dialog Control 6.0前面的復(fù)選按鈕勾上,單擊“確定”按鈕,則添加成功,再同其他控件一樣添加到窗體上,其名稱為CommonDialog1。命令按鈕的名稱為Command1、Caption屬性為“打開文件”。雙擊Command1進入代碼窗口,編寫如下代碼:
Private Sub Command1_Click()
CommonDialog1.ShowOpen ’打開CommonDialog
End Sub
單擊 按鈕運行程序,并按要求保存。
(2)MsgBox()函數(shù)用于顯示提示信息,并可返回一個代表用戶點擊了哪個按鈕的Integer類型值,其常用語法為:MsgBox(prompt[-,buttons3[,title])。其中,prompt參數(shù)為消息框的提示信息;buttons參數(shù)用于控制消息框中按鈕的數(shù)目、形式及消息框圖標(biāo)的樣式;title參數(shù)為消息框標(biāo)題欄上顯示的內(nèi)容。
根據(jù)題意,新建“標(biāo)準EXE”工程,將一個List控件添加到窗體中,其名稱為List1、List屬性中添加“I tem1”、“Item2”、“Item3”和“Item4”。雙擊List1進入代碼編寫窗口補充后的代碼如下:
Private Sub List1_DblClick()
Dim a As Integer
a=MsgBox("是否刪除",vbYesNo)
’彈出提示對話框
If a=6 Then’6表示選擇“是”
List1.RemoveItem List1.ListIndex’刪除選中項
Entl If
End Sub
單擊 按鈕運行程序,并按要求保存。
相關(guān)推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |