Что нового

Параметр window title "X \ Y \ W \ H" - как им пользоваться?

asdf8

Скриптер
Сообщения
564
Репутация
152
Весь вопрос в названии темы

Код:
$Form1 = GUICreate("Form1", 372, 167, 191, 122)
GUISetState(@SW_SHOW)

;~ $handle = WinGetHandle("[X \ Y \ W \ H : 191 \ 122 \ 372 \ 167]")
;~ $handle = WinGetHandle("[X\Y\W\H:191\122\372\167]")
;~ $handle = WinGetHandle("[191\122\372\167]")
;~ $handle = WinGetHandle("[191 \ 122 \ 372 \ 167]")
;~ $handle = WinGetHandle("191\122\372\167")
;~ $handle = WinGetHandle("[X\Y\W\H=191\122\372\167]")
$handle = WinGetHandle("X\Y\W\H=191\122\372\167")

If @error Then
	MsgBox(0, '', 'error')
Else
	MsgBox(0, 'handle', $handle)
EndIf
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
asdf8
Так попробуйте
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 200, 200, -1, -1)
$Button1 = GUICtrlCreateButton("Button1", 40, 100, 120, 40)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$aSize = WinGetPos("Form1")
			MsgBox(0, "", "Левая граница окна (X): " & $aSize[0] & @CRLF & _
					"Верхняя граница окна (Y): " & $aSize[1] & @CRLF & _
					"Ширина окна (W): " & $aSize[2] & @CRLF & _
					"Высота окна (H): " & $aSize[3])
	EndSwitch
WEnd
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 711
Код:
$hForm = GUICreate('MyGUI')
GUISetState()
WinMove($hForm, '', 200, 200, 600, 400)

ConsoleWrite(WinGetTitle('[X:200; Y:200; W:600; H:400]') & @CR)

Do
Until GUIGetMsg() = -3
 
Автор
A

asdf8

Скриптер
Сообщения
564
Репутация
152
Yashied большое спасибо, чуть голову не с ломал :smile:
 
Верх