右键菜单.frm

来自「定时备份Oracle数据库和文件的程序 支持RAR压缩功能」· FRM 代码 · 共 97 行

VERSION 5.00
Begin VB.Form frmMenu 
   ClientHeight    =   1110
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   2445
   LinkTopic       =   "Form3"
   ScaleHeight     =   1110
   ScaleWidth      =   2445
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu RightMenu 
      Caption         =   "RightMenu"
      Begin VB.Menu mnuResume 
         Caption         =   "恢复(&R)"
      End
      Begin VB.Menu Menu_0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
      End
   End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmMenu
'**说    明：YFHome 版权所有2003 - 2004(C)
'**创 建 人：叶帆
'**日    期：2003年04月25日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：版本1.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**模 块 名：frmMenu
'**说    明：YFHome 版权所有2003 - 2004(C)
'**创 建 人：叶帆
'**日    期：2003年04月17日
'**修 改 人：
'**日    期：
'**描    述：
'**版    本：V1.0
'*************************************************************************
Private Sub mnuAbout_Click()

End Sub

'*************************************************************************
'**函 数 名：mnuExit_Click
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-09-18
'**修 改 人：
'**日    期：
'**版    本：V3.1.50
'*************************************************************************
Private Sub mnuExit_Click()
  Unload Me
  Unload frmMain
End Sub

'*************************************************************************
'**函 数 名：mnuResume_Click
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-09-18
'**修 改 人：
'**日    期：
'**版    本：V3.1.50
'*************************************************************************
Private Sub mnuResume_Click()
  '窗体状态为最小化
    If TheForm.WindowState = vbMinimized Then TheForm.WindowState = TheForm.LastState
    TheForm.Visible = True
    TheForm.SetFocus
   
End Sub