Create Loading GUI with dot

[john123]

Hello everyone!

Please help me create loading label with dot, like this:

Loading...

with dot (".") repeat from 1 to 3, as below:

Loading.

Loading..

Loading...

I have search but no result.

Thank you so much.

[somdcomputerguy]

I would do it with 4 labels; 'Loading', '.', '..','...', replacing the second with the third, then the third with the fourth, then the fourth with the second, and so on... I would use a timed loop to replace the labels. By replace I mean write over. After I figure out how to get it working, I would probably also find that it can be done another way too..

[kaotkbliss]

something like this?

#include <GUIConstantsEx.au3>
$loading=GUICreate("",300,75,-1,-1)
$text=GUICtrlCreateLabel("Loading",100,30)
$dot=GUICtrlCreateLabel(".",139,30)
GUISetState(@SW_SHOW)
While 1
    $msg=GUIGetMsg()
    
    If $msg=$GUI_EVENT_CLOSE Then
        Exit(1)
    ElseIf $msg=0 Then
        Sleep(250)
        GUICtrlSetData($dot,"..")
        Sleep(250)
        GUICtrlSetData($dot,"...")
        Sleep(250)
        GUICtrlSetData($dot,".")    
    EndIf
WEnd

there's a slight delay when clicking the "X" to close and the exit of the script because of the "..." updates.

[john123]

Thanks kaotkbliss so much. Code works well. I've lost 3 days for this.

You are my hero.

Thanks again.

[Melba23]

john123,

Here is one that does not make you wait to exit:

#include <GUIConstantsEx.au3>

Global $aDots[4] = ["Loading", "Loading.", "Loading..", "Loading..."]
Global $iDotCount = 0

$hGUI = GUICreate("Test", 500, 500)

$hLabel_Load = GUICtrlCreateLabel("Loading", 20, 20, 250, 40)
GUICtrlSetFont(-1, 15)

GUISetState()

AdlibRegister("_Dotter", 250)
;AdlibEnable("_Dotter", 250)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func _Dotter()

    $iDotCount += 1
    If $iDotCount = 4 Then $iDotCount = 0
    GUICtrlSetData($hLabel_Load, $aDots[$iDotCount])

EndFunc

If you are not using the Beta, you need to comment out the AdlibRegister and uncomment the AdlibEnable lines.

M23

[john123]

john123,

Here is one that does not make you wait to exit:

#include <GUIConstantsEx.au3>

Global $aDots[4] = ["Loading", "Loading.", "Loading..", "Loading..."]
Global $iDotCount = 0

$hGUI = GUICreate("Test", 500, 500)

$hLabel_Load = GUICtrlCreateLabel("Loading", 20, 20, 250, 40)
GUICtrlSetFont(-1, 15)

GUISetState()

AdlibRegister("_Dotter", 250)
;AdlibEnable("_Dotter", 250)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

WEnd

Func _Dotter()

    $iDotCount += 1
    If $iDotCount = 4 Then $iDotCount = 0
    GUICtrlSetData($hLabel_Load, $aDots[$iDotCount])

EndFunc

If you are not using the Beta, you need to comment out the AdlibRegister and uncomment the AdlibEnable lines.

M23

Thanks Melba23, I am looking for this.

Thank you very much.