想创建一个不带最小化和关闭按钮的 GUI?[已解决]

newuser · 发表于 2010-6-25 11:07:49

本帖最后由 newuser 于 2010-6-25 11:33 编辑

查看guicreate()里的样式,没有找到相关参数,我本意就是想建立一个方框窗口,其右上角什么都没有.

guland · 发表于 2010-6-25 11:17:12

回复 1# newuser

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 146, BitOR($WS_MINIMIZEBOX,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        EndSwitch
WEnd

newuser · 发表于 2010-6-25 11:26:29

回复 2# guland
谢谢,解决了.
另外请教老大,如果用了皮肤,那皮肤上的右上角的关闭按钮一般通过什么方法拿掉它呢 ?

guland · 发表于 2010-6-25 11:43:23

回复 3# newuser

用过那个样式之后皮肤上应该没有了吧?

newuser · 发表于 2010-6-28 13:19:10

回复 4# guland

还是有!

guland · 发表于 2010-6-28 17:05:23

回复 5# newuser

不能吧?? 在我的机器上是没有的......

rikthhpgf2005 · 发表于 2010-6-28 17:09:14

多看帮助

newuser · 发表于 2010-6-29 07:49:13

回复 6# guland
如图:

guland · 发表于 2010-6-29 09:01:29

回复 8# newuser

源码发出来,我看看

newuser · 发表于 2010-6-29 09:48:57

回复 9# guland
那个源码让我改来改去,变成这个样子.我的截图是从以前那个编译后来得.

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\Documents and Settings\Administrator\桌面\aa.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Fileversion=0.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%                ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                                                   ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=                                                      ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=                                                                 ;语法检查
;#AutoIt3Wrapper_Run_Before=                                                                 ;运行前
;#AutoIt3Wrapper_Run_After=                                                                        ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 Au3 版本:WinXP优化
 脚本作者:         
        Email: 
        QQ/TM: 
 脚本版本: Beta1
 脚本功能: 清除垃圾、恶意插件、优化系统设置

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

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

FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
;将DLL文件SkinCrafterDll.dll”包含并装入指定文件到编译后脚本程序中，1的意思如果装入的文件在指定路径中存在，那么覆盖它！
;FileInstall("RedJet.skf", @TempDir & "\RedJet.skf", 1)
FileInstall("proton.skf", @TempDir & "proton.skf", 1)
;FileInstall ( "080402070.jpg", @TempDir&"080402070.jpg",1)
$Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll") ;加载皮肤的函数需要使用的变量
;FileInstall("Mus_24.mid", @TempDir & "\Mus_24.mid", 1)
;FileInstall("080402070.jpg", @TempDir & "\080402070.jpg", 1)
$Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll") ;加载皮肤的函数需要使用的变量

Opt("GUIOnEventMode", 1) ;更改模式为事件模式
#Region ### START Koda GUI section ### Form=d:\zgk_2010\autoit\autoit_zgk_works\optimize_system\form1.kxf
$Form1 = GUICreate("系统优化工具_采十一阳老爹制作", 436, 314, 302, 200,BitOR($WS_MINIMIZEBOX,$WS_GROUP))
GUISetIcon(@WindowsDir & "\explorer.exe",0) ;为所创建的窗口标题设置ICON

_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "proton.skf", $Form1) ;调用DLL来加载皮肤文件.SKF，其中$Bf为皮肤的路径
;定义皮肤函数
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
        $Dll = DllOpen($SkincrafterDll)
        DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
        DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
        DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
        DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
        DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc   ;==>_SkinGUI
;皮肤退出

