Метод 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 Professional, Windows XP [только классические приложения] |
Минимальная версия сервера |
Windows 2000 Server [только классические приложения] |
Заголовок |
|
DLL |
|