Картинка! -(

[LexBondAgent007]

Привет всем -)) Вот столкнулся с проблемой: при процедуре Mouse Move нужно чтобы картинка на PICTURE менялась. Но она каждый раз меняется как только мышь движется на объекте PICTURE (есстественно). И тем самым очень засоряет оперативу... Вот вопрос:
Как сделать так чтобы когда мышь касалась объекта картинка менялась ОДИН РАЗ - а как только мышь покинет объект - картинка оставалась первоначальной? Вернее сказать это можно с делать с момощью:

Код: Выделить всё

if a = 0 then СМЕНИТЬ КАРТИНКУ else НИЧЕГО НЕ ДЕЛАТЬ

Но есть ли более "легкие" решения?

З.Ы. Искал на форуме и в поисковиках - но ничего подобного не нашел. -(

[A.A.Z.]

Ну.. Если я правильно понял цель - ставь флаг, который будет тебе оповещать о том, какая там сейчас картинка

Код: Выделить всё

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Flag As Boolean
If Not Flag Then Set Picture1.Picture = LoadPicture("..."): Flag = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Flag As Boolean
If Not Flag Then Set Picture1.Picture = LoadPicture("..."): Flag = True
End Sub

[LexBondAgent007]

ВААУ!! А я даже не знал что эти флаги такие удобные
И так все просто в две строчки!
A.A.Z., СПАСИБ!!!!