FirstFrm.frm

VERSION 5.00 Begin VB.Form FirstFrm BorderStyle = 3 'Fixed Dialog ClientHeight = 5340 ClientLeft = 7320 ClientTop = 5655 ClientWidth = 7995 ControlBox = 0 'False Icon = "FirstFrm.frx":0000 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5340 ScaleWidth = 7995 ShowInTaskbar = 0 'False StartUpPosition = 2 '屏幕中心 Begin VB.Timer Timer Interval = 2000 Left = 3360 Top = 0 End Begin VB.Label Lab Height = 495 Index = 2 Left = 5640 TabIndex = 2 Top = 4680 Width = 1935 End Begin VB.Label Lab AutoSize = -1 'True Caption = "数据载入中，请稍后....." BeginProperty Font Name = "华文行楷" Size = 21.75 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 450 Index = 1 Left = 1680 TabIndex = 1 Top = 3240 Width = 4665 End Begin VB.Label Lab Alignment = 2 'Center AutoSize = -1 'True Caption = "欢迎使用VRSW系统" BeginProperty Font Name = "华文行楷" Size = 42 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 885 Index = 0 Left = 480 TabIndex = 0 Top = 840 Width = 7095 End Begin VB.Image Img Height = 195 Index = 2 Left = 2760 Picture = "FirstFrm.frx":74F2 Top = 0 Visible = 0 'False Width = 195 End Begin VB.Image Img Height = 195 Index = 1 Left = 1560 Picture = "FirstFrm.frx":773C Top = 0 Visible = 0 'False Width = 195 End Begin VB.Image Img Height = 195 Index = 0 Left = 360 Picture = "FirstFrm.frx":7986 Top = 0 Visible = 0 'False Width = 195 End Begin VB.Menu M_Menu Caption = "" Begin VB.Menu M_Hiden Caption = "隐藏" Enabled = 0 'False End Begin VB.Menu M_Show Caption = "显示" End Begin VB.Menu M_Slit Caption = "-" End Begin VB.Menu M_Exit Caption = "退出" End End End Attribute VB_Name = "FirstFrm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private MHwnd As Long Private SHand As Long Private lRet As Long Private Sub Form_Load() Lab(2) = "版本号：" & App.Major & "." & App.Minor & "." & App.Revision & Chr(13) & Chr(10) & _ "作者：caozhenyu" & vbNullChar '============================================================System Tray Begin With nfIconData .hWnd = Me.hWnd .uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle '定义鼠标移动到托盘上时显示的Tip .szTip = App.Title + Chr(13) & Chr(10) & App.Major & "." & App.Minor & "." & App.Revision & vbNullChar .cbSize = Len(nfIconData) End With Call Shell_NotifyIcon(NIM_ADD, nfIconData) '=============================================================System Tray End '菜单中添加图标 MHwnd = GetMenu(Me.hWnd) SHand = GetSubMenu(MHwnd, 0) lRet = SetMenuItemBitmaps(SHand, 0, MF_BYPOSITION, Img(0).Picture, Img(0).Picture) lRet = SetMenuItemBitmaps(SHand, 1, MF_BYPOSITION, Img(1).Picture, Img(1).Picture) lRet = SetMenuItemBitmaps(SHand, 3, MF_BYPOSITION, Img(2).Picture, Img(2).Picture) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call Shell_NotifyIcon(NIM_DELETE, nfIconData) End Sub '有问题,在启动窗体上也会出现菜单！ Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim lMsg As Single lMsg = x / Screen.TwipsPerPixelX Select Case lMsg 'Case WM_LBUTTONUP 'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家" '单击左键，显示窗体 'ShowWindow Me.hwnd, SW_RESTORE '下面两句的目的是把窗口显示在窗口最顶层 'Me.Show 'Me.SetFocus Case WM_RBUTTONUP SetForegroundWindow MainFrm.hWnd '关键是这个函数,加上它之后,弹出菜单就会消失!! PopupMenu M_Menu '如果是在系统Tray图标上点右键，则弹出菜单MenuTray '' Case WM_MOUSEMOVE '' Case WM_LBUTTONDOWN Case WM_LBUTTONDBLCLK ShowWindow Me.hWnd, SW_RESTORE MainFrm.Hide '' Case WM_RBUTTONDOWN '' Case WM_RBUTTONDBLCLK '' Case Else End Select End Sub Private Sub Timer_Timer() Me.Hide Timer.Enabled = False MainFrm.Show End Sub '以下3个函数是菜单函数 Private Sub M_Exit_Click() Call Shell_NotifyIcon(NIM_DELETE, nfIconData) End End Sub Private Sub M_Hiden_Click() Me.Hide MainFrm.Show M_Show.Enabled = True M_Hiden.Enabled = False End Sub Private Sub M_Show_Click() ShowWindow Me.hWnd, SW_RESTORE MainFrm.Hide M_Show.Enabled = False M_Hiden.Enabled = True End Sub

版权声明：本文为博主原创文章，未经博主允许不得转载。