# 右下角图示按下滑鼠右键程式有问题！

Posted by Jiun on July 01, 1998 at 23:06:47:

你好：又来问一个右下角图示的问题。

以下的程式 Copy from part of NIcon.bas：

WM_LBUTTONDOWN = &H201
WM_RBUTTONDOWN = &H204

Function WndProcForIcon(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim prevWndProcForIcon As Long
'取回前一个Window procdure所在的位置，这个值是在Nicon.AddNicon中放进去的
prevWndProcForIcon = GetWindowLong(hWnd, GWL_USERDATA)
If Msg = IconMsg Then
If lParam = WM_LBUTTONDOWN Then
Dim mForm As Form
For Each mForm In Forms
If mForm.hWnd = hWnd Then
mForm.Show
End If
Next
End If
'若您按Mosue右键或Double Click等，要执行什么事，请在这里加进来
If lParam = WM_RBUTTONDOWN Then
Dim mForm As Form
For Each mForm In Forms
If mForm.hWnd = hWnd Then
mForm.Show
End If
Next
End If
End If
WndProcForIcon = CallWindowProc(prevWndProcForIcon, hWnd, Msg, wParam, lParam)
End Function

在程式中注解可以加入右键的地方，若是不写入任何东西则没有问题。
但是向我将左键的部分操过来也会造成程式无法启动（当掉）。

请问要如何改，我试过很多次都失败！

谢谢,

Jiun.

Follow Ups:

- Re: 右下角图示按下滑鼠右键程式有问题！ cww 08:37:08 7/03/98 (0)