Понедельник, 11 Ноября 2024, 02:32

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
VB 6.0 +Eclipse+Работа
biovolkДата: Суббота, 27 Ноября 2010, 17:02 | Сообщение # 1
частый гость
Сейчас нет на сайте
Привет!

У меня такая проблема.

Капаясь в исходнеках Eclipse stable

Я падумал а пачему бы мне

не паставить на кнопки изоброжения

А то както невписываются серые кнопочьки в мой дизайн.

Ну начал я это дело.

Нарисовал картинку применил ее через picture к кнопке

Компелирую...

Запускаю...

И Упсь! Все теже серые кнопки(((

Народ падскажите что я зделал не так?
------------------------------------------------------

Также нужен програмист VB 6.0

Стучать в асю 59-59-59-656

Для чего нужен?

Для изменения управления в Eclipse stable

С меня мани.

WMR


saaaaaaaaaaaaa

Сообщение отредактировал biovolk - Суббота, 27 Ноября 2010, 17:02
IIIypukДата: Четверг, 03 Февраля 2011, 01:14 | Сообщение # 2
-- ArchLinux Fan --
Сейчас нет на сайте
Как вместо кнопки поставить картинку на VB6 знаю.

Первый вариант: Файл загружается из папки с exe
1. Добавляем на форму обьект Image.
2. В свойствах Picture Выбираем файл картинки всех расширений кроме png.
Если нужна анимация, то рисуем дополнительную картинку.
Это картинка будет делать эффект нажатия. Рисуем картинку и вставляем код:
Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image.picture = "путь на картинку"
End Sub

Можно еще сделать эффект наведения:
Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
image.picture = "путь на картинку"
End Sub

Второй способ, если файлы картинки находятся в файле ресурсов (res) файлы закидуются только в bmp
Открытие обычной кнопки
Private Sub Form_Load()
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub

Наведение:
Private Sub Image_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub

Нажатие:
Private Sub Image_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image.Picture = loadrespicture(здесь номер картинки,0)
End Sub


Одинокий юзер

Сообщение отредактировал IIIypuk - Четверг, 03 Февраля 2011, 01:19
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг