Четверг, 28.11.2024, 06:39 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Для чего такой счетчик?

#include <GUIConstantsEx.au3>

Local $hGUI = GUICreate("Example", 400, 400)
Local $plus = GUICtrlCreateButton("Увеличить счётчик", 10, 120, 185, 25)
Local $w = 25
Local $h = 25
Local $text = GUICtrlCreateLabel("0", 10, 30,$w,$h)

Local $text_size = 15
GUICtrlSetFont($text,$text_size)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $plus
Local $num = GUICtrlRead($text)
$num = $num +1
$text_size = $text_size +1
GUICtrlSetFont($text,$text_size)
GUICtrlSetData($text,$num)
$w = $w + 10
$h = $h +  10
GUICtrlSetPos($text,10,30,$w,$h)
EndSwitch
WEnd


 

Категория: Autoit | Добавил: moskov (21.09.2023)
Просмотров: 61 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [236]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 10
Гостей: 10
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск