ShellWindows._NewEnum 方法

建立並傳回這個 ShellWindows 物件的複本的新 ShellWindows 物件。

語法

retVal = ShellWindows._NewEnum()

參數

這個方法沒有任何參數。

傳回值

類型： IUnknown**

ShellWindows物件複本的物件參考。

範例

下列範例顯示 _NewEnum 使用中。 VBScript 和 Visual Basic 會顯示適當的使用方式。 這個方法不能與 JScript 搭配使用。

VBScript：

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

        if (not objShellWindows is nothing) then
            dim objEnumItems
            
            for each objEnumItems in objShellWindows
                alert(objEnumItems.Type)
            next
        end if

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

Visual Basic：

Private Sub fnShellWindowsNewEnumVB()
    Dim objShell        As Shell
    Dim objShellWindows As ShellWindows
    
    Set objShell = New Shell
    Set objShellWindows = objshell.Shell_Windows

    If (Not objShellWindows Is Nothing) Then
        Dim vEnumItem As Variant
        
        For Each vEnumItem In objShellWindows
            Debug.Print vEnumItem.Type
        Next vEnumItem
    End If

    Set objShellWindows = Nothing
    Set objShell = Nothing
End Sub

規格需求

需求	值
最低支援的用戶端	Windows 2000 專業版、Windows XP [僅限傳統型應用程式]
最低支援的伺服器	Windows 2000 Server [僅限傳統型應用程式]
標頭	Exdisp.h
DLL	Shell32.dll (4.71 版或更新版本)