frmmenu.frm

利用VB＋MAPX 制作浮点图标

VERSION 5.00
Begin VB.Form FrmMenu 
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu mnu_file 
      Caption         =   "file"
      Begin VB.Menu mnu_xx1 
         Caption         =   "导入东方快车汉化包"
      End
      Begin VB.Menu xx1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xx2 
         Caption         =   "用户词库维护"
      End
      Begin VB.Menu xx2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xx3 
         Caption         =   "设置系统热键"
      End
      Begin VB.Menu xx3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xx4 
         Caption         =   "多内码转换"
      End
      Begin VB.Menu mnu_xx5 
         Caption         =   "保存窗口内容"
      End
      Begin VB.Menu xx4 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xx6 
         Caption         =   "汉字输入"
      End
      Begin VB.Menu xx5 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xx7 
         Caption         =   "关于东方快车"
      End
      Begin VB.Menu a1 
         Caption         =   "-"
      End
      Begin VB.Menu shutdown 
         Caption         =   "关闭系统"
      End
      Begin VB.Menu xx6 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_exit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "FrmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub mnu_exit_Click()
If MsgBox("真的退出系统吗？", vbQuestion + vbOKCancel, "退出提示") = vbOK Then
    t.cbSize = Len(t)
    t.hWnd = Frmfloat.Picture2.hWnd
    t.uId = 1&
    Shell_NotifyIcon NIM_DELETE, t
     End
End If

End Sub