Picture1.Move вместо одного видно два

[Yvlad]

Sub Form_Load()
Me.Scale (0, 0)-(2, 1)
Picture1.Width = 0.5
Picture1.Height = 1
Picture1.BackColor = vbBlack
Picture1.Move 1.25, 0, 0.5, 1
End Sub
Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Int(X)
If X = 0 Then
Picture1.Move X + 0.25, 0, 1.5, 1
Else
Picture1.Move 1.25, 0, 0.5, 1
End If
End Sub
'Когда мышь влево(Х=0) то какое-то время видно два Picture1 одного размера(старого), а потом сливаются в 1 большой.
'Почему и как это устранить? Компьютер: пень 1,7 гГц.

[Хакер]

У меня всё работает нормально. Поэтому либо у тебя висяки, либо что-то есть ещё на форме, что грузит систему, либо что-то ещё.

Если висяки.
Попробуй на своём-же компе попробовать код, который ты выложил. Просто, без ничего - только этот код. Кстати код MouseMove событие, происходящее достаточно часто(!), поэтому его код должен быть всегда оптимиз., так что держи

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


Picture1.Move Sgn(X \ 1) + 0.25, 0, Abs(X \ 1 = 0) + 0.5, 1


- это 1 строчка события, больше не надо.

Если же будет тоже самое - ничего не поделаешь...

___
PS. Проверь на форме или где-там у тебя это происходит свойства AutoRedraw и ClipControls.