Método Shell.TileHorizontally

Mosaico todas las ventanas del escritorio horizontalmente. Este método tiene el mismo efecto que hacer clic con el botón derecho en la barra de tareas y seleccionar Ventanas de mosaico horizontalmente.

Sintaxis

iRetVal = Shell.TileHorizontally()

Shell.TileHorizontally() As Integer

Parámetros

Este método no tiene parámetros.

Ejemplos

En el ejemplo siguiente se muestra TileHorizontally en uso. Se muestra un uso adecuado para JScript, VBScript y Visual Basic.

Jscript:

<script language="JScript">
    function fnShellTileHorizontallyJ()
    {
        var objShell = new ActiveXObject("shell.application");
        
        objShell.TileHorizontally();
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellTileHorizontallyVB()
        dim objShell
        
        set objShell = CreateObject("shell.application")
        objShell.TileHorizontally

        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellTileHorizontallyVB()
    Dim objShell As Shell
    
    Set objShell = New Shell
    objShell.TileHorizontally

    Set objShell = Nothing
End Sub

Requisitos