form1.frm

来自「大量优秀的vb编程」· FRM 代码 · 共 53 行

VERSION 5.00
Object = "{15F8A61A-A8F0-11D2-8350-DA7378C7D4D3}#1.1#0"; "TRAYFORM.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2352
   ClientLeft      =   132
   ClientTop       =   708
   ClientWidth     =   3480
   LinkTopic       =   "Form1"
   ScaleHeight     =   2352
   ScaleWidth      =   3480
   StartUpPosition =   3  'Windows Default
   Begin TrayFormControl.TrayForm TrayForm1 
      Left            =   960
      Top             =   1080
      _ExtentX        =   1651
      _ExtentY        =   635
      TrayButton      =   0   'False
      MinimizeToTray  =   -1  'True
      Icon            =   "Form1.frx":0000
      ToolTip         =   "单击右键可以恢复窗体的现实"
   End
   Begin VB.Menu munTray 
      Caption         =   "系统托盘"
      Begin VB.Menu mnuRestore 
         Caption         =   "恢复显示"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Set TrayForm1.Menu = munTray
    Set TrayForm1.Icon = Icon
End Sub

Private Sub mnuExit_Click()
Unload Me

End Sub

Private Sub mnuRestore_Click()
    TrayForm1.RestoreFromTray
    
End Sub