图12:对齐选项
添加和删除也直接控制的支持。 BulletIndent属性设置项目符号和文字之间的差距,SelectionBullet属性只是指示控制添加或删除选定的文本:私人小组AddBulletsToolStripMenuItem_Click(BYVAL发件人_作为System.Object的BYVAL作为System.EventArgs E)_把手AddBulletsToolStripMenuItem.ClickrtbDoc.BulletIndent = 10rtbDoc.SelectionBullet = TRUE END SUB 分RemoveBulletsToolStripMenuItem_Click(BYVAL发件人_ 作为System.Object的BYVAL作为System.EventArgs E)_ 把手RemoveBulletsToolStripMenuItem.ClickrtbDoc.SelectionBullet = FALSE END SUB
图12:选项
设置为选定的文本缩进级别也直接支持控制中:Private Sub mnuIndent0_Click(BYVAL发件人为System.Object,_ #System.EventArgs E)把手mnuIndent0.ClickrtbDoc.SelectionIndent = 0 END SUB
图13:缩进选项

应用程序包含一个单独的对话框,用来寻找当前文档内的文本字符串。如果用户选择"查找"菜单"选项,应用程序将创建并显示一个搜索表单的新实例(frmFind.vb)中:Private Sub FindToolStripMenuItem_Click(BYVAL发件人为System.Object,_#System.EventArgs E)把手FindToolStripMenuItem.Click昏暗的新frmFind f视()f.Show() END SUB
同样,如果用户选择"查找和替换菜单选项,应用程序将创建并显示一个查找和替换的新实例(frmReplace.vb):私人小组FindAndReplaceToolStripMenuItem_Click(BYVAL发件人_作为System.Object的BYVAL作为System.EventArgs E)_ 把手FindAndReplaceToolStripMenuItem.Click DIM f视新frmReplace()f.Show()END SUB
打印文档设置为包含当前丰富的文本框控件的内容。为了支持打印预览,页面设置和打印,扩展丰富的文本框控件所做的修改,所有需要做的是打印文件传递到每个相关的标准对话框:私人小组PreviewToolStripMenuItem_Click( BYVAL发件人_ 作为System.Object的BYVAL作为System.EventArgs E)_把手PreviewToolStripMenuItem.ClickPrintPreviewDialog1.Document = PrintDocument1PrintPreviewDialog1.ShowDialog() END SUB 私人小组PrintToolStripMenuItem_Click(BYVAL发件人为System.Object,_ BYVAL E)作为System.EventArgs _ 把手PrintToolStripMenuItem.ClickPrintDialog1.Document = PrintDocument1如果PrintDialog1.ShowDialog()= Windows.Forms.DialogResult.OK然后PrintDocument1.Print()结束如果 END SUB 私人小组mnuPageSetup_Click(BYVAL发件人为System.Object,_#System.EventArgs E)把手mnuPageSetup.Click PageSetupDialog1.Document = PrintDocument1 PageSetupDialog1.ShowDialog() END SUB
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-25592-5.html
我就是个不折不扣的犟种
还有不要说密封没空气
那苏联人死两千万人