托盘图标无响应【诡异】
时间:2011-10-25
来源:互联网
我的程序以前加入了最小化到托盘功能,一切正常。
昨天为了让程序美观一点,于是找了一个按钮控件,将窗体上的所有按钮都替换掉,于是界面变美观了。
但是最小化到托盘后,鼠标双击左键和右键均无响应,很奇怪。
补充:鼠标在指向图标时,能显示出程序名。
我想多半是那些按钮控件的原因,但具体原因还是不清楚。请各位高手给点提示,问题有可能出在哪里?
下面是鼠标移动事件的代码:
VB code
昨天为了让程序美观一点,于是找了一个按钮控件,将窗体上的所有按钮都替换掉,于是界面变美观了。
但是最小化到托盘后,鼠标双击左键和右键均无响应,很奇怪。
补充:鼠标在指向图标时,能显示出程序名。
我想多半是那些按钮控件的原因,但具体原因还是不清楚。请各位高手给点提示,问题有可能出在哪里?
下面是鼠标移动事件的代码:
VB code
'============================= '事件:鼠标移动到托盘区图标时 '============================= Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single) If Me.WindowState = 1 Then Dim lMsg As Single lMsg = x / Screen.TwipsPerPixelX Select Case lMsg Case WM_LBUTTONDBLCLK '双击打开窗体 ShowWindow Me.hwnd, SW_RESTORE Me.SetFocus Case WM_RBUTTONUP '在托盘图标上点右键显示菜单 SetForegroundWindow Me.hwnd PopupMenu TuoPan '托盘图标右键菜单 End Select End If End Sub
作者: laskdjflk 发布时间: 2011-10-25
看代码没问题啊
我也是这样写的
我也是这样写的
作者: ningweidong 发布时间: 2011-10-25
是什么按钮控件?说来听听?
作者: Veron_04 发布时间: 2011-10-25
问题的原因我自己找到了,现在写出来,网上这方面的资料很少。
原因是新增加的控件遮挡住了某个点,我采用把每个控件逐个隐藏的方法,最终找到了其中一个按钮的确是遮挡住了。
解决办法:在最小化之前把那个按钮的visble属性设置为false,在窗体出来的时候再改为true。问题解决!
原因是新增加的控件遮挡住了某个点,我采用把每个控件逐个隐藏的方法,最终找到了其中一个按钮的确是遮挡住了。
解决办法:在最小化之前把那个按钮的visble属性设置为false,在窗体出来的时候再改为true。问题解决!
作者: laskdjflk 发布时间: 2011-10-25
的确比较诡异。。。
作者: Veron_04 发布时间: 2011-10-25
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28