Конторолы кнопок

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
xqz_me
Постоялец
Постоялец
 
Сообщения: 413
Зарегистрирован: 04.12.2005 (Вс) 14:58

Конторолы кнопок

Сообщение xqz_me » 13.12.2005 (Вт) 22:36

Кто покрасивше контрол для кнопок посоветует?

P.S. Мне MagicButton понравился, только он по-чему глючит... Например, у мне стоит Private Sub MagicButton1_Click(), а событие происходит только при двойном щелчке. Найти б ему замену пофункциональней.

Warn
Обычный пользователь
Обычный пользователь
 
Сообщения: 52
Зарегистрирован: 08.12.2005 (Чт) 20:34
Откуда: Питер

Сообщение Warn » 13.12.2005 (Вт) 22:45

А чем тебя стандартный контрол кнопки в ХР не устраивает? Он у тебя деревянный? Если это, то прилепи к своей программе манифест и запускай. А вообще лучше прилепи манифест к vb6.exe. Среда разработки тоже станет в стиле ХР. Ищи на компе файл *.manifest, копируй в директорию с программой, переименовывай в <имя программы.exe>.manifest и запускай прогу.
Удачи ;)

xqz_me
Постоялец
Постоялец
 
Сообщения: 413
Зарегистрирован: 04.12.2005 (Вс) 14:58

Сообщение xqz_me » 13.12.2005 (Вт) 22:51

Спасиба, конечно. :) Тока не работает. Аппликуха с манифестом ошибку на выходе выдаёт.

Мне контрол нужен, симпатичный. :D

Warn
Обычный пользователь
Обычный пользователь
 
Сообщения: 52
Зарегистрирован: 08.12.2005 (Чт) 20:34
Откуда: Питер

Сообщение Warn » 13.12.2005 (Вт) 22:59

Так ты разбирайся, почему ошибку выдаёт, а не контрол ищи. Не лень тебе будет таскать контрол с ехе-шником? Это то же самое, что писать On Error Resume Next, где что-то неправильно. Хотя если тебе припёрло НЕОБЫЧНУЮ кнопку использовать, то флаг тебе в руки :) Ищи контрол. ;)

xqz_me
Постоялец
Постоялец
 
Сообщения: 413
Зарегистрирован: 04.12.2005 (Вс) 14:58

Сообщение xqz_me » 13.12.2005 (Вт) 23:06

Ошибки я не нашёл. А вот использовать НЕОБЫЧНУЮ кнопку меня действительно припёрло. Хочу плоскую кнопку, меняющию цвет при наведении.

Warn
Обычный пользователь
Обычный пользователь
 
Сообщения: 52
Зарегистрирован: 08.12.2005 (Чт) 20:34
Откуда: Питер

Сообщение Warn » 13.12.2005 (Вт) 23:19

Ну йопта.. Это же Label. Пропиши в событии лэйбла MouseMove фичу Label1.backcolor=<цвет>("Red" например). А потом в событии формы пропиши label1.backcolor="<стандартный цвет>("White", например, тоже какой хочешь). Пробуй :wink:

Warn
Обычный пользователь
Обычный пользователь
 
Сообщения: 52
Зарегистрирован: 08.12.2005 (Чт) 20:34
Откуда: Питер

Сообщение Warn » 13.12.2005 (Вт) 23:23

Упс. :) "Red" u "White" не прокатит. Используй vbRed или vbWhite, или цвета типа &H8000000D&- цвет выделенного элемента в ОС Vist'e. :)

Warn
Обычный пользователь
Обычный пользователь
 
Сообщения: 52
Зарегистрирован: 08.12.2005 (Чт) 20:34
Откуда: Питер

Сообщение Warn » 13.12.2005 (Вт) 23:23

Упс. :) "Red" u "White" не прокатит. Используй vbRed или vbWhite, или цвета типа &H8000000D&- цвет выделенного элемента в ОС Vist'e. :)
Код: Выделить всё
Option Explicit

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H8000000F
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H8000000D
End Sub

Vladimir!
Обычный пользователь
Обычный пользователь
 
Сообщения: 88
Зарегистрирован: 19.09.2005 (Пн) 21:47
Откуда: Пермь

Сообщение Vladimir! » 13.12.2005 (Вт) 23:50

Чтоб прога с манифестом работала надо в модуль кое-что еще прописать. Где-то на форуме совсем недавно эта тема обсуждалась.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

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

    TopList