例9_3.frm

在VB5环境下开发的VB程序集,窗体控件源代码.

VERSION 5.00
Begin VB.Form FRM9_3 
   Caption         =   "菜单创建实例"
   ClientHeight    =   4965
   ClientLeft      =   210
   ClientTop       =   1545
   ClientWidth     =   9150
   LinkTopic       =   "Form1"
   ScaleHeight     =   4965
   ScaleWidth      =   9150
   Begin VB.TextBox TxtTEST 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4455
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   120
      Width           =   8775
   End
   Begin VB.Menu MNUFILE 
      Caption         =   "文件"
      Begin VB.Menu MNUNEW 
         Caption         =   "新建"
      End
      Begin VB.Menu MNUOPEN 
         Caption         =   "打开"
      End
      Begin VB.Menu MNUSAVE 
         Caption         =   "保存"
      End
      Begin VB.Menu MNULINE 
         Caption         =   "-"
      End
      Begin VB.Menu MNUEXIT 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu MNUEDIT 
      Caption         =   "编辑"
      Begin VB.Menu MNUCUT 
         Caption         =   "剪切"
         Shortcut        =   ^C
      End
      Begin VB.Menu MNUCOPY 
         Caption         =   "复制"
      End
      Begin VB.Menu MNUPASTE 
         Caption         =   "粘贴"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu MNUFONT 
      Caption         =   "字体"
      Begin VB.Menu MNUNAME 
         Caption         =   "名字"
         Begin VB.Menu MNUFN 
            Caption         =   "宋体"
            Index           =   1
         End
         Begin VB.Menu MNUFN 
            Caption         =   "仿宋"
            Index           =   2
         End
         Begin VB.Menu MNUFN 
            Caption         =   "黑体"
            Index           =   3
         End
      End
      Begin VB.Menu MNUSIZE 
         Caption         =   "大小"
         Begin VB.Menu MNUFS 
            Caption         =   "10"
            Index           =   1
         End
         Begin VB.Menu MNUFS 
            Caption         =   "20"
            Index           =   2
         End
         Begin VB.Menu MNUFS 
            Caption         =   "30"
            Index           =   3
         End
      End
      Begin VB.Menu MNUBOLD 
         Caption         =   "粗体"
      End
      Begin VB.Menu MNUITALIC 
         Caption         =   "斜体"
      End
   End
End
Attribute VB_Name = "FRM9_3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
FRM9_3.Caption = ""
TxtTEST.Visible = False
End Sub
Private Sub mnunew_Click() '新建文件菜单项的单击事件
FRM9_3.Caption = "新文件"
TxtTEST.Visible = True
TxtTEST.Text = ""
End Sub

Private Sub mnuopen_Click()   '打开文件菜单项的单击事件
FRM9_3.Caption = "打开文件"
OpenFile = InputBox("请输入要打开的文件名") '输入文件全称(含路径及扩展名)
TxtTEST.Visible = True
TxtTEST.Text = ""
    Open OpenFile For Input As #1
 Do While Not EOF(1)
       Line Input #1, Inputdata
       TxtTEST.Text = TxtTEST.Text + Inputdata + Chr(13) + Chr(10)
Loop
Close
End Sub


Private Sub mnuexit_Click()   '退出菜单项的单击事件
End
End Sub

Private Sub mnubold_Click()   '设置字体为粗体
MNUBOLD.Checked = Not MNUBOLD.Checked
TxtTEST.FontBold = MNUBOLD.Checked '根据菜单的复选状态来确定文本是否为粗体
End Sub
Private Sub mnuitalic_Click()   '设置字体为斜体
MNUITALIC.Checked = Not MNUITALIC.Checked
TxtTEST.FontItalic = MNUITALIC.Checked
End Sub

Private Sub MNUSAVE_Click()
FRM9_3.Caption = ""
TxtTEST.Visible = False
SaveFile = InputBox("请输入要保存的文件名")
Open SaveFile For Output As #1
       Print #1, TxtTEST.Text
   Close
End Sub