Создание нового окна результатов (output)

 

Загрузить как .sbs Показать простым текстом

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
'Цель: Скрипт создаст новое окно результатов (Output Document) и сделает его активным

'Автор: Tom Dierickx
'Дата: 21 ноября 2000 г.

Sub Main()
   Dim objOutputDoc As ISpssOutputDoc      	' объект Output Document (окно результатов)
    
   'Создание нового окна результатов и установление свойства Visible (видимый) в True (истина)
   '(по умолчанию это делает окно "активным")
   Set objOutputDoc = objSpssApp.NewOutputDoc
   objOutputDoc.Visible = True
   objOutputDoc.WindowState = SpssMaximized
   Set objOutputDoc = Nothing
End Sub
Related pages

...

Navigate from here