Изменить название ToggleButton при нажатии.

[agregator]

Здравствуйте, уважаемые программисты. Напишите пожалуйста код, который при нажатие на "ToggleButton1" именит его название (Caption) с "Вкл." на "Выкл."

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
"Выкл."
    Else
"Вкл."
    End If 
End Sub

Если это возможно.

[Hugo121]

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
ToggleButton1.Caption = "Выкл."
    Else
ToggleButton1.Caption = "Вкл."
    End If
End Sub

Или может быть наоборот
Чёж сами не попытались - Caption ведь слово не чужое...

[Hugo121]

Можно и так:

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
ToggleButton1.Caption = "Выкл."
ToggleButton1.BackColor = vbGreen
    Else
ToggleButton1.Caption = "Вкл."
ToggleButton1.BackColor = vbRed
    End If
End Sub

Есть ещё и ForeColor

[agregator]

Спасибо Hugo121. Сейчас вижу, что все просто. Может в другой раз додумаюсь по подобию этого, как менять свойства.

[agregator]

Спасибо Hugo121 за дополнение. Не знал, что можно так менять цвета, vbGreen и vbRed.

[Hugo121]

Это "встроенные" константы, иначе можно числами написать.

Module ColorConstants
Member of VBA

Const vbGreen = 65280 (&HFF00)
Const vbRed = 255 (&HFF)
Const vbMagenta = 16711935 (&HFF00FF)
...

[agregator]

Нашел через Object Browser, увидел список, но у меня туго с английским (только через PROMT).