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 可能软件注册信息不够,或许你用的绿色版,然后对格式文件进行默认?
没方法,重新装过 版本问题吧!原文件什么版本的?

相关内容

热门资讯

原创 L... 随着LOL全球各大赛区第二赛段的赛程逐渐进行,距离2026 MSI正式打响的日子也越来越近。然而在即...
《寂静岭f》全球累计出货量突破... KONAMI宣布《寂静岭f》全球累计出货量突破200万份,《寂静岭2 重制版》累计玩家数也突破600...
庄静皇贵妃什么时候入宫的?她与... 说到慈禧小编相信很多人都是知道的,慈禧是中国历史上很厉害的一个人物,当时的慈禧是很厉害的,据说当时的...