Работа с состоянием окна программы

 

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

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
Sub Main
	'Пример работы с состоянием окна (window state)
	'Автор: Raynald Levesque, 23.08.2003
	Dim objSPSSdatadoc As ISpssDataDoc
	Set objSPSSdatadoc = objSpssApp.OpenDataDoc ("c:\\program files\\spss\\employee data.sav")
	'свернём окно данных
	objSPSSdatadoc.WindowState=SpssMinimized
	MsgBox("Окно данных свёрнуто")

	objSPSSdatadoc.WindowState=SpssMaximized
	MsgBox("Окно данных развёрнуто")

	objSPSSdatadoc.WindowState=SpssNormal
	MsgBox("Окно данных в нормальном состоянии")
End Sub
Related pages

...

Navigate from here