如何得到一个控件的右键的句柄,并将右键蔽屏掉?如FLASH

解决方案 »

  1.   

    Option Explicit
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongFunction FindFlashWindow(ByVal hWndParent As Long) As Long
        FindFlashWindow = FindWindowEx(hWndParent, 0&, "MacromediaFlashPlayerActiveX", "")
    End FunctionPrivate Sub Form_Load()
        Dim hFlash As Long
        hFlash=FindFlashWindow(Form1.hWnd)
    End Sub
    这样就能找到其窗口句柄,然后再子类处理这个窗口,拦截其右键点击事件