Sign in to follow this  
Followers 0
eri

create time count in midle Screen..??

8 posts in this topic

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 150, 130,  -1, -1, 0)
GUICtrlCreateLabel("Exit Time", 0, 15, 150, 30,  $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Gloucester MT Extra Condensed")
$Label = GUICtrlCreateLabel("", 0, 50, 150, 70,  $SS_CENTER)
GUICtrlSetFont(-1, 30, 400, 0, "Gloucester MT Extra Condensed")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$time = 8
Do
    $time += -1
    GUICtrlSetData($label, $time)
    Sleep(1000)
Until $time = 0
Exit

How to Change my script with winapi like in helpfile winapi create font.. Only Display text But run my counter time.. :mellow:

Share this post


Link to post
Share on other sites



eri,

Perhaps like this? :mellow:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("", 150, 130, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Form1, 0xABCDEF, 250)
GUICtrlCreateLabel("Exit Time", 0, 15, 150, 30, $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Gloucester MT Extra Condensed")
$Label = GUICtrlCreateLabel("", 0, 50, 150, 70, $SS_CENTER)
GUICtrlSetFont(-1, 30, 400, 0, "Gloucester MT Extra Condensed")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$time = 8

Do
    $time -= 1
    GUICtrlSetData($Label, $time)
    Sleep(1000)
Until $time = 0

Exit

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

eri,

Perhaps like this? :mellow:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("", 150, 130, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($Form1, 0xABCDEF, 250)
GUICtrlCreateLabel("Exit Time", 0, 15, 150, 30, $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Gloucester MT Extra Condensed")
$Label = GUICtrlCreateLabel("", 0, 50, 150, 70, $SS_CENTER)
GUICtrlSetFont(-1, 30, 400, 0, "Gloucester MT Extra Condensed")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$time = 8

Do
    $time -= 1
    GUICtrlSetData($Label, $time)
    Sleep(1000)
Until $time = 0

Exit

M23

Hi M23.. Thank`S Very Much.. you Are right.. But Still Get splash with black Backgroung.. How to make Full transparant..??

Share this post


Link to post
Share on other sites

eri,

I get a tranparent GUI with just the text visible, so I do not understand. Are you getting a black backgound? Can you see the text?

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

eri,

I get a tranparent GUI with just the text visible, so I do not understand. Are you getting a black backgound? Can you see the text?

M23

I get a transparat to.. But get spalsh Black colour in first run.. Only want disable splash :mellow:

Your scirpt is what I wanted..

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

forget that one Melba.. Help Me again with this Animation.. :(

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

$hP = GUICreate("About", 300, 325)
GUISetBkColor(0xA0A0A0)
$image = GUICtrlCreatePic("Image.jpg", 5, 5, 290, 190, $WS_BORDER, $WS_EX_CLIENTEDGE)
$Ok = GUICtrlCreateButton("Button", 213, 290, 80, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Gloucester MT Extra Condensed")
$Label = GUICtrlCreateLabel("HomePage :", 10, 285, 65, 15)
$Label1 = GUICtrlCreateLabel("www.AutoItScript.com", 10, 300, 130, 15)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

    $hGUI =GUICreate("Animation Text", 286, 75, 6, 203, BitOR($WS_MINIMIZEBOX, $WS_CHILD,$WS_BORDER),-1,$hP)
    $label2 = GUICtrlCreateLabel("AutoIt"& @CRLF _
    &"Sample AutoIt Scirpt"& @CRLF _
    &"I Want Stop This Animation When Cursor Stuck This Text" & @CRLF _
    &"..0O Help Me O0..", 10, 10, 240, 100,$SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    GUISetState()


While 1
    For $x = 1 To 160
    GUICtrlSetPos($label2, 20, 75 - $x)
    Sleep(40)
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE, $Ok
    Exit
    Case $Label1
    ShellExecute("www.AutoItScript.com")
    EndSwitch
    Next
WEnd

How to stop Animation Text when the cursor stuck at the Text.. :lol:

I hope you're not bored with My questions.. :mellow:

Edited by eri

Share this post


Link to post
Share on other sites

eri,

I hope you're not bored with My questions

Not if they are easy to solve as this one: :(

$fFlag = True

While 1

    For $x = 1 To 160
        If $fFlag = True Then GUICtrlSetPos($label2, 20, 75 - $x)
        Sleep(40)
        $msg = GUIGetMsg()
        Switch $msg
            Case $GUI_EVENT_CLOSE, $Ok
                Exit
            Case $Label1
                ShellExecute("www.AutoItScript.com")
            Case $label2
                $fFlag = False
        EndSwitch
    Next
WEnd

But you need to put more effort into solving your problems by yourself. Next time I shall expect you to have made some effort to solve your problem before I give you a solution! :mellow:

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

But you need to put more effort into solving your problems by yourself. Next time I shall expect you to have made some effort to solve your problem before I give you a solution! :mellow:

:( Ok I'll try .. thank you. You Are solver for me..

Share this post


Link to post
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
Sign in to follow this  
Followers 0