how to disable the flashing effect when updating label

[scila1996 0]

tôi viết một chương trình đọc một tệp tin văn bản sau và in nó ra từ từ

a.txt

aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
dddddddddddddddddddddddddd

#include <GUIConstants.au3>
#include <File.au3>
#include <String.au3>

Local $Form1 = GUICreate("AForm1", 625, 443, 193, 115)
Local $Label1 = GUICtrlCreateLabel("dsasd", 32, 16, 577, 412)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

Local $readtext = _FileCountLines(@ScriptDir & "\a.txt")
For $i = 1 To $readtext
    $linetext = FileReadLine(@ScriptDir & "\a.txt", $i)
    $Str = StringSplit($linetext, "")
    For $o = 1 To $Str[0]
        GUICtrlSetData($Label1, GUICtrlRead($Label1) & StringMid($linetext, $o, 1))
        If ($o == $Str[0]) Then GUICtrlSetData($Label1, GUICtrlRead($Label1) & @CRLF)
        Sleep(20)
    Next
Next

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

---> Works Well

but there is a problem 

 

it continuously blinks and looks so bad how all the characters on screen are standing still and not blink

 

 

>

Edited September 2, 2014 by scila1996

[computergroove 32]

tôi viết một chương trình đọc một tệp tin văn bản sau và in nó ra từ từ

Translates to:

"I wrote a program that reads a text file and then print it out slowly"

Adjust the Sleep(20) and see what happens. Try Sleep(100)

[UEZ 1,170]

Try:

 

include <GUIConstants.au3>
#include <File.au3>
#include <String.au3>
#include <WindowsConstants.au3>


Local $Form1 = GUICreate("AForm1", 625, 443, 193, 115, Default,BitOR($WS_EX_COMPOSITED, $WS_EX_LAYERED))
...

Br,

UEZ

[scila1996 0]

Thank  UEZ

[scila1996 0]

UEZ

 

I have a problem anymore 

 

if I put 

 

sleep (10) or sleep (50) 

 

still blinks

[UEZ 1,170]

I cannot see any blinking when changing the sleep value.

What you can try is to use GDI+ to have flicker free text printing. There are several examples how to use GDI+ for such tasks.

Br,

UEZ

Edited September 4, 2014 by UEZ