Bagikan melalui


Metode ShellWindows.Item

Mengambil objek InternetExplorer yang mewakili jendela Shell.

Sintaks

retVal = ShellWindows.Item(
  [ iIndex ]
)

Parameter

iIndex [in, opsional]

Jenis: Varian

Indeks berbasis nol dari item yang akan diambil. Nilai ini harus kurang dari nilai properti Hitung . Jika nilai ini dihilangkan, nilai default 0 akan digunakan.

Menampilkan nilai

Jenis: IDispatch**

Referensi objek ke objek InternetExplorer yang mewakili jendela Shell.

Contoh

Contoh berikut menggunakan Item untuk mengambil objek InternetExplorer yang mewakili item jendela Shell pertama. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan 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

Persyaratan

Persyaratan Nilai
Klien minimum yang didukung
Windows 2000 Professional, Windows XP [hanya aplikasi desktop]
Server minimum yang didukung
Windows 2000 Server [hanya aplikasi desktop]
Header
Exdisp.h
DLL
Shell32.dll (versi 4.71 atau yang lebih baru)