【文件属性】:
文件名称:文档编辑器
文件大小: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