Jump to content

examples with amazing GUI


6105
 Share

Recommended Posts

Hi Guys,

Post please some amazing and beautiful gui.

I build game, and want to give to it some cool gui, but can not find something good in examples.

Thank you.

[center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Don't utter a single word[/font][/center][center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Just shut your pretty mouth[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you again[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you[/font][/center][center][font=courier new,courier,monospace]In hell[/font][/center]

Link to comment
Share on other sites

no no, nothing negativity, i just search some cool gui) i don't want to use simple gui, now i use it:

#NoTrayIcon
#Include <APIConstants.au3>
#Include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
Opt('MustDeclareVars', 1)
Opt('TrayMenuMode', 1)
Global $hTray = ControlGetHandle('[CLASS:Shell_TrayWnd]', '', 'TrayNotifyWnd1')
Global $hForm, $GUIMsg, $TrayMsg, $Dummy, $TrayRestoreItem, $TrayExitItem
$TrayRestoreItem = TrayCreateItem('Restore')
TrayItemSetState(-1, $TRAY_DEFAULT)
TrayCreateItem('')
$TrayExitItem = TrayCreateItem('Exit')
TraySetClick(8)
$hForm = GUICreate('My GUI')
$Dummy = GUICtrlCreateDummy()
GUIRegisterMsg($WM_SYSCOMMAND, 'WM_SYSCOMMAND')
GUISetState()
While 1
$TrayMsg = TrayGetMsg()
Switch $TrayMsg
  Case $TrayRestoreItem
   _WinAPI_DrawAnimatedRects($hForm, _WinAPI_GetWindowRect($hTray), _WinAPI_GetWindowRect($hForm))
   GUISetState(@SW_SHOW, $hForm)
   TraySetState(2)
  Case $TrayExitItem
   ExitLoop
EndSwitch
$GUIMsg = GUIGetMsg()
Switch $GUIMsg
  Case -3
   _WinAPI_AnimateWindow($hForm, BitOR($AW_BLEND, $AW_HIDE))
   ExitLoop
  Case $Dummy ; Minimize
   _WinAPI_DrawAnimatedRects($hForm, _WinAPI_GetWindowRect($hForm), _WinAPI_GetWindowRect($hTray))
   GUISetState(@SW_HIDE, $hForm)
   TraySetState(1)
EndSwitch
WEnd
Func WM_SYSCOMMAND($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
  Case $hForm
   Switch $wParam
    Case $SC_MINIMIZE
     GUICtrlSendToDummy($Dummy)
     Return 0
   EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SYSCOMMAND

[center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Don't utter a single word[/font][/center][center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Just shut your pretty mouth[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you again[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you[/font][/center][center][font=courier new,courier,monospace]In hell[/font][/center]

Link to comment
Share on other sites

These are the includes that you should be using for that... this way, it will not crash.

#include <APIConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <MenuConstants.au3>
#include <WinAPI.au3>
#include <WinAPIEx.au3>

Well if all you want is nice looking GUIs, then I can point you towards these:

There was also an example script called "Some nice menu aesthetics", but no matter how much I search, I cannot find it again :graduated:

Link to comment
Share on other sites

  • 4 months later...

Ok, after 1 year, i have one more cool guy.. any suggestions? :oops:

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Global $Close, $SendButton, $SettingButton
_GuiMain()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $Close
            Exit
        Case $SendButton
        Case $SettingButton
    EndSwitch
WEnd
Func _GuiMain()
$Width = 322
$Height = 400
$oIE = ObjCreate("Shell.Explorer.2")
$Form = GUICreate("OdnoMMS", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$Close = GUICtrlCreateLabel("X", $Width - 15, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
$About = GUICtrlCreateLabel("?", $Width - 30, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor(-1, 0)
$Other = GUICtrlCreateLabel("+", $Width - 45, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetCursor(-1, 0)
$Formtitle = GUICtrlCreateLabel(" OdnoMMS", 0, 4, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Formtitlebackground = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 22)
GUICtrlSetBkColor(-1, 0x000000)
$GUIActiveX = GUICtrlCreateObj($oIE, 8, 54, 305, 306)
$MsgInput = GUICtrlCreateInput("", 56, 28, 257, 21)
$MsgLabel = GUICtrlCreateLabel("Message:", 8, 30, 46, 17)
$SendButton = GUICtrlCreateButton("Send", 8, 366, 150, 25, 0)
$SettingButton = GUICtrlCreateButton("Settings", 167, 366, 147, 25, 0)
GUISetState(@SW_SHOW, $Form)
_IENavigate($oIE,'m.facebook.com')
EndFunc ;==> _GuiMain

[center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Don't utter a single word[/font][/center][center][font=courier new,courier,monospace]Die die die my darling[/font][/center][center][font=courier new,courier,monospace]Just shut your pretty mouth[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you again[/font][/center][center][font=courier new,courier,monospace]I'll be seeing you[/font][/center][center][font=courier new,courier,monospace]In hell[/font][/center]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...