可視化程序設(shè)計vb題目應(yīng)用程序界面設(shè)計(編輯修改稿)
2025-02-03 04:29 本頁面
【文章內(nèi)容簡介】 ate Sub mnuBold_Click() = Not 39。 切換狀態(tài) = 39。 根據(jù)菜單項的值決定是否加黑顯示 End Sub Private Sub mnuItalic_Click() = Not = 39。 是否斜體 End Sub Private Sub mnuKaiTi_Click() = False 39。 取消對宋體選擇 = True 39。 選擇楷體 = 楷體 _GB2312 39。 設(shè)置文本框的字體為楷體 End Sub Private Sub mnuSongTi_Click() = True 39。 取消對楷體選擇 = False 39。 選擇宋體 = “宋體 39。 設(shè)置文本框的字體為宋體 End Sub ? 菜單項屬性的動態(tài)設(shè)置 ? 可以動態(tài)地設(shè)置的菜單項屬性包括 Checked、Enabled、 Visible等 ? 菜單的復(fù)選標(biāo)志 ? 菜單的有效性 ? Clipboard的四個常用方法： ? settext:將文本內(nèi)容送到剪貼版 ? setdata:將非文本內(nèi)容送到剪貼版（如圖片） ? gettext:從剪貼板得到文本信息 ? getdata:從剪貼板得到非文本信息 Private Sub SetEditMenu() 39。 設(shè)置編輯菜單的有效性 Dim b As Boolean b = IIf( 0, True, False) 39。 是否有文本被選中 = b 39。 如果以選中若干字符 ， 則剪切 、 復(fù)制命令有效 = b 39。 否則 ， 不能進行類似操作 39。 根據(jù)剪貼板中是否文本 ， 決定能否實施粘貼操作 39。 ClipBoard是系統(tǒng)對象 ， 代表剪貼板 ， 其 GetText方法用于返回剪貼板上的字符 = IIf(Len() 0, True, False) End Sub Private Sub mnuAll_Click() = 0 39。 設(shè)置從第 1個字符開始的文本被選中 = Len() 39。 選中所有字符 SetEditMenu 39。 設(shè)置 “ 復(fù)制 ” 、 “ 剪切 ” 菜單項 ， 使他們有效 End Sub 39。 以下過程在單擊鼠標(biāo)后觸發(fā) Private Sub txtContent_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) SetEditMenu 39。 判斷是否選中了文本 End Sub Private Sub mnuCopy_Click() 39。 復(fù)制 39。 將選中的文本復(fù)制到剪貼板上 End Sub Private Sub mnuCut_Click() 39。 剪切 39。 將選中的文本復(fù)制到剪貼板上 = 39。 并刪除選中的文本 End Sub Private Sub mnuPaste_Click() 39。 粘貼 Dim s1 As String, s2 As String Dim loc As Integer loc = 39。 讀取
高考資料相關(guān)推薦
鄂ICP備17016276號-1