InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comWed, 09 Jul 2008 11:15:08 GMT20http://www.relib.com/forums/Topic915533-1-1.aspxЗачем же так усложнять?<br>поставте рядом скрытую кнопку, назначте ей Picture, DownPicture и DisablePicture<br>и используйте их.Thu, 13 Sep 2007 11:17:57 GMTIrokezhttp://www.relib.com/forums/Topic915533-1-1.aspxЗдравствуйте уважаемые программисты,<BR>вопрос, очень простенький , я думаю он<BR>будет не безынтересен и всем новичкам. А проблема такая, надо мне<BR>сделать кнопку на основе Image, навороты мне не нужны, просто нужно<BR>изменить рисунок при свойстве довн , ну все знают, делается это примерно<BR>так:<BR>кнопка нажата - Image1.Picture = Image3.Picture<BR>кнопка отпущена - Image1.Picture = Image2.Picture<BR>ну и при загрузке - Image1.Picture = Image2.Picture<BR>Что бы не вешать кучу изображений (для разных кнопок) я решил всё это<BR>запихнуть в контрол прямо в проекте через add - &gt; User Control<BR>Присвоил события и свойства контролу через ActiveX Control Interface Wizard<BR>добавил два новых свойства:<BR>Image2.Picture = ImageUp (Property)<BR>Image2.Picture = Imgedovn (Property)<BR>сохранил, закрыл контрол (чтобы можно было с ним работать)<BR>Подобное я делал не один раз, но вот что получается:<BR>Я через новые значения mageUp и Imgedovn назначаю изображения своей<BR>кнопке которое благополучно отображается, но при запуске проекта<BR>кнопки возвращают первоначальное изображение (которое я присвоил в<BR>контроле, в виде первоначального вида) после выгрузки в проекте также<BR>отображается только изображение контрола по умолчанию. Я такое делал и<BR>раньше, может чего забыл?<BR>На всякий случай приведу исходник контрола но без обработки<BR>ActiveX Control Interface Wizard я думаю так будет проще и нагляднее:<BR>[сode]<BR>'При загрузке контрола присваиваем Image1 изображение из Image2.Picture<BR>Private Sub UserControl_Initialize()<BR>Image1.Picture = Image2.Picture<BR>End Sub<P>' При нажатии на Image1 присваиваем ему изображение из Image3.Picture<BR>Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>SendKeys "A"<BR>Image1.Picture = Image3.Picture<BR>End Sub</P><P>'Если отпускаем присваиваем Image1 изображение из Image2.Picture<BR>Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>Image1.Picture = Image2.Picture<BR>End Sub<BR>[/сode];</P><P>Можно конечно попробовать прописать абсолютный путь что-нибудь на вроде<BR> Image2.Picture = "С:/book.bmp" но так не хочется таскать рисунки<BR> вместе с программой :(<BR> Заранее всем спасибо, удачного дня, с уважением Призрак<BR>Thu, 23 Aug 2007 15:19:21 GMTPhantomM