接下来的子程序是一个更有趣的一点,它是用来嵌入到一个图像文件的扩展丰富的文本框文件。该子程序使用一个打开文件对话框,设置过滤器使用的位图,JPEG图片和GIF文件扩展。他们要嵌入到文档中(定义光标插入点放置在),用户可以导航到该文件。分InsertImageToolStripMenuItem_Click(BYVAL发件人_作为System.Object的BYVAL作为System.EventArgs E)_ 把手InsertImageToolStripMenuItem.Click OpenFileDialog1.Title ="即食 - 插入图片Filequot;OpenFileDialog1.DefaultExt ="; rtfquot";OpenFileDialog1.Filter ="位图文件| *. BMP | JPEG文件| *. JPG | GIF文件| *. gifquot;OpenFileDialog1.FilterIndex = 1OpenFileDialog1.ShowDialog() 如果OpenFileDialog1.FileName =""然后退出子尝试DIM strImagePath的String = OpenFileDialog1.FileName 昏暗的图作为图像 IMG = Image.FromFile(strImagePath)Clipboard.SetDataObject(图)DIM DF作为DataFormats.FormatDF = DataFormats.GetFormat(DataFormats.Bitmap)如果Me.rtbDoc.CanPaste(DF)Me.rtbDoc.Paste(DF)结束如果 抓住EX为例外MessageBox.Show("无法插入图像格式selected.quot;,"即食??Pastequot;,MessageBoxButtons.OK,MessageBoxIcon.Error)END TRYEND SUB
图15:嵌入一个图像文件
一旦用户选择了通过打开文件对话框的文件,子程序将创建一个图像,使用Image.FromFile方法。此图片,然后放置到剪贴板,然后粘贴到文档。
主要形式的代码的最后一节是包含在印刷区域。用于打印,由于使用扩展丰富的文本框控件的调用,很简单:私人小组PrintDocument1_BeginPrint(BYVAL发件人为对象,_ BYVAL E)作为System.Drawing.Printing.PrintEventArgs _把手PrintDocument1.BeginPrint"改编自微软的扩展RichTextBox控件的例子" checkPrint = 0 END SUB
BeginPrint子程序是用来设置??CODE> checkPrint??变量在每一个新的打印作业的开始零。
在PrintPage子程序唤起扩展丰富的文本框控件打印的方法,发送当前文档的打印机的整个或选定的部分。还呼吁进行检查,看是否存在比单页更多,它会继续,直到所有的网页已通过打印机打印。用于打印的代码如下:小组PrintDocument1_PrintPage(作为对象BYVAL发件人,_BYVAL E)作为System.Drawing.Printing.PrintPageEventArgs _ 把手PrintDocument1.PrintPage "改编自微软的扩展RichTextBox控件的例子""打印RichTextBox的内容。存储的最后一个字符 打印。checkPrint = rtbDoc.Print(checkPrint,rtbDoc.TextLength,E)"看更多页面如果checkPrint LT; rtbDoc.TextLength然后e.HasMorePages = TRUE其他 e.HasMorePages =假结束如果 END SUB
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-25592-6.html
这不是霸权是什么