Заранее большое спасибо.
Я только начинающий


Private Sub YourCheck_Click()
SaveSetting "App", "Section", "YourCheck", YourCheck.Value
End Sub

Александр Дмитриев писал(а):
- Код: Выделить всё
Private Sub YourCheck_Click()
SaveSetting "App", "Section", "YourCheck", YourCheck.Value
End Sub

Private Sub Checkbox1_Click()'имя чекбокса(Name)
SaveSetting App.EXname, CURRENT_USER, "YourCheck", Checkbox1.Value'значение_
чекбокса
End Sub

Александр Дмитриев писал(а):
- Код: Выделить всё
Private Sub YourCheck_Click()
SaveSetting "App", "Section", "YourCheck", YourCheck.Value
End Sub


Сейчас этот форум просматривают: Google-бот и гости: 17