Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2016, 21:20   #1
xsens
Пользователь
 
Регистрация: 21.03.2016
Сообщений: 10
По умолчанию Как изменить цвет фигур при нажатии?

Ребят ,нужна помощь.
Есть игра змейка(Это овалы управляющиеся с помощью стрелок)
Нужно сделать чтобы при нажатии на кнопку цвет ,которая расположена на форме менялся цвет этих овалов. Например они синие ,после нажатия красные ,после зеленые и.т.п ,думаю понятно ,помогите пожалуйста.
Заранее спасибо..
Файл приложил.
Вложения
Тип файла: rar 123.rar (25.4 Кб, 11 просмотров)
xsens вне форума Ответить с цитированием
Старый 21.03.2016, 21:30   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

описуем глобально
Код:
Dim r, g, b
меняем строку в Пуск_Click
Код:
shar(i).Fill.ForeColor.RGB = RGB(r, g, b) 'RGB(111, 111, 111)
первой строкой в Пуск_KeyDown пишем
Код:
r = Int(256 * Rnd): g = Int(256 * Rnd): b = Int(256 * Rnd)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 21.03.2016, 21:49   #3
xsens
Пользователь
 
Регистрация: 21.03.2016
Сообщений: 10
По умолчанию

Почему в Пуск_KeyDown, если нужно задать для кнопки CommandButton1(Цвет)
И при написании ничего не меняется ,только цвет становится черным при нажатии на пуск ,поясните пожалуйста?
xsens вне форума Ответить с цитированием
Старый 21.03.2016, 21:58   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

уберите из KeyDown, пропишите в Баттон
Код:
Private Sub CommandButton1_Click()
    r = Int(256 * Rnd): g = Int(256 * Rnd): b = Int(256 * Rnd)
End Sub
Вложения
Тип файла: rar 123.rar (31.9 Кб, 11 просмотров)
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 21.03.2016 в 22:05.
Aleksandr H. вне форума Ответить с цитированием
Старый 21.03.2016, 22:07   #5
xsens
Пользователь
 
Регистрация: 21.03.2016
Сообщений: 10
По умолчанию

Это я напутал сначала немного,сейчас все работает
Спасибо вам большое добрый человек)
xsens вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить цвет итема TreeView, при наведении курсора мыши C++ Builder ? Mat Bourn C++ Builder 2 09.05.2015 09:55
вывод фигур при нажатии лкм kkasady Общие вопросы Delphi 3 20.03.2015 22:42
Сменить цвет кнопки при нажатии Вэйлинк Общие вопросы C/C++ 1 19.11.2014 21:00
Сменить цвет кнопки при нажатии Вэйлинк C# (си шарп) 1 15.11.2014 17:40
Как изменить текст сообщения при нажатии на кнопку? motaro Помощь студентам 2 14.07.2007 13:15