Создание мини-игры и первые проблемы с движением объектов - VB

Формулировка задачи:

Доброго всем времени суток, решили с другом создать мини-игрушку, но вот возникли несколько проблем, а именно мерцание объекта при движении! Впринципе можно заменить Image на PictureBox, но там картинки, это тарелки, движущиеся по столу, и соответственно там нужен прозрачный фон! Вчера целую ночь искал в интернете, нифига путнего не нашел... Нет ну есть примеры с bitиде или как то так, но блин вообще нифига не понятно там. Кто сможет, пожалуйста помогите решить проблему!!! О том что такое 2я буферизация примерно знаю, но блин я api только начал учить и честно сказать пока ничего не понимаю особо.... Заранее благодарен за помощь!!!

Код к задаче: «Создание мини-игры и первые проблемы с движением объектов - VB»

textual
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
 
 
Private Sub Form_Load()
Dim Ret As Long
Dim myback As Long
myback = Me.BackColor
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, myback, 50, 0
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