método ShellWindows._NewEnum
Cria e retorna um novo objeto ShellWindows que é uma cópia deste objeto ShellWindows .
Sintaxe
retVal = ShellWindows._NewEnum()
Parâmetros
Esse método não tem parâmetros.
Valor retornado
Tipo: IUnknown**
Uma referência de objeto para a cópia do objeto ShellWindows .
Exemplos
O exemplo a seguir mostra _NewEnum em uso. O uso adequado é mostrado para VBScript e Visual Basic. Esse método não pode ser usado com 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
Requisitos
| Requisito | Valor |
|---|---|
| Cliente mínimo com suporte |
Windows 2000 Professional, Windows XP [somente aplicativos da área de trabalho] |
| Servidor mínimo com suporte |
Windows 2000 Server [somente aplicativos da área de trabalho] |
| Cabeçalho |
|
| DLL |
|