文件名称：VB替换右键菜单按ALT F4强制关闭.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 11:28:30
VB源码-窗体界面
VB6.0新建右键菜单，替换掉原窗口中的右键菜单，原窗口的右键菜单貌似是Flash文件，现在可以替换成自定义的右键菜单，vb替换flash右键菜单，自定义右键菜单。处理鼠标操作代码如下： Public Function MyWindowProc(ByVal HW As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If uMsg = WM_RBUTTONDOWN Then Form1.Caption = "鼠标右键按下" Form1.PopupMenu Form1.mnuPop Exit Function ElseIf uMsg = WM_RBUTTONUP Then Form1.Caption = "鼠标右键抬起" Exit Function ElseIf uMsg = WM_KEYDOWN Then Form1.Caption = "按键按下" End If MyWindowProc = CallWindowProc(glPrevWndProc, HW, uMsg, wParam, lParam) End Function Public Function SubClass() As Long SubClass = SetWindowLong(FHW, GWL_WNDPROC, AddressOf MyWindowProc) Form1.Caption = "当前已自定义了Flash的右键菜单" End Function
【文件预览】：
codesc.net
----setflashMenu()
--------Enumwin.vbp(828B)
--------Module1.bas(981B)
--------Form1.frm(4KB)
--------Enumwin.vbw(109B)
--------MSSCCPRJ.SCC(192B)
--------Module2.bas(1KB)
--------Dispablerightclick.swf(4KB)