Как сделать, чтобы при нажатии кнопки её картинка менялась на нажатую и обратно - VB

Формулировка задачи:

Как сделать, чтобы имитировалось нажатие? То есть картинка кнопки менялась на нажатую и обратно сразу. Пишу:

                    Листинг программы
                
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Image2.Picture = Image3.Picture
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Image3.Picture = Image2.Picture
End Sub

Он просто нажимает, но назад не меняет. В чем ошибка? Спасибо

Решение задачи: «Как сделать, чтобы при нажатии кнопки её картинка менялась на нажатую и обратно»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image2.Picture = Image4.Picture
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image2.Picture = Image5.Picture
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image3.Picture = Image5.Picture
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image3.Picture = Image4.Picture
End Sub

Оцени полезность:

7 голосов , оценка 3.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы