[原创]工作表自画窗体右键菜单

hrbshen

太厉害了

cofe2000

好东西啊，谢谢！ PQSLWWyQ.rar (10.61 KB, 下载次数: 69)

2004-3-15 11:05 上传

点击文件名下载附件

小弟自制的简陋版，呵呵 不要笑啊

[此贴子已经被作者于2004-3-15 11:06:25编辑过]

doyyi

非常好！！！！

fcy

好，又学一招

ldhyob

以下是引用cofe2000在2004-3-14 20:50:00的发言：
好东西啊，谢谢！ 小弟自制的简陋版，呵呵 不要笑啊

呵呵，不错，不过窗体在显示时必须要考虑到初始位置，一般在当前鼠标的右下角，如果当前鼠标位置不能使窗体菜单完全显示时，还必须要考虑到移动调整的问题，这些代码在楼顶帖里已有。

cofe2000

以下是引用ldhyob在2004-3-15 11:40:00的发言：

呵呵，不错，不过窗体在显示时必须要考虑到初始位置，一般在当前鼠标的右下角，如果当前鼠标位置不能使窗体菜单完全显示时，还必须要考虑到移动调整的问题，这些代码在楼顶帖里已有。

谢谢版主的提醒，但是您帖子中的好多代码我还看不懂，请问一下： Option Explicit
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long Private Const HWND_DESKTOP = 0 Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Type POINTAPI
X As Long
Y As Long
End Type 上面的代码是干什么用的，是什么意思啊！

cdrr

是申明API函数，有些问题，在VBA是没法解决的，必须要用API，比如测当前鼠标在屏幕上的具体坐标等等（不过窗体在显示时必须要考虑到初始位置），这些函数就是windows\system\*.dll文件里的东东

[此贴子已经被作者于2004-3-15 19:41:52编辑过]

sunsky

不错，非常不错。

button

很好,期待更多

litingxin

谢谢ldhyob，收藏。