VB菜單、通用對(duì)話框習(xí)題.ppt

1、1.下列不能打開菜單編輯器的操作是（ ） A按Ctrl+E 鍵 B單擊工具欄中的“菜單編輯器”按鈕 C執(zhí)行“工具”菜單中的“菜單編輯器”命令 D按Shift+Alt+M鍵 2.假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用的語句為（ ） AMenuitem.Enabled=False BMenuitem.Enabled=True CMenuitem.Visible=True DMenuitem.Visible=False,第十一章 菜單程序設(shè)計(jì)練習(xí)題,D,A,3.在VB中可以建立 菜單和 菜單。 4.菜單編輯器可分為3個(gè)部分，即 、 、 。 5.如果要把某個(gè)

2、菜單項(xiàng)設(shè)計(jì)為分隔線，則該菜單項(xiàng)的標(biāo)題應(yīng)設(shè)置為 。 6.在菜單編輯器中，菜單項(xiàng)后面4個(gè)小點(diǎn)的含義是 。 7.建立彈出式菜單所使用的方法是 。,下拉式,彈出式,數(shù)據(jù)區(qū),編輯區(qū),菜單顯示區(qū),-,內(nèi)縮符號(hào),popupmenu,1.為了把通用對(duì)話框控件加到工具箱中，應(yīng)在“工程”菜單中選擇“部件”命令，彈出“部件”對(duì)話框，在“部件”對(duì)話框的“控件”選項(xiàng)卡中選擇 。 2.建立打開文件、保存文件、顏色、字體和打印對(duì)話框所使用的方法分別為 Showopen、 Showsave、 Showcolor 、Showfont 。如果使用Action屬性，則應(yīng)把該屬性的值分別設(shè)置為 。 3.假定在窗體上建立了一個(gè)通用對(duì)話

3、框，其名稱為CommonDialog1，用下面的語句可以建立一個(gè)對(duì)話框。 Commondialog1.Action=2 與該語句等價(jià)的語句是（ ） A. CommonDialog1.ShowOpen B. Commondialog1.ShowSave C. CommonDialog1.ShowColor D. Commondialog1.ShowFont,第十二章 對(duì)話框程序設(shè)計(jì)練習(xí)題,Microsof tCommon Dialogcontrol 6.0,1、2、3、4、5,B,4. 在對(duì)話框中，F(xiàn)ileName和FileTitle屬性的主要區(qū)別是 路徑是否完整，假定有一個(gè)名為“fn.exe”

4、的文件，它位于“C:abcdef”目錄下，則FileName 屬性的值為 ；FileTitle屬性的值為 。 5.假定在窗體上有一個(gè)通用對(duì)話框，其名稱為CommonDialog1，為了建立一個(gè)打開文件對(duì)話框，則需要把 屬性設(shè)置為 ，其等價(jià)的方法是 。,C:abcdeffn.exe,fn.exe,Action,1,ShowSave,6.在窗體上畫一個(gè)通用對(duì)話框，其名稱為commondialog1，然后畫一個(gè)命令按鈕，并編寫如下事件過程： Private Sub Command1_Click() CommonDialog1.Filter = all files(*.*)|*.*|text file

5、s|*.txt|bat files(*.bat)|*.bat CommonDialog1.filterindex = 2 CommonDialog1.showopen MsgBox CommonDialog1.FileName End Sub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”框中顯示的是（ ） A.All Files(*.*) B.Text Files(*.txt) C.Bath Files(*.bat) D.不確定 答案：B,7.在窗體上畫一個(gè)命令按鈕和一個(gè)通用對(duì)話框，其名稱分別為command1和commondialog1，然后編寫如下代碼： Priva

6、te Sub Command1_Click() CommonDialog1.FileName = CommonDialog1.Flags = vbofnfilemustexist CommonDialog1.Filter = all files|*.*|(*.exe)|*.exe|(*.text)|*.txt|(*.doc)|*.doc CommonDialog1.filterindex = 4 CommonDialog1.DialogTitle = open file(*.exe) CommonDialog1.Action = 1 If CommonDialog1.FileName = Then MsgBox no file selected, 37, checking Else 對(duì)所選擇的文件進(jìn)行處理 End If End Sub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)對(duì)話框。 1）該對(duì)話框的標(biāo)題是 open file(*.exe) 。 2）該對(duì)話框“文件類型”框中顯示的內(nèi)容是 *.doc 。 3）單擊“文件類型”框右端的剪頭，下拉顯示的內(nèi)容是 all fil