Сообщество Чайников

Вопрос

Как сделать, чтобы при нажатии кнопки с рисунком, ее рисунок изменялся на другой?

Ответ

Помести на форму объект ImageList из библиотеки Microsoft Windows Common Controls 6.0. В него занеси 2 рисунка. Затем при загрузке формы впиши следующий код:

Private Sub Form_Load()
Command1.Picture = ImageList1.ListImages(1).Picture ' Где 1 — индекс картинки
End Sub

А при нажатии на кнопку

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = ImageList1.ListImages(2).Picture
End Sub

Если необходимо, чтобы при отпускании кнопки рисунок возвращался на место, пишем следующее:

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = ImageList1.ListImages(1).Picture
End Sub

Иван