文档编辑器

【文件属性】：

文件名称：文档编辑器

文件大小：3KB

文件格式：TXT

更新时间：2016-06-19 06:12:10

代码

Private Sub Form_Load() '状态栏显示工程文件路径 StatusBar1.Panels(1).Text = App.Path End Sub Private Sub mnuAbout_Click() '帮助菜单 Text1.Text = "菜单（Menu）是Windows窗口的基本组成部分，大多数应用程序都有菜单，菜单中包含着各种命令的集合，Visual Basic允许用户为程序中的每个窗体创建一个独立的菜单系统，菜单包括下拉菜单和弹出式菜单。菜单（Menu）是Windows窗口的基本组成部分，大多数应用程序都有菜单，菜单中包含着各种命令的集合，Visual Basic允许用户为程序中的每个窗体创建一个独立的菜单系统，菜单包括下拉菜单和弹出式菜单。" End Sub Private Sub mnuBackColor_Click() '背景色设置 CommonDialog1.Action = 3 Text1.BackColor = CommonDialog1.Color End Sub Private Sub mnuCopy_Click() '复制 Clipboard.SetText Text1.SelText End Sub Private Sub mnuCut_Click() '剪贴 Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub Private Sub mnuExit_Click() '退出 End End Sub Private Sub mnuFont_Click() '字体设置 CommonDialog1.Flags = 1 CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic End Sub