Что нового

Запоминание нажатия кнопки.

Detre

Новичок
Сообщения
67
Репутация
0
Всем привет. Возникла эстетическая потребность в запоминании эффекта после нажатия кнопки. Моя кнопка делает окно полупрозрачным, другая наоборот убирает данный эффект.

Код:
Func _Button14()
    WinSetTrans($UI, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 255 Step 2
    WinSetTrans($UI, "", $i) ;Прозрачность 0-255
 Next

    WinSetTrans($hMenu, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 255 Step 2
    WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
 Next
EndFunc

Func _Button15()
    WinSetTrans($UI, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 215 Step 2
    WinSetTrans($UI, "", $i) ;Прозрачность 0-255
 Next

    WinSetTrans($hMenu, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 215 Step 2
    WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
 Next
EndFunc


Как реализовать данную задачу? Необязательно чтобы было две кнопки, если возможно, то можно только на одну или чекбокс. Переменные типа FileReadLine и пр. мне немного непонятны и прошу по возможности пояснить как это работает. Заранее огромное спасибо)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,670
Репутация
2,473
Возникла эстетическая потребность в запоминании эффекта после нажатия кнопки
Запоминать в файл?
Код:
Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
    
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
    
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
    
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
    
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc


Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.
 
Автор
Detre

Detre

Новичок
Сообщения
67
Репутация
0
Запоминать в файл?
Код:
Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
 
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
 
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
 
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
 
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc


Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.
Уже второй раз меня Вы выручаете, большое спасибо)Да, запись в файл)
Сообщение автоматически объединено:

Запоминать в файл?
Код:
Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
  
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
  
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
  
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
  
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc


Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.
У меня меняется файл ini но при повторном запуске не применяется параметр из $iTrans((((
Сообщение автоматически объединено:

Уже второй раз меня Вы выручаете, большое спасибо)Да, запись в файл)
Сообщение автоматически объединено:


У меня меняется файл ini но при повторном запуске не применяется параметр из $iTrans((((
Все, сообразил. В первичный WinSetTrans прописал (Основной, для GUI) $iTrans и заворкало.
 
Последнее редактирование:
Верх