Metodo Shell.TileHorizontally

Riquadri di tutte le finestre sul desktop orizzontalmente. Questo metodo ha lo stesso effetto di fare clic con il pulsante destro del mouse sulla barra delle applicazioni e selezionare Finestre affiancate orizzontalmente.

Sintassi

iRetVal = Shell.TileHorizontally()

Shell.TileHorizontally() As Integer

Parametri

Questo metodo non presenta parametri.

Esempio

L'esempio seguente mostra TileHorizontally in uso. Viene visualizzato un utilizzo appropriato per JScript, VBScript e 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

Requisiti