第9章菜單與對(duì)話框-文庫(kù)吧資料
2025-07-30 02:06本頁(yè)面
【正文】 C:\Windows\System\ 中 ， 名稱為 “ Microsoft Common Dialog Control ”。 ? 公共對(duì)話框 “ 公共對(duì)話框 ” （ Common Dialog） 控件為用戶提供了一組標(biāo)準(zhǔn)的系統(tǒng)對(duì)話框 ， 可以使用它進(jìn)行打開或保存文件 、 設(shè)置打印選項(xiàng) 、 選擇各種顏色以及選擇字體等的操作 。 【 例 94】 在例 91中實(shí)現(xiàn)彈出式菜單 （ 如圖 97） 。 為創(chuàng)建一個(gè)不顯示在菜單欄里的菜單 ， 可在設(shè)計(jì)時(shí)使頂級(jí)菜單項(xiàng)目為不可見 （ 保證在菜單編輯器里的 “ Visible”復(fù)選框沒有被選上 ） 。 表 95 位置常數(shù) 表 96 行為常數(shù) 位置常數(shù) 說明 0（默認(rèn)） 菜單左上角位于 X 4 菜單上框中央位于 X 8 菜單右上角位于 X 行為常數(shù) 說明 0（默認(rèn)） 菜單命令只接受右鍵單擊 2 菜單命令可接受左、右鍵單擊 [〈 窗體名 〉 .] PopupMenu〈 菜單名 〉 [, flags [,x [, y [, boldmand ]]]] Boldmand參數(shù)可以指定在顯示的彈出式菜單中想以粗體字體出現(xiàn)的菜單項(xiàng)的名稱 。 Private Sub fname_Click(Index As Integer) Select Case Index Case 1 = 宋體 Case 2 = 隸書 Case 3 = 楷體 _GB2312 Case 4 = 黑體 End Select For Each x In fname = IIf( = Index, False, True) Next End Sub 如果改為影藏： = IIf( = Index, False, True) 彈出式菜單 彈出式菜單能以靈活的方式為用戶提供更加便利的操作 ， 它可以根據(jù)用戶單擊鼠標(biāo)右鍵時(shí)的位置 ， 動(dòng)態(tài)地調(diào)整菜單項(xiàng)的顯示位置 ， 同時(shí)也改變菜單項(xiàng)顯示內(nèi)容 ， 因此彈出式菜單又稱為 “ 上下文菜單 ” 或 “ 快捷菜單 ” 。 【 例 93】 在例 92中 ， 當(dāng)前文本的字體在菜單中被關(guān)閉 ——菜單項(xiàng)呈灰色 ， 可以選擇未被選擇的字體 。 Private Sub fname_Click(Index As Integer) Select Case Index Case 1 = 宋體 Case 2 = 隸書 Case 3 = 楷體 _GB2312 Case 4 = 黑體 End Select End Sub 刪除原 “ 文本風(fēng)格 ” 中 3個(gè)菜單選項(xiàng)的 Click事件代碼 ，編寫 “ 文本風(fēng)格 ” 菜單中的菜單控件數(shù)組 Styly的 Click事件代碼： Private Sub Styly_Click(Index As Integer) Styly(Index).Checked = Not Styly(Index).Checked Select Case Index Case 1 = Styly(Index).Checked Case 2 = Styly(Index).Checked Case 3 = Styly(Ind
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1