"字體大小"
字體名稱
"字體顏色顏色"
"是否要選擇粗體FONTBOLD "
"您要選擇斜體嗎?"
"是否選擇下劃線字體下劃線"
"是否要刪除該行的字體刪除線?"
有多種屬性可供用戶選擇,這些屬性應該與richtextbox對象的相關屬性相對應。舉個例子來說明:
Private Sub menuziti_Click()'單擊“字體”菜單代碼公共對話框1。“Cancelerror = true”對錯誤gotolxn的錯誤處理:公共對話框1。flags = cdlceffects或cdlcfboth '來設置選項(必需),
CommonDialog1。' ShowFont '下面兩句是所選RichTextBox1的全部文本內容。
RichTextBox1。SelStart = 0
rich textbox 1 . sellength = len(rich textbox 1 . text)'開始設置字體。
rich textbox 1 . selfontname = common dialog 1 . font name '以下是壹對壹的關系。
RichTextBox1。SelFontSize = common dialog 1。字體大小
RichTextBox1。SelColor = CommonDialog1。顏色
RichTextBox1。SelBold = CommonDialog1。FontBold
RichTextBox1。SelItalic = CommonDialog1。FontItalic
RichTextBox1。sel underline = common dialog 1。字體下劃線
RichTextBox1。selstrike thru = common dialog 1。FontStrikethrulxn:
末端接頭