ShellWindows.Item, méthode

Article
06/13/2023

Récupère un objet InternetExplorer qui représente la fenêtre Shell.

Syntaxe

retVal = ShellWindows.Item(
  [ iIndex ]
)

Paramètres

iIndex [in, facultatif]

Type : Variant

Index de base zéro de l'élément à récupérer. Cette valeur doit être inférieure à la valeur de la propriété Count . Si cette valeur est omise, une valeur par défaut de 0 est utilisée.

Valeur retournée

Type : IDispatch**

Référence d’objet à l’objet InternetExplorer qui représente la fenêtre Shell.

Exemples

L’exemple suivant utilise Item pour récupérer l’objet InternetExplorer qui représente le premier élément de fenêtre Shell. Une utilisation correcte est indiquée pour JScript, VBScript et Visual Basic.

Jscript:

<script language="JScript">
    function fnShellWindowsItemJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var objShellWindows;
        
        objShellWindows = objshell.Windows();
        if (objShellWindows != null)
        {
            var objIE;
            objIE = objShellWindows.Item();

            if (objIE != null)
            {
                alert(objIE.path());
            }
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellWindowsItemVB()
        dim objShell
        dim objShellWindows
        
        set objShell = CreateObject("shell.application")
        set objShellWindows = objshell.Windows()

        if (not objShellWindows is nothing) then
            dim objIE
            set objIE = objShellWindows.Item

            if (not objIE is nothing) then
                Wscript.Echo objIE.path
            end if

            set objIE = nothing
        end if

        set objShellWindows = nothing
        set objShell = nothing
    end function
 </script>

Visual Basic :

Private Sub fnShellWindowsItemVB()
    Dim objShell        As Shell
    Dim objShellWindows As ShellWindows
    
    Set objShell = New Shell
    Set objShellWindows = objshell.Windows()

    If (Not objShellWindows Is Nothing) Then
        Dim objIE As InternetExplorer
        Set objIE = objShellWindows.Item

        If (Not objIE Is Nothing) Then
            Debug.Print objIE.Path
        End If

        Set objIE = Nothing
    End If

    Set objShellWindows = Nothing
    Set objShell = Nothing
End Sub

Spécifications

Condition requise	Valeur
Client minimal pris en charge	Windows 2000 Professionnel, Windows XP [applications de bureau uniquement]
Serveur minimal pris en charge	Windows 2000 Server [applications de bureau uniquement]
En-tête	Exdisp.h
DLL	Shell32.dll (version 4.71 ou ultérieure)

Partager via