[已解决]如何正常收缩展开窗口（我爱你，Afan哥。谢谢）

xyhqqaa

新手求助，但是我想法是默认原始文本输入框默认不显示。当我按下按钮的时候。窗体展开输入框。。。。当输入框在按钮右侧是可以征程实现。但是输入框在左侧的时候就会出现这种情况。按钮是被隐藏的。。试过一两种方法。之前试过$Input1 = GUICtrlCreateInput("", -282, 2, 281, 46)。输入框虽然可以隐藏。按钮可以正常显示。当时使用winmove这参数的时候就无法正常显示-X外的输入框。。。。新手说法有点模糊。。希望有大哥能看懂。。给点提示

502762378

Opt('GUIResizeMode', 802)

xyhqqaa

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt('GUIResizeMode', 802)
$Form1 = GUICreate("Form1", 60, 50, 350, 183,$WS_POPUP)
GUISetFont(8, 400, 0, "Arial")
WinSetTrans($form1, "", 0)
$Pic1 = GUICtrlCreatePic("D:\Backup\桌面\te\mbtn0_0.gif", 2, 2, 49, 45)
GUICtrlSetCursor(-1, 0)
$Pic2 = GUICtrlCreatePic("D:\Backup\桌面\te\mbtn0_0.jpg", 50, 2, 9, 45)
$Pic2context = GUICtrlCreateContextMenu($Pic2)
$MenuItem1 = GUICtrlCreateMenuItem("谷歌", $Pic2context)
$MenuItem2 = GUICtrlCreateMenuItem("百度", $Pic2context)
$MenuItem3 = GUICtrlCreateMenuItem("雅虎", $Pic2context)
$MenuItem4 = GUICtrlCreateMenuItem("必应", $Pic2context)
$MenuItem5 = GUICtrlCreateMenuItem("", $Pic2context)
$MenuItem6 = GUICtrlCreateMenuItem("必应", $Pic2context)
$Input1 = GUICtrlCreateInput("", -282, 2, 281, 46)
GUICtrlSetFont(-1, 25, 400, 0, "Arial")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Pic1
                        WinMove($Form1, "", Default, Default, -282, 100)
                
                        
        EndSwitch
WEnd

预览如下。。。。。。但是按下按钮后。。并没有出现收缩展开效果。。囧。。。。新手压力大。。。。再弱弱的问下。假如要实现右键点击图标拉动窗口位置该使用什么参数。。。有朋友说参考这个，但是如何判定右键  囧。。

#include <Misc.au3>
#include <ScreenCapture.au3>

HotKeySet('{f2}', '_Exit')

Local $i = 0, $dll = DllOpen('user32.dll')
Local $dateStr = @ScriptDir & '\cap\右键\' & @YEAR & @MON & @MDAY & '\'
DirCreate($dateStr)

While 1
        Sleep(10)
        If _IsPressed('02', $dll) Then _ScreenCapture_Capture($dateStr & @HOUR & @MIN & @SEC & '.jpg')
WEnd

Func _Exit()
        DllClose($dll)
        Exit
EndFunc   ;==>_Exit

502762378

学习AU3我最喜欢的就是测试，每个代码即使帮助文档怎么写，我也要测试一遍，你WinSetTrans的那么透明即使点击图片展开能看到扩展吗？你右键点击图片出来的事件为MenuItem，让人怎么给你修改呢？你要的功能无非是拉控件在GUI中溜达，论坛基础的东西都有现成的牛掰的code,我最喜欢老大的一篇文章“你为什么成为不了高手”，颓废放弃的时候我总会拿来自勉

xyhqqaa

回复 4# 502762378

- -。。。囧 。。伸手固然不好。。。新手也不是借口给自己找理由。但是我已经搜索了自己能想到的关键词，不知道是自己眼拙没看到还是理解力笨。。。我原本的想法是点击$Pic1的时候展开弹出文本框的同时不放开可实现移动整个窗体的效果。。。。$Pic2是另外一个。。不影响右键移动吧。现在我自己换了另外一种想法。。再新建个子窗体，然后在里面新建文本框。。这样同样可以实现我想要的效果，还有，我就是一个新手，我从来没想成为高手，喜欢AUTOIT是爱好，也是兴趣、、工作时间做点小东西只是自娱自乐，满足自己的小小成就感。。。我从来没奢望别人帮我做好每件事而自己只是在一旁唠叨。。我尽力了。。如果我这样对大家不好。。我完全可以放弃这个兴趣。。

