Мерцание картинки на форме...

[Dex]

При передвижении картинки на форме она мерцает как это можно исправить

[Amed]

Перемещаешь PictureBox? Расскажи подробнее.

[XairOn]

А как передвигаешь??? Кусочек кода для наглядности не помешает.

[Dex]

Ну вообщето я использую ImageBox а перемещаю его к примеру через таймер:

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

Image1.Left=Image1.Left+10 'двигается вдоль оси x вправо
Image1.Top=Image1.Top+10 'двигается вдоль оси y внизImage1.Left=Image1.Left-10 'двигается вдоль оси x влево
Image1.Top=Image1.Top-10 'двигается вдоль оси y вверх


[Mongoose]

Насколько я понял, то объект - image.
Так вот, его мерцание можно лишь слегка уменьшить заданием свойства autoredraw=true у объекта на котором расположен image.
Пользуйся BitBlt, и да пребудет с тобой Сила!

[Dex]

Всё бы было бы в ажуре, да вот токо как я не знал как использовать BitBlt так и не знаю!!!

[Amed]

Не закачивается пример

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

Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Ret as Long

'На форме Picture1 с картинкой и пустая Picture2.
'У Picture1 AutoRedraw=True
Private Sub Form_Click
Ret = BitBlt (Picture2.hDC, 0, 0, 32, 32, Picture1.hDC, 0, 0, vbSrcCopy)
End Sub