Función que Deshabilita el Click derecho del ratón en una página visual .net - 30 de Noviembre 2012 - Solo codigos

Bienvenido(a) Visitante | RSS

Mi sitio

Inicio » » Función que Deshabilita el Click derecho del ratón en una página visual .net

9:02 PM

Función que Deshabilita el Click derecho del ratón en una página visual .net

' Función que Deshabilita el Click derecho del ratón en una página.
    '
    '   --> Como entrada recibe la página a la que aplicar la función.

    Public Sub Deshabilitar_ClickDerecho(ByVal pagina As Page)

        Dim strScript As String = ""
        strScript &= "<script language=JavaScript>" & vbCrLf
        strScript &= "var message="""";" & vbCrLf
        strScript &= "function clickIE() {if (document.all) {(message);return false;}}" & vbCrLf
        strScript &= "function clickNS(e) {if " & vbCrLf
        strScript &= "(document.layers||(document.getElementById&&!document.all)) {" & vbCrLf
        strScript &= "if (e.which==2||e.which==3) {(message);return false;}}}" & vbCrLf
        strScript &= "if (document.layers)" & vbCrLf
        strScript &= "{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}" & vbCrLf
        strScript &= "else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}" & vbCrLf
        strScript &= "document.oncontextmenu=new Function(""return false"")" & vbCrLf
        strScript &= "</script>" & vbCrLf

        pagina.ClientScript.RegisterClientScriptBlock(pagina.GetType(), "noClickDerecho", strScript)
        'pagina.RegisterClientScriptBlock("noClickDerecho", strScript)

    End Sub