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
版权声明:本文为博主原创文章,未经博主允许不得转载。
分享到:
相关推荐
在网上搜索了半天,最简单的办法是在新的数据库中创建和原名字一样的数据库,然后把.frm 文件拷贝进去就OK了。 可是,有些时候这样不行,查询的时候会出现某某表不存在的问题,在确认.frm ,db.opt 文件完整的情况下...
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA...
恢复数据库_把后缀.frm,.myd,myi转换为.sql导入mysql数据库
MySQl 通过.frm 和 .ibd文件恢复数据
.frm文件是用来保存每个数据表的元数据(meta)信息,包括表结构的定义等,.frm文件跟数据库存储引擎无关,也就是任何存储引擎的数据表都必须有.frm文件,命名方式为数据表名.frm,如user.frm. .frm文件可以用来在...
.archadmin.frm
proe标准图框a0
db.frmdb.文件
定时关机.frm
记一次mysql根据.frm.ibd文件恢复数据 背景: 公司用的阿里云mysql 5.6数据库,阿里云的控制台上做了两天一备份的设置。当我发现我误操作drop了一张表之后,我从控制台上下载了备份的压缩包,解压之后拿到我drop的那...
仅根据mysql的.frm文件恢复出表结构 1、使用到的工具 mysqlfrm 2、安装mysql-utilities-1.6.5-winx64.exe 和?vcredist_x64.exe 3、管理员权限打开cmd cd 进入 %mysql-utilities-HOME%/ 运行: mysqlfrm --server=...
...........\frmCKSetup.frm ...........\frmCKSetup1.frm ...........\frmDH.frm ...........\frmDH1.frm ...........\frmGET.frm ...........\frmGET1.frm ...........\frmGF.frm ............
系列切换.frm
当数据库损坏时,可以使用该工具,读取data文件夹下的frm文件,并生成数据结构的sql文件。 解压密码:zcgonvh
VB1.frm
Form1.frm
系统首页.frm
轮播目录齿轮.frm
tb_reader.frm