Объясните мне, почему этот код ни разу не выдаст MsgBox (как пример)?!!!
- Код: Выделить всё
Option Explicit
Private Sub Picture1_Click()
Set Picture1.Picture = Picture1.Image
If Picture1.Picture = Picture1.Image Then MsgBox "Ok!"
End Sub
Option Explicit
Private Sub Picture1_Click()
Set Picture1.Picture = Picture1.Image
If Picture1.Picture = Picture1.Image Then MsgBox "Ok!"
End Sub
Private Sub Picture1_Click()
Debug.Print Picture1.Picture
Debug.Print Picture1.Image
Set Picture1.Picture = Picture1.Image
Debug.Print Picture1.Picture
Debug.Print Picture1.Image
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 171