ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение цвета фона надписи
14 сообщений из 14, страница 1 из 1
Изменение цвета фона надписи
    #39304600
Kovalchyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kovalchyk
Гость
Народ очень нужна Ваша помощь.
Есть форма с тремя надписями и группа из трех переключателей. Задача стоит такая. При включении одного из переключателей должно меняться цвет фона соответствующей надпись. Помогите пожалуйста.
...
Рейтинг: 0 / 0
06.09.2016, 17:16
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304695
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Kovalchyk,
тип фона обычный (не прозрачный)
и как-то так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub группа4_AfterUpdate()
 Dim lngRed As Long, lngYellow As Long, lngWhite As Long
  lngRed = RGB(255, 0, 0)
      lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)
If Me.группа4 = 0 Then
      Me.надпись13.BackColor = lngRed
Else
     Me.надпись13.BackColor = lngWhite
End If
.......
End Sub
...
Рейтинг: 0 / 0
06.09.2016, 19:35
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304703
Kovalchyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kovalchyk
Гость
Огромное спасибо. Но немного не так.
Когда включен переключатель 0 надпись "ТИП БУМАГИ" красный все остальные надписи белые.
Когда включается переключатель 1 надпись "ФОРМАТ А4" становится красным а все остальные белым цветом.
Тоже самое касается переключателя 0.
Буду очень признателен.
...
Рейтинг: 0 / 0
06.09.2016, 19:59
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304704
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
sdku,

Для стандартных цветов существуют константы VBA
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite.
...
Рейтинг: 0 / 0
06.09.2016, 19:59
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304706
Kovalchyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kovalchyk
Гость
я не силе в програмировании. Если не трудно можете написать код???
...
Рейтинг: 0 / 0
06.09.2016, 20:02
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304713
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Kovalchyk,
а может еще шнурки погладить? (все что Вам нужно показано-а дальше морщите лоб и разбирайтесь сами-иначе никогда и ни чему не научитесь)
...
Рейтинг: 0 / 0
06.09.2016, 20:17
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304715
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
__Michelle,
а в 97? (жива еще привычка)
...
Рейтинг: 0 / 0
06.09.2016, 20:19
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304720
Kovalchyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kovalchyk
Гость
я понимаю что я полный профан в программировании. но действительно очень нужно.
...
Рейтинг: 0 / 0
06.09.2016, 20:25
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304728
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
sdku__Michelle,
а в 97? (жива еще привычка) В 97-м тоже.
...
Рейтинг: 0 / 0
06.09.2016, 20:49
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304734
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim Ctl As Control
For Each Ctl in Me.Controls
 If TypeOf Ctl Is Label Then
  If (Ctl.Name = "ТИП БУМАГИ" And Me.Переключатель0) Or _
     (Ctl.Name = "ФОРМАТ А4" And Me.Переключатель1) Then
   Ctl.BackColor = vbRed
  Else
   Ctl.BackColr = vbWhite
  End If
 End If
Next
...
Рейтинг: 0 / 0
06.09.2016, 21:04
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39304738
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Поправка.
Наверное, правильно проверять не Ctl.Name, а Ctl.Captiion.
...
Рейтинг: 0 / 0
06.09.2016, 21:19
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39305055
Kovalchyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kovalchyk
Гость
Огромное спасибо.
Я пошел немного по другому пути.

Private Sub Группа4_AfterUpdate()
Dim lngRed As Long, lngWhite As Long
lngGreen = RGB(0, 255, 0)
lngWhite = RGB(255, 255, 255)
Select Case Ãðóïïà4.Value
Case 0: Me.Надпись13.BackColor = lngGreen: Me.Надпись14.BackColor = lngWhite: Me.Надпись15.BackColor = lngWhite
Case 1: Me.Надпись13.BackColor = lngWhite: Me.Надпись14.BackColor = lngGreen: Me.Надпись15.BackColor = lngWhite
Case 2: Me.Надпись13.BackColor = lngWhite: Me.Надпись14.BackColor = lngWhite: Me.Надпись15.BackColor = lngGreen
End Select

End Sub
...
Рейтинг: 0 / 0
07.09.2016, 12:04
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39305242
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Kovalchyk,
__Michelle же говорила о константах:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Группа4_AfterUpdate()
Dim lngRed As Long, lngWhite As Long 'это
lngGreen = RGB(0, 255, 0)                 'все
lngWhite = RGB(255, 255, 255)          'удалить
Select Case группа4.Value
Case 0: Me.Надпись13.BackColor = lngGreen vbGreen: Me.Надпись14.BackColor =lngWhite vbWhite: Me.Надпись15.BackColor = lngWhite vbWhite
'и так далее
Case 1: Me.Надпись13.BackColor = lngWhite: Me.Надпись14.BackColor = lngGreen: Me.Надпись15.BackColor = lngWhite
Case 2: Me.Надпись13.BackColor = lngWhite: Me.Надпись14.BackColor = lngWhite: Me.Надпись15.BackColor = lngGreen
End Select

End Sub
...
Рейтинг: 0 / 0
07.09.2016, 14:29
| Ответить | Цитировать | Написать  
Изменение цвета фона надписи
    #39305248
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
PS. Value есть "умолчательное" свойство и писать его не обязательно группа4=группа4.value (равнозначны)
...
Рейтинг: 0 / 0
07.09.2016, 14:33
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение цвета фона надписи
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1613181]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 12ms
total:  131ms
созд. / загр.: 131ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]