【已解决】有没有办法是我的窗口在屏幕中间

yinbinly

我写了windows窗口程序，但是放到别的电脑上打开窗口就跑右下方去了，有没有办法是窗口居中啊，刚才在GUI板块没找到此问题的答案。

happytc

默认就是居中显示的呀
GUICreate("Test", 300, 200)
难道上面语句得到的窗口不是中间显示？

lpxx

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", Default, Default, Default, Default)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

happytc

回复 3# lpxx


   上面那四个Default好象是多余的吧，不写它们，就默认是了

yinbinly

回复 2# happytc

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=



$Form1 = GUICreate("Form1", 429, 181, 915, 345)



$Checkbox1 = GUICtrlCreateCheckbox("QQ", 24, 24, 193, 25)
$Checkbox2 = GUICtrlCreateCheckbox("7", 24, 56, 177, 33)
$Checkbox3 = GUICtrlCreateCheckbox("SPlayer", 24, 104, 185, 25)
$Button1 = GUICtrlCreateButton("打开", 208, 24, 201, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()

        sleep(33)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case        $Button1
               
                If GUICtrlRead($Checkbox1) = 1 Then
                        QQ()
                EndIf
                If GUICtrlRead($Checkbox2) = 1 Then
                        xl()
                EndIf
                If GUICtrlRead($Checkbox3) = 1 Then
                        sp()
        EndIf
                Sleep(1600)
             MsgBox(0, "提示!", "优化完成!")
EndSwitch
WEnd

happytc

回复 5# yinbinly


    你是啥意思呢？
GUICreate("Form1", 429, 181, 915, 345)
                                                ~~~~~~你定义这两个坐标值干什么呢，既然要居中显示

ransally

$Form1 = GUICreate("Form1", 429, 181, 915, 345)
后面两个参数，不是默认就可以居中了。下面是帮助对这两个参数的说明：
左侧 [可选参数] 窗口左侧离屏幕左边缘的距离(像素).默认值(default)为 -1,表示窗口将居中显示,若此参数被指定，则参数 顶部 也必须指定.
顶部 [可选参数] 窗口上方离屏幕上边缘的距离(像素).默认值(default)为 -1,表示窗口将居中显示.

yinbinly

回复 6# happytc


    谢谢回复，问题已经解决

yinbinly

回复 7# ransally


       谢谢回复，问题已经解决

deaph

学习了，感谢分享！