vb最小化按钮时程序最小化到托盘再点显示窗体时窗体为何显示不出来, 下面是单击图标代码，急急急急急急！ 5
PrivateSubpichook_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'单击最小化...
Private Sub pichook_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '单击最小化图标显示窗体
Msg = x / Screen.TwipsPerPixelX
If Msg = WM_LBUTTONDOWN Then 'If the user dubbel-clicked on the icon
frmTimer.Show
ElseIf Msg = WM_RBUTTONUP Then 'Right click
frmTimer.PopupMenu menu
'Me.PopupMenu mnuPopUp
End If
End Sub 展开
Msg = x / Screen.TwipsPerPixelX
If Msg = WM_LBUTTONDOWN Then 'If the user dubbel-clicked on the icon
frmTimer.Show
ElseIf Msg = WM_RBUTTONUP Then 'Right click
frmTimer.PopupMenu menu
'Me.PopupMenu mnuPopUp
End If
End Sub 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
