|
|
|
новичок
участник
Last Login: 30.08.2008 19:53
Сообщ.: 2,
Visits: 46
|
|
Здравствуйте уважаемые программисты,
вопрос, очень простенький , я думаю он
будет не безынтересен и всем новичкам. А проблема такая, надо мне
сделать кнопку на основе Image, навороты мне не нужны, просто нужно
изменить рисунок при свойстве довн , ну все знают, делается это примерно
так:
кнопка нажата - Image1.Picture = Image3.Picture
кнопка отпущена - Image1.Picture = Image2.Picture
ну и при загрузке - Image1.Picture = Image2.Picture
Что бы не вешать кучу изображений (для разных кнопок) я решил всё это
запихнуть в контрол прямо в проекте через add - > User Control
Присвоил события и свойства контролу через ActiveX Control Interface Wizard
добавил два новых свойства:
Image2.Picture = ImageUp (Property)
Image2.Picture = Imgedovn (Property)
сохранил, закрыл контрол (чтобы можно было с ним работать)
Подобное я делал не один раз, но вот что получается:
Я через новые значения mageUp и Imgedovn назначаю изображения своей
кнопке которое благополучно отображается, но при запуске проекта
кнопки возвращают первоначальное изображение (которое я присвоил в
контроле, в виде первоначального вида) после выгрузки в проекте также
отображается только изображение контрола по умолчанию. Я такое делал и
раньше, может чего забыл?
На всякий случай приведу исходник контрола но без обработки
ActiveX Control Interface Wizard я думаю так будет проще и нагляднее:
[сode]
'При загрузке контрола присваиваем Image1 изображение из Image2.Picture
Private Sub UserControl_Initialize()
Image1.Picture = Image2.Picture
End Sub' При нажатии на Image1 присваиваем ему изображение из Image3.Picture
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SendKeys "A"
Image1.Picture = Image3.Picture
End Sub 'Если отпускаем присваиваем Image1 изображение из Image2.Picture
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = Image2.Picture
End Sub
[/сode]; Можно конечно попробовать прописать абсолютный путь что-нибудь на вроде
Image2.Picture = "С:/book.bmp" но так не хочется таскать рисунки
вместе с программой :(
Заранее всем спасибо, удачного дня, с уважением Призрак
|
|
|
|
|
Supreme Being
участник
Last Login: 27.03.2008 10:38
Сообщ.: 193,
Visits: 1 745
|
|
Зачем же так усложнять?
поставте рядом скрытую кнопку, назначте ей Picture, DownPicture и DisablePicture
и используйте их.
|
|
|
|