利用 VB 设计一个文档编辑器 第四次上机作业 管信 1001 班 201003125 杨小娟 一、界面设计 二、程序设计 1、母窗体程序设计 Public Sub filenewproc() Dim newdoc As New Form1 ‘定义文档 Static numchild As Integer numchild = numchild + 1 ‘计数 Page 1 of 4. 

Page 2 of 4. 

Paste.enable = True Case "cu" Clipboard.SetText Form1.RichTextBox1.SelText Form1.RichTextBox1.SelText = "" Case "pa" Form1.RichTextBox1.SelText = Clipboard.GetText Case "bo" Form1.RichTextBox1.SelBold = True Case "it" Form1.RichTextBox1.SelItalic = True Case "un" Form1.RichTextBox1.SelUnderline = True End Select End Sub 2、子窗体程序设计 Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) StatusBar2.Panels(1).Text = "" StatusBar2.Panels(1).Text = "输入文字" StatusBar2.Panels(3).Text = "" ‘显示当前光标所在位置 StatusBar2.Panels(3).Text = Str(x) & Str(y) End Sub 三、总结 本次作业开始的时候有点没有头绪，可以做出来界面，却写不出来对应的程序，后来在网上查 到了相关的程序，就自己修改加了上去，发现可以操作了，于是这之后的程序都可以顺水推舟 的做出来了，同时也积累了在这方面的经验。 Page 3 of 4. 

相关文档： 1:利用 qt 生成 word 文档 2:数据库设计文档 3:软件设计文档 4:设计文档 5:软件详细设计文档 6:详细设计文档 7:系统设计文档 8:设计文档模板 9:架构设计文档 更多文档请访问： https://www.ggdoc.com 用心打造免费、绿色、专业、海量的文库网站 Page 4 of 4.