;SoundPlay(@TempDir & "\Mus_24.mid", 0)  ;播放背景音乐

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=d:\zgk_2010\autoit\autoit_zgk_works\optimize_system\form1.kxf
$Tab1 = GUICtrlCreateTab(8, 48, 420, 257)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
;$GUI_DOCKWIDTH:表示重新调整控件大小时宽度不变
$TabSheet1 = GUICtrlCreateTabItem("清理垃圾")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 160, 17, 17)
$Label1 = GUICtrlCreateLabel("清理上网临时文件", 48, 160, 100, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 184, 17, 17)
$Label2 = GUICtrlCreateLabel("清理用户临时文件", 48, 184, 100, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 24, 208, 17, 17)
$Label3 = GUICtrlCreateLabel("清理Windows预读取文件", 48, 208, 132, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 200, 160, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 200, 184, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 200, 208, 17, 17)
$Label4 = GUICtrlCreateLabel("清除Windows打补丁留下的文件", 224, 160, 168, 17)
$Label5 = GUICtrlCreateLabel("清除回收站文件", 224, 184, 88, 17)
$Label6 = GUICtrlCreateLabel("清除系统指定的各类垃圾文件", 224, 208, 160, 17)
$Label7 = GUICtrlCreateLabel("清除垃圾文件，利于系统清洁和健康", 88, 112, 196, 17)
$Label8 = GUICtrlCreateLabel("执行清理", 168, 248, 52, 17)
$TabSheet2 = GUICtrlCreateTabItem("清理插件")
$TabSheet3 = GUICtrlCreateTabItem("优化设置")
$TabSheet4 = GUICtrlCreateTabItem("启动项管理")
$TabSheet5 = GUICtrlCreateTabItem("电脑使用痕迹清理")
$TabSheet6 = GUICtrlCreateTabItem("帮  助")
GUICtrlCreateTabItem("")
$Label9 = GUICtrlCreateLabel("采十一阳老爹制作", 8, 16, 116, 17)
$Label10 = GUICtrlCreateLabel("－", 280, 16, 42, 17)
GUICtrlSetOnEvent(-1,"_Minimize")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("＋", 328, 16, 42, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("Ｘ", 376, 16, 42, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd

Func _Minimize()
        GUISetState(@SW_MINIMIZE)
EndFunc

guland · 发表于 2010-6-29 11:37:16

回复 10# newuser

下面代码我修改完之后没有问题了,你根据你自己的需要自己改吧

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

;~ FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
;将DLL文件SkinCrafterDll.dll”包含并装入指定文件到编译后脚本程序中，1的意思如果装入的文件在指定路径中存在，那么覆盖它！
;FileInstall("RedJet.skf", @TempDir & "\RedJet.skf", 1)
;~ FileInstall("proton.skf", @TempDir & "proton.skf", 1)
;FileInstall ( "080402070.jpg", @TempDir&"080402070.jpg",1)
;~ $Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll") ;加载皮肤的函数需要使用的变量
;FileInstall("Mus_24.mid", @TempDir & "\Mus_24.mid", 1)
;FileInstall("080402070.jpg", @TempDir & "\080402070.jpg", 1)
;~ $Dll = DllOpen(@TempDir & "\SkinCrafterDll.dll") ;加载皮肤的函数需要使用的变量
Dim $dll
Opt("GUIOnEventMode", 1) ;更改模式为事件模式
#Region ### START Koda GUI section ### Form=d:\zgk_2010\autoit\autoit_zgk_works\optimize_system\form1.kxf
$Form1 = GUICreate("系统优化工具_采十一阳老爹制作", 436, 314, 302, 200,BitOR($WS_MINIMIZEBOX,$WS_GROUP))
GUISetIcon(@WindowsDir & "\explorer.exe",0) ;为所创建的窗口标题设置ICON
_SkinGUI("\SkinCrafterDll34.dll", "V-touch.skf", $Form1) ;调用DLL来加载皮肤文件.SKF，其中$Bf为皮肤的路径
;SoundPlay(@TempDir & "\Mus_24.mid", 0)  ;播放背景音乐
$Tab1 = GUICtrlCreateTab(8, 48, 420, 257)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
;$GUI_DOCKWIDTH:表示重新调整控件大小时宽度不变
$TabSheet1 = GUICtrlCreateTabItem("清理垃圾")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 160, 17, 17)
$Label1 = GUICtrlCreateLabel("清理上网临时文件", 48, 160, 100, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 184, 17, 17)
$Label2 = GUICtrlCreateLabel("清理用户临时文件", 48, 184, 100, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 24, 208, 17, 17)
$Label3 = GUICtrlCreateLabel("清理Windows预读取文件", 48, 208, 132, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 200, 160, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 200, 184, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 200, 208, 17, 17)
$Label4 = GUICtrlCreateLabel("清除Windows打补丁留下的文件", 224, 160, 168, 17)
$Label5 = GUICtrlCreateLabel("清除回收站文件", 224, 184, 88, 17)
$Label6 = GUICtrlCreateLabel("清除系统指定的各类垃圾文件", 224, 208, 160, 17)
$Label7 = GUICtrlCreateLabel("清除垃圾文件，利于系统清洁和健康", 88, 112, 196, 17)
$Label8 = GUICtrlCreateLabel("执行清理", 168, 248, 52, 17)
$TabSheet2 = GUICtrlCreateTabItem("清理插件")
$TabSheet3 = GUICtrlCreateTabItem("优化设置")
$TabSheet4 = GUICtrlCreateTabItem("启动项管理")
$TabSheet5 = GUICtrlCreateTabItem("电脑使用痕迹清理")
$TabSheet6 = GUICtrlCreateTabItem("帮  助")
GUICtrlCreateTabItem("")
$Label9 = GUICtrlCreateLabel("采十一阳老爹制作", 8, 16, 116, 17)
$Label10 = GUICtrlCreateLabel("－", 280, 16, 42, 17)
GUICtrlSetOnEvent(-1,"_Minimize")
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("＋", 328, 16, 42, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("Ｘ", 376, 16, 42, 17)
GUICtrlSetOnEvent(-1,"_exit")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd
Func _exit()
        Exit
EndFunc
Func _Minimize()
        GUISetState(@SW_MINIMIZE)
EndFunc
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle) 
   $Dll = DllOpen($SkincrafterDll) 
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "SKINCRAFTER.COM", "wstr", "support@skincrafter.com", "wstr", "DEMOSKINCRAFTERLICENCE") 
   DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1) 
   DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin) 
   DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25) 
   DllCall($Dll, "int:cdecl", "ApplySkin") 
EndFunc

newuser · 发表于 2010-6-29 13:40:28

回复 11# guland
谢谢,我再调试一下.

零度深蓝 · 发表于 2011-8-9 17:00:46

学习了，不错

veve · 发表于 2011-10-19 23:49:52

学习中。。。。。

		自动登录	找回密码
密码			加入

[AU3基础] 想创建一个不带最小化和关闭按钮的 GUI?[已解决]

评分

本帖子中包含更多资源

本帖子中包含更多资源

评分