Jump to content

Se7enstars

Active Members
  • Posts

    23
  • Joined

  • Last visited

Everything posted by Se7enstars

  1. 1st add (how many checkboxes you want to create) Global $check[6]  2nd (used 250, $y, 32, 32, 6) >> 6 for that the gui bk is white, i used colored checkbox $y = 50 For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next 3rd init to while >> switch >> case for clicking work For $i = 0 To UBound($check)-1 Switch $msg Case $check[$i] If _GUICtrlCheckBoxGetState($check[$i]) = False Then _GUICtrlCheckboxSetState($check[$i], True) Else _GUICtrlCheckboxSetState($check[$i], False) EndIf EndSwitch Next FULL CODE! #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Se7enstars Youtube: https://youtube.com/c/Se7enstars | Subscribe please! :) & Like #ce ---------------------------------------------------------------------------- ;ReEdited for M W. (our youtube sibscriber) THANKS! #include <ModernCheckbox.au3> ; MODERN CHECKBOX UDF #NoTrayIcon Global $Assets = @ScriptDir & "\Assets\" Global $uiWidth = 800, $uiHeight = 420 Global $btnCaption[5] = ["Get Started", "Information", "Teamwork", "About us", "Logout"] Global $btnTop[5], $btnTopWidth = 102, $btnTopWidth = 32 Global $hFocus, $LastFocus, $hBkPic, $LastContent Global $btnLearnMore, $AboutPanel Global $check[6] $ui = GUICreate("Se7enstars Design", $uiWidth, $uiHeight, Default, Default, 0x80880000, 0x10000) GUISetBkColor(0xFFFFFF, $ui) _InitButton7s() $Title_0 = GUICtrlCreateLabel("Se7enstars ", 10, 10, 100, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, 700, Default, "Segoe UI", 5) $Title_1 = GUICtrlCreateLabel("UI", 110, 10, 80, 25, 0x0200, 0x00100000) GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5) For $i = 0 To 4 $btnTop[$i] = _GUICtrlCreateButton7s($btnCaption[$i], ($uiWidth-112) - ($i*100), 10, 102, 32) Next _GUICtrlSetDefaultButton7s($btnTop[0], $ui) GUISetState(@SW_SHOW) _GetStartedPanel() Do $msg = GUIGetMsg() For $i = 0 To 4 If $msg = $btnTop[$i] Then _GUICtrlSetDefaultButton7s($btnTop[$i], $ui) EndIf Next For $i = 0 To UBound($check)-1 Switch $msg Case $check[$i] If _GUICtrlCheckBoxGetState($check[$i]) = False Then _GUICtrlCheckboxSetState($check[$i], True) Else _GUICtrlCheckboxSetState($check[$i], False) EndIf EndSwitch Next Switch $msg Case $btnTop[0] GUIDelete($LastContent) _GetStartedPanel() Case $btnTop[1] GUIDelete($LastContent) _InfoPanel() Case $btnTop[2] GUIDelete($LastContent) _TeamPanel() Case $btnTop[3] GUIDelete($LastContent) _AboutPanel() Case $btnTop[4] $iExitMsg = MsgBox(4+32+256, "Info", "Do You want to exit ?", 0, $ui) If $iExitMsg = 6 Then GUICtrlSetData($Title_0, "Logging") GUICtrlSetColor($Title_0, 0xDD0000) GUICtrlSetData($Title_1, "out") GUICtrlSetColor($Title_1, 0xDD0000) Sleep(1500) Exit EndIf Case $btnLearnMore If $LastContent = $AboutPanel Then MsgBox(64, "Subscribe", "Please subscribe to our channel on Youtube") ShellExecute("https://youtube.com/c/se7enstars") EndIf EndSwitch $focusedCtrl = GUIGetCursorInfo() If Not @error Then Switch $focusedCtrl[4] Case $LastFocus If $hFocus <> $focusedCtrl[4] Then _GUICtrlSetHover(1) $hFocus = $focusedCtrl[4] EndIf Case Else If $hFocus <> Null Then _GUICtrlSetHover(0) $hFocus = Null EndIf EndSwitch EndIf Until $msg = -3; Exit Func _GetStartedPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $GetStartedPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk1.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Database" & @CRLF & "Developers", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Wellcome to database control app" & @CRLF & "Please select what we need to do", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Learn More", 10, $GSP_H/2+80, 102, 32) _Animate($GetStartedPanel) GUISetState(@SW_SHOW, $GetStartedPanel) $LastContent = $GetStartedPanel EndFunc Func _InfoPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $InfoPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk2.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("More" & @CRLF & "informations", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("We help you to get all off DB in secure" & @CRLF & "Need new account? Try create", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Sign Up", 10, $GSP_H/2+80, 102, 32) _Animate($InfoPanel) GUISetState(@SW_SHOW, $InfoPanel) $LastContent = $InfoPanel EndFunc Func _TeamPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $TeamPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk3.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("Teamwork" & @CRLF & "support", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("Our project can work with team" & @CRLF & "Only get your token and connect", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $y = 50 For $i = 0 To 5 $check[$i] = _GUICtrlCreateCheckboxEx(250, $y, 32, 32, 6) GUICtrlSetCursor(-1, 0) $y += 40 ;checkbox height Next $btnLearnMore = _GUICtrlCreateButton7sEx("Get Token", 10, $GSP_H/2+80, 102, 32) _Animate($TeamPanel) GUISetState(@SW_SHOW, $TeamPanel) $LastContent = $TeamPanel EndFunc Func _AboutPanel() Local $GSP_W = $uiWidth Local $GSP_H = $uiHeight - 45 $AboutPanel = GUICreate('', $uiWidth, $uiHeight - 45, 2, 45, 0x80000000, 0x00000040, $ui) GUISetBkColor(0xFFFFFF) GUICtrlCreatePic($Assets & "bk4.jpg",$GSP_W-432, $GSP_H-324, 432, 324) GUICtrlSetState(-1, -128) Local $hLeftTitle = GUICtrlCreateLabel("About" & @CRLF & "this amazing app", 10, $GSP_H/2-100, 230, 80) GUICtrlSetFont(-1, 24, 700, Default, "Century Gothic", 5) Local $hLeftText = GUICtrlCreateLabel("This tool help you to craete edit " & @CRLF & "your cloud database! " & @CRLF & _ "It was created from Se7enstars Developers Network © 2020", 10, $GSP_H/2, 230, 80) GUICtrlSetFont(-1, 10, Default, Default, "Segoe UI", 5) $btnLearnMore = _GUICtrlCreateButton7sEx("Help && FAQ", 10, $GSP_H/2+80, 102, 32) _Animate($AboutPanel) GUISetState(@SW_SHOW, $AboutPanel) $LastContent = $AboutPanel EndFunc Func _Animate($hHWND, $iFadeIn = 1) If $iFadeIn = 1 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00080000) ;fade-in Else DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hHWND, "int", 300, "long", 0x00090000) ;fade-out EndIf EndFunc Func _InitButton7s() If $hBkPic = "" Then $hBkPic = GUICtrlCreatePic($Assets & "0.jpg", -99, -99, 102, 32) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) EndIf Return $hBkPic EndFunc Func _GUICtrlCreateButton7s($sText, $iX, $iY, $iW, $iH, $bColor = 0x000000) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlCreateButton7sEX($sText, $iX, $iY, $iW, $iH, $bColor = 0xFFFFFF) GUICtrlCreatePic($Assets & "0.jpg", $iX, $iY, $iW, $iH, 0x80) GUICtrlSetState(-1, -128) GUICtrlSetCursor(-1, 0) Local $hCtrl = GUICtrlCreateLabel($sText, $iX, $iY, $iW, $iH, 0x01 + 0x0200) GUICtrlSetColor(-1, $bColor) GUICtrlSetBkColor(-1, -2) GUICtrlSetFont(-1, 10, Default, Default, "Century Gothic", 5) GUICtrlSetCursor(-1, 0) Return $hCtrl EndFunc Func _GUICtrlSetDefaultButton7s($hCtrlID, $hHWND = Default) Local $CGP = ControlGetPos($hHWND, '', $hCtrlID) GUICtrlSetPos(_InitButton7s(), $CGP[0], $CGP[1], $CGP[2], $CGP[3]) GUICtrlSetColor($hCtrlID, 0xFFFFFF) If $LastFocus <> '' Then GUICtrlSetColor($LastFocus, 0x000000) $LastFocus = $hCtrlID EndFunc Func _GUICtrlSetHover($bHover = 0) If $bHover = 0 Then GUICtrlSetImage(_InitButton7s(), $Assets & "0.jpg") Else GUICtrlSetImage(_InitButton7s(), $Assets & "1.jpg") EndIf EndFunc
  2. Hello! Today I have prepared a nice interface (GUI) in the style of Google Drive! There is a certain feature installed and of course the UDF library is used, for anyone interested you can watch the video review. and if not difficult you can subscribe to our channel. p.s. Download source code (cloud mailRU) - I just using it
  3. Hi guys today we're prepare new custom checkbox in autoit (modern checkbox) there're used some icon files with type of icons that you want install. If anybody interesting, Full Source code: https://cloud.mail.ru/public/fp2y/35K2983HE (from cloud storage) Screenshot:
  4. SOURCE CODE (DIRECT no url shorter) https://cloud.mail.ru/public/6aSb/3okykKhTt
  5. Dear Devs, please do that AutoIt support built-in *.png formats As: GuiCtrlCreatePic("Image.png", 0, 0, 100, 100); This most problem for autoiters. Thanks
  6. Ok, understand! (sorry not know about it) Forget! I prepired new UX Personal blog... Soon will publish
  7. There's no any hacking only designing (what you cant see the code?) there are no any click events how i can hack (interesting man)! Bro see first source code pls, then write!
  8. I've already attached source code, what you want again? (p.s. Last time you asked me about attaching source code I attached it already to all my post!!!) Don't Get all seriously. Let me exchange my experience! If not want i can leave this forum
  9. Hi my dear Friends! Today I create Multi GUI (Metro style) with some future. Watch tutorial: >> 3:30 sec << Download Source Code: >>snip << Please Rate my work (Subscribe to me on youtube for more Design) Thanks!
  10. Hi dear my Friend, I prepair for you next Signup UI (odnoklassniki.ru sign up) with some amazing function in AutoIt Watch full tutorial: Link YouTube << Please subscribe to our channel, and at future I 'll create for you super modern interfaces in AutoIt code Download Source Code: <snip> Rate my work pls! Autoit UI 7 - SignUp UI.zip
  11. and now I creating some amazing for you : ) at soon will publish it too stay in my youtube channel to receive first
  12. Attached already AutoIt Login UI by Se7enstars.zip
  13. Hi Friends we're made new Login UI in AutoIt for those who like design. Watch full video (youtube) Link Download Source code: <snip> (p.s. Source code full free you can do anything with it) Please subscribe me on Youtube. Thanks : )
  14. You're attached already 🤣
  15. New Modern Design UI in AutoIt in 118 line Please watch & like in Youtube: Link Full Source Code free: Link
  16. At near will be new Moder UI for yours! Thanks for support friends!
  17. Source code attached!
  18. New UX Window in AutoIt v3 Watch Full Source Code : Link
  19. Thanks )))
×
×
  • Create New...