502762378

回复 5# xyhqqaa


    别，兴趣因为别人左右改变你又何谈它是你的兴趣？我和你的情况一样，纯工作原因让我喜欢上了AU3，在学习的路上我不知多少次抱怨过没有伙伴咨询探讨，你这同样的功能我有写过，你加我QQ明个上班我传你一份一起学习。慢慢得你才会发现，帮助文档才是你最好的伙伴

.個朲綉√

给你一个上下伸缩的：

#NoTrayIcon
#AutoIt3Wrapper_UseX64=n
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIExtender.au3>
$Form1_1 = GUICreate("伸缩窗口", 280, 430)
_GUIExtender_Init($Form1_1)
$Button1 = GUICtrlCreateButton("开始", 180, 155, 75, 33)
$Button2 = GUICtrlCreateButton("配置", 30, 155, 75, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;------------------第二个窗体----------------
$iInput_Section = _GUIExtender_Section_Start(200, 220)
$Label24 = GUICtrlCreateLabel('- by Subp', 225, 417, 56, 12)
GUICtrlSetColor(-1, 0xC0C0C0)
_GUIExtender_Section_Extend(1, False)
GUISetState(@SW_SHOW,$Form1_1)
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
_GUIExtender_Section_End()
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($Button2, $GUI_ENABLE)

While 1
        $iMsg = GUIGetMsg()
        Switch $iMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                                Case $Button2
                        Switch _GUIExtender_Section_State($iInput_Section)
                                Case 0
                                        GUICtrlSetData($Button2,'保存')
                                        GUICtrlSetState($Button1, $GUI_DISABLE)
                                        _GUIExtender_Section_Extend($iInput_Section)
                                Case Else
                                        GUICtrlSetData($Button2,'配置')
                                        GUICtrlSetState($Button1, $GUI_ENABLE)
                                        _GUIExtender_Section_Extend($iInput_Section, False)
                        EndSwitch
                Case $Button1
        EndSwitch
        _GUIExtender_Action($iMsg)
WEnd

afan

GUICtrlSetResizing()
WinGetPos()
WinMove()
GUICtrlSetPos()
搞定~

afan

源码挂了3天没人要，exe档要否

afan

xyhqqaa
可以结贴了…

xyhqqaa

回复 10# afan


    哥，您老人家挂了三天的源码没人要。。。。。囧。。。求连接= =。。。咳咳，俺珍的不是伸手党。。。。我想瞻仰下您老人家的大作。。求教育。。。只看到一个exe文件。却不知道方法。。心痒痒。。。。哥哥哥哥哥哥哥哥哥。。。。。

afan

回复 11# xyhqqaa


    晕，不是叫你输入我的 User 么？你不会是在论坛搜索去了吧…

xyhqqaa

回复 12# afan


   哥。。消息是看您提醒才留意您有给我发了。。。抱歉没注意。。。。我afan site:www.autoitx.com   等GOOGLE。。百度方法 只看得 。。。囧。之前坛子搜索您之前发的帖子只看到两页。。也没看到您的作品。。。囧、。。= =。。我心那个纠结，那个凉呀凉。。。。。实在不知道除了论坛搜索还可方便看到您的作品。。。俺只能搜索标题。。。没权限还不能搜索论坛内容。。。 。。。您意思要我搜索坛子外的。。。。我

afan

回复  afan


   哥。。消息是看您提醒才留意您有给我发了。。。抱歉没注意。。。。我afan site:   等G ...
xyhqqaa 发表于 2012-2-17 13:39

    晕哦，我没那么玩人吧…
你还真不注意自己的信息、帖子
我昨晚在你评分之后的几秒钟内就告诉你了，只需输入我的 User ，你竟然到国际互联网去搜了… 你下了附件，运行后，你这不是做的搜索工具吗？输入我的 User ，回车，OK！

另外提醒，注意自己的提醒信息，如果没有提示音，自己设置下。

afan

其实源码十分简单，只是因为含有必须的图片，而我又全心全意为人民服务，不用别人自己找图片下载，所以直接在代码中生成图片文件（我的很多帖子都如此，直接运行代码，不用依赖其它的附件文件），造成代码长了就不适合直接贴出来，而是采用附件的形式。但几天都没有人下载，我知道又遇到一个不关心自己帖子的主，所以加了点量… 但源码仍在其中。