VB这段代码怎么修改,可以双击托盘图标打开程序。()
admin
2023-07-12 02:25:22
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim IMsg As Single
IMsg = X / Screen.TwipsPerPixelX
If IMsg = WM_RBUTTONUP Or IMsg = WM_RBUTTONUP Then Me.PopupMenu sys
'加下面一句!
If IMsg = &H203 Then Me.Show
End Sub
请参阅我的博客:http://hi.baidu.com/zgmg/blog/item/1b965109731ffcb12eddd4a5.html
可能软件注册信息不够,或许你用的绿色版,然后对格式文件进行默认?
没方法,重新装过
版本问题吧!原文件什么版本的?
相关内容