Как добавить на форму автофигуру?

[RipVanWinkel]

Вечер добрый.
У меня назрел важный вопрос.

Как добавить на форму - автуфигуры?
Дело в том, что мне очень не нравятся кнопки которые там (на форме) можно располагать. Серые и невзрачные, квадратной формы.

С другой стороны - кнопки сделанные из автофигур - просто заглядение.
Нельзя ли как-нибудь переместить эти кнопки на форму ?

[IgorGO]

меня настораживают всякие несуразные элементы на форме с претензиями на индивидуальный дизайн и совсем другое дело стандартные привычные кнопки, вид которой говорит, что это кнопка и надпись в которой подсказывает что произойдет если эту кнопку нажать

[RipVanWinkel]

Ну а меня вот наоборот радуют....
На эстетически красиво оформленную кнопку - одно удовольствие нажимать.

[EducatedFool]

Можно всё сделать (и круглые разноцветные кнопки), - но сложно, лучше даже не пробовать.
WinAPI нужно использовать, много очень сложного кода.

Простых решений нет (если нужна кликабельная кнопка, когда видно, как она нажимается)
А если видимая кликабельность не важна, - на форму поместите большую картинку (фоном, в свойсвах формы задайте), а поверх картинки расположите элементы Label с прозрачностью (которым назначите надписи и макросы на событие Click)

[Aleksandr H.]

Сообщение от EducatedFool

(если нужна кликабельная кнопка, когда видно, как она нажимается)

Иллюзию клика можно делать так: нажатие кнопки мыши на картинке - сдвиг картинки вправо-вниз на Х пунктов, отпуск кнопки - сдвиг картинки влево-вверх на -Х пунктов. Топорно, но если хочется то можно А еще можно при нажатии кнопки подгружать другую картинку в элемент, например с тенью для "ваашпэ реалистичности"

[RipVanWinkel]

У вас есть примерный макрос такой кнопки?

[Aleksandr H.]

Private Sub Image1_MouseDown(ByVal Button As Integer, & _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Left = Image1.Left + 5
    Image1.Top = Image1.Top + 5
    Image1.Picture = LoadPicture("c:\Users\username\Pictures\2.jpg")
End Sub

Private Sub Image1_MouseUp(ByVal Button As Integer, & _
 ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Left = Image1.Left - 5
    Image1.Top = Image1.Top - 5
    Image1.Picture = LoadPicture("c:\Users\username\Pictures\1.jpg")
End Sub

[RipVanWinkel]

Aleksandr H., что-то не работает.
Фотографии на форме не появляются - хотя по ссылкам они вроде есть.

[Aleksandr H.]

Рождество. Я тоже бы не работал.
Вы просили пример, пример я скинул, пример рабочий из рабочей книги. У Вас не работает? Дебажте, ищите/спрашивайте в гугле/форумах по ошибках какие компилятор выдает, делитесь своим файлом с другими, может они увидят косяк.

[RipVanWinkel]

Aleksandr H., знаете что.

Вы тогда - отмечайте Рождество как следует. Погуляйте от души.
Кстати - с Рождеством Вас.

А завтра со свежей головой, отдохнувши и будучи полным сил - напишете мне тогда - где там в коде может быть косяк.