2011风之叶 发表于 2012-2-20 16:29:57

按钮和窗口一起放大

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 317, 259, Default, Default, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_TABSTOP))
$Group1 = GUICtrlCreateGroup("", 0, 0, 313, 257)
$Button1 = GUICtrlCreateButton("A", 8, 16, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("B", 160, 16, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("C", 8, 96, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("D", 160, 96, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("E", 8, 176, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("F", 160, 176, 145, 73)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
Global $ws
Dim $keyButton = [["{a}", $Button1],["{b}", $Button2], _
                ["{c}", $Button3],["{d}", $Button4],["{e}", $Button5],["{f}", $Button6]]
GUISetAccelerators($keyButton, $Form1)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1, $Button2, $Button3, $Button4, $Button5, $Button6
                        GUISetState(@SW_HIDE, $Form1)
                        $ws = MsgBox(1 + 0x40 + 0x40000, "测试", "您选择的是：" & GUICtrlRead($nMsg) & "按钮")
                        GUISetState(@SW_SHOW, $Form1)
                        If $ws = 2 Then
                                Exit
                        EndIf
        EndSwitch
WEnd
如题，怎么才能使按钮和窗口一起放大

afan 发表于 2012-2-20 16:38:59

Opt('GUIResizeMode', 1)

2011风之叶 发表于 2012-2-20 16:44:36

回复 2# afan

谢谢了，兄弟，自己弄的一下午都没弄好

deaph 发表于 2014-12-4 09:08:47

学习了，感谢分享

jkq920 发表于 2014-12-4 12:45:17

谢谢，学习一下
页: [1]
查看完整版本: 按钮和窗口一起放大