正常的字体菜单选项,返回所选的文本以一个正常的,朴实的格式:??小组NormalToolStripMenuItem_Click(BYVAL发件人以_System.Object的,BYVAL E)作为System.EventArgs _把手NormalToolStripMenuItem.Click如果不rtbDoc.SelectionFont是NothingDIM currentFont System.Drawing.Font = rtbDoc.SelectionFont DIM newFontStyle作为System.Drawing.FontStyle newFontStyle = FontStyle.Regular rtbDoc.SelectionFont =新字体(currentFont.FontFamily,_currentFont.Size,newFontStyle)结束如果 END SUB
菜单选项用于设置页面的颜色是用来揭露一个颜色对话框的用户,如果用户选择了一种颜色的形式对话框,丰富的文本框控件的背景色设置为这种颜色。支持此功能的代码如下:私人小组PageColorToolStripMenuItem_Click(BYVAL发件人_作为System.Object的BYVAL作为System.EventArgs E)_ 把手PageColorToolStripMenuItem.ClickColorDialog1.Color = rtbDoc.BackColor 如果ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK然后rtbDoc.BackColor = ColorDialog1.Color结束如果 END SUB
图11:在使用颜色对话框
接下来的三个部分的代码地址设置水平对齐文件属性,以支持左,居中或右的选定文本的理由。这些对齐控制选项都直接支持通过控制中:Private Sub LeftToolStripMenuItem_Click_1(BYVAL发件人_ 作为System.Object的BYVAL作为System.EventArgs E)_ 把手LeftToolStripMenuItem.ClickrtbDoc.SelectionAlignment = HorizontalAlignment.Left END SUB 分CenterToolStripMenuItem_Click_1(BYVAL发件人_ 作为System.Object的BYVAL作为System.EventArgs E)_ 把手CenterToolStripMenuItem.ClickrtbDoc.SelectionAlignment = HorizontalAlignment.Center END SUB 私人小组RightToolStripMenuItem_Click_1(BYVAL发送者_System.Object的,BYVAL E)作为System.EventArgs _把手RightToolStripMenuItem.ClickrtbDoc.SelectionAlignment = HorizontalAlignment.Right END SUB
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-25592-4.html
这是亮剑精神