LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 05 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Выпуклые ...
 Тема: Выпуклые кнопки
 
 15.06.2007 21:02:09
Валерий3
43 сообщения


Тема: Выпуклые кнопки
Может кто подскажет - хотелось бы такую вещицу - чтоб при подводе мышки к кнопке она становилась выпуклой.
У меня была подобная фича под 97 но в 2000 и XP она не работает.
Плиз.


P.S. Общий раздел по формам
Автор: Валерий от 15.03.2002 8:48:34 Источник ...
 15.06.2007 21:02:09
All
4316 сообщения
1-ый


RE: Выпуклые кнопки
1. Вставляете рисунок кнопки(например, But1.bmp) в форму.
2. Далее обрабатываете событие мышки:
Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Pic1.Picture = "But2.bmp" ' Объемный вид
End Sub


P.S. Общий раздел по формам
Автор: Виктор Конюков от 0:00:00 Источник ...
 15.06.2007 21:02:09
Валерий3
43 сообщения


RE: Выпуклые кнопки
Это понял - огромное спасибо, прекрасно работает!
А вот еще какой вопрос, а возможно сделать так:
если я подвожу к кнопке мышь - она становиться выпуклой, убираю мышь - она возврашает исходное изображение?
И еще - немного неудобно насчет картинки, их же нужно все хранить, а к внедренным объектам как-то можно это применить?
Заранее спасибо, ребята Вы волшебники.


P.S. Общий раздел по формам
Автор: Валерий от 01.04.2002 14:24:24 Источник ...
 15.06.2007 21:02:09
All
4316 сообщения
1-ый


RE: Выпуклые кнопки
УРА!!!!!!
Я сам смог сделать ВСЕ!
Теперь можно многое сделать с кнопками!
У кого есть желание пишите - поделюсь.
Спасибо Вам ребята.


P.S. Общий раздел по формам
Автор: Валерий от 0:00:00 Источник ...
 15.06.2007 21:02:09
Валерий3
43 сообщения


RE: Выпуклые кнопки
Доброе время суток!
Хочу сразу оговориться - я не программист, а любитель.
Дойти до данного решения мне помогли многие советы.
Поискав там и сям - я пришел вот к какому решению:
Создаем форму и в ней НАДПИСЬ,
далее у надписи вешаем::
перемещение указателя:(Так будет выглядеть надпись, когда на нее наедет курсор)
Private Sub VHOD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.VHOD.ForeColor = 65535 'Объявляем цвет текста - необязателен'
Me.VHOD.FontSize = 10 'Объявляем размер шрифта - необязателен'
Me.VHOD.SpecialEffect = 1 'Объявляем оформление надписи - необязателен'
Me.VHOD.BackColor = 255 'Объявляем цвет фона - необязателен'
End Sub
кнопка вниз:(Так будет выглядить надпись, когда нажмешь кнопку)
Private Sub VHOD_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.VHOD.ForeColor = 0
Me.VHOD.FontSize = 10
Me.VHOD.SpecialEffect = 2
Me.VHOD.BackColor = 15523799
End Sub

далее у области данных вешаем::
перемещение указателя:(Так будет выглядеть надпись, когда с нее уйдет курсор)
Private Sub ОбластьДанных_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.VHOD.ForeColor = 0
Me.VHOD.FontSize = 10
Me.VHOD.SpecialEffect = 0
Me.VHOD.BackColor = 14786141
End Sub

Надеюсь я все описал подробно и доходчиво.
Это только направление для движения - далее возможно усовершенствование.
Если у кого-то будут "усовершенствования" не откажусь если Вы ими поделитесь.



P.S. Общий раздел по формам
Автор: Валерий от 03.04.2002 5:53:12 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Выпуклые ...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke