DevTricks

GUI CheckBox

Jan 29th, 2021 (edited)
398
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sw = 0
  2.  
  3. ;Gui, -Caption ;Убрать заголовок окна
  4. Gui, Add, Checkbox, gCHB1_action vCHB1, CheckBox
  5. Gui, Add, Button, Default gButtonGo, Go
  6. Gui, Show, w300 h200, TestApp
  7. Return
  8.  
  9. CHB1_action: ; Действие на нажатие чекбокса
  10.     Random, X, 1, 300
  11.     Random, Y, 1, 200
  12.     Gui, Add, Text,x%X% y%Y%, olololo %X% %Y%
  13. Return
  14.  
  15. ButtonGo: ; Нажатием на кнопку формы узнаём стоит ли галочка
  16.     Gui, Submit, NoHide
  17.     If CHB1 = 1
  18.         msgbox, yes
  19.     else
  20.         msgbox, no
  21. Return
  22.  
  23. F1:: ;Показать/Спрятать форму
  24.     if (sw = 0)
  25.       {
  26.           GUI, hide
  27.           sw = 1
  28.       }
  29.       else
  30.       {
  31.           GUI, show
  32.           sw = 0
  33.       }
  34. return
  35.  
  36. F3:: ; Нажатием F3 узнаём стоит ли галочка (работает в любом состоянии формы)
  37. Gui, Submit, NoHide
  38. If CHB1 = 1
  39.     msgbox, yes
  40. else
  41.     msgbox, no
  42. Return
  43.  
  44.  
  45. GuiClose:
  46.   ExitApp
  47.   return
Add Comment
Please, Sign In to add comment