www.pudn.com > 维文输入法源代码.rar > menu.frm

VERSION 5.00 
Begin VB.Form frm_Menu  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "Form1" 
   ClientHeight    =   360 
   ClientLeft      =   150 
   ClientTop       =   720 
   ClientWidth     =   1500 
   Icon            =   "menu.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "menu.frx":030A 
   ScaleHeight     =   360 
   ScaleWidth      =   1500 
   StartUpPosition =   3  'Windows Default 
   Begin VB.Menu menuPopup  
      Caption         =   "menuPopup" 
      Begin VB.Menu mnPopup  
         Caption         =   "维文输入法" 
         Index           =   0 
      End 
      Begin VB.Menu guan  
         Caption         =   "关于输入法" 
      End 
      Begin VB.Menu tui  
         Caption         =   "退出" 
         Index           =   4 
      End 
   End 
End 
Attribute VB_Name = "frm_Menu" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Dim harep As String 
Dim lenght As Integer 
 
Private Sub guan_Click() 
Form5.Show 
End Sub 
Private Sub mnPopup_Click(Index As Integer) 
Form1.Show 
Dim iconNotify As NOTIFYICONDATA 
End Sub 
Private Sub tui_Click(Index As Integer) 
Dim di As Long 
ReleaseKeyboardHook 
    SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc 
Call RemoveFontResource("jsw.ttf") 
di = SendMessagebynum(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) 
Unload frm_Main 
Unload Form1 
Unload Form2 
End 
End Sub