Function EncriptaXOR(ByVal sTexto As String) As String
        Dim i As Integer
        Dim n As Integer
        Dim tmpValor As String
        Dim y As Integer
        'Expresión1     Expresión2       Resultado es
        'True               True            False
        'True               False           True
        'False            & ... Leer más »
Vistas: 385 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

    Public Function CargaScriptPopUp(ByVal sPagDestino As String, ByVal sVentanaPopUp As String, ByVal sPage As Page) As String
        Dim sJava As String

        sJava = "function JavaPopUp(ssLargo,ssAncho,WinWidth,WinHeight,txtCve,txtDes)  " & Chr(13) & _
               " {  " & Chr(13) & _
               " var str2 = ''; " & Chr(13) & _
               " var str1 = '';  " & Chr(13) & _
               " var Argumentos = new Array(str1, str2);  " & Chr(13) & _
               ... Leer más »
Vistas: 364 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

    ' Función que deshabilita la tecla intro en una página.
    '
    Public Sub Deshabilitar_Intro(ByVal pag As Page)

        Dim script As String = String.Empty
        script = "<script language = 'javascript'>"
        script &= "function keydown(){"
        script &= "var keycode = event.keyCode;"
        script &= "if (keycode == 13){"
        script &= "return false;"
        script &= "}"
        script &= "}"
        script &= "document.onkeydown = keydown;"
        script &= "</script>"

   ... Leer más »
Vistas: 348 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

' Función que maximiza el tamaño de la ventana del navegador hasta la resolución
    ' que tenga el cliente establecida.
    '
    '   --> Como entrada recibe la  página a la que aplicar el script.

    Public Sub MaximizarVentana_TamañoPantalla(ByVal pagina As Page)

        Dim strScript As String = ""
        strScript &= "<script language=""JavaScript1.2"">" & vbCrLf
        strScript &= "window.moveTo(0,0);" & vbCrLf
        strScript &= "if (document.all) {" & vbCrLf
        strScript &= "top.window.resizeTo(screen.availWidth,screen.availHeight);" & vbCrLf
        strScript &= "}" & vbCrLf
     ... Leer más »
Vistas: 366 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

' 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
       ... Leer más »
Vistas: 360 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

    ' Función para cerrar la ventana del navegador transcurrido un determinado tiempo.
    '
    ' -->> Como entrada recibe la página a la que aplicar la función y el número de segundos
    '      tras los cuales se cerrará la ventana del navegador.
    '
    Public Sub CerrarPantalla_TimeOut(ByVal pag As Page, ByVal Segundos As Integer)

        Dim strScript As String
        Segundos = Segundos * 1000

        strScript = "<script type=""text/javascript"">" & vbCrLf
        strScript &= "function cerrar() " & vbCrLf
        strScript &= "{" & vbCrLf
        strScript &= "var ventana = wind ... Leer más »
Vistas: 400 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

 Private Sub EnviarMail(ByVal Parametro As String)
        '----------------------------------
        'Datos del correo de GMAIL
        'Usuario:        usuarioGMAIL
        'Password:        GdyivouiIkx
        'codigo de verificación:    34757
        '----------------------------------

            Dim sCadena As Object
            Dim i As Integer

            sCadena = Split(txtListaCorreos.Text.Trim, ";", -1, 1)
            For i = 0 To UBoun ... Leer más »
Vistas: 378 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

Enviar correo desde una página ASPX usando ASP.NET v2.0

En este artículo vamos a ver cómo enviar correos desde páginas de ASP.NET (.aspx), usando las clases del espacio de nombres System.Net.Mail, que so ... Leer más »

Vistas: 438 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

Un ejemplo practico con el cual haras uso de tablas y algoritmos recursivos para recuperar tu información. Esto es aplicable a foros aunque tambien puedes usarlo para información que requiera vinculación padre-hijo en tablas de bd, además de la creacion y uso de controles en tiempo de ejecución.

La idea general parte de una tabla recursiva de la siguiente forma:

... Leer más »

Vistas: 436 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

Un aspecto importante en la construcción de aplicaciones Web es la navegación entra páginas y el uso de link, que en conjunto unen las páginas de nuestra aplicación haciendo de esta un todo. De lo contrario tendríamos páginas aisladas que no se podrí ... Leer más »

Vistas: 521 | Agregado por: miket | Fecha: 11.30.2012 | Comentarios (0)

« 1 2 3 4 »
Domingo, 05.19.2024, 2:08 AM
Menú del sitio
Formulario de entrada
Búsqueda
Archivo de registros
Estadística

Total en línea: 1
Invitados: 1
Usuarios: 0
Calendario
«  Mayo 2024  »
LuMaMiJuViSaDo
  12345
6789101112
13141516171819
20212223242526
2728293031
 






Copyright nientiendo © 2024 Miguel A. Vallejo Duran