Что нового

Как создать текст в GUI из файла,который меняется?

Mihail10

Новичок
Сообщения
18
Репутация
0
Не удаётся убрать мерцание текста,и сделать опрос GUI на условия:

Код:
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Local $Form1 = GUICreate('Form1', 250, 200, 200, 150)
$10 = FileReadLine ( "1.txt",  1);
GUISetState()
Local $st = $10, $T1			
While 1
    $10 = FileReadLine ( "1.txt",  1);
    $T1 = GUICtrlCreateLabel($10, 10, 70, 200, 50); создать текст в гуи
        ;Sleep(1000)
	;GUICtrlDelete($T1); удалить текст в гуи
	;$T1 = 0; стереть данные
	;Sleep(1)
	
    ;Switch FileExists($st) ; делаем опрос GUI и проверяем условия, если файл существует
        ;Case 0; первый блок, если текст в файле есть удаляем его
            ;If $T1 Then
                ;GUICtrlDelete($T1)
                ;$T1 = 0
            ;EndIf
        ;Case 1; второй блок, если текста в файле нет создаём его
            ;If Not $T1 Then $T1 = GUICtrlCreateLabel($st, 10, 100, 200, 100)		
    ;EndSwitch
    Sleep(1)	
WEnd


Нашёл ошибку.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
если очень часто меняется, несколько раз в секунду, то мерцание будет. на форуме есть решение для этого
Код:
Local $stmp 
While 1
    $10 = FileReadLine ( "1.txt",  1);
	If StringCompare($stmp, $10) Then
    $T1 = GUICtrlCreateLabel($10, 10, 70, 200, 50)
	$stmp = $10
	EndIf
   Sleep(10)
WEnd
 
Верх