Pomeranje slike u VB-u !!??

Pomeranje slike u VB-u !!?? 20.08.2001. u 18:54 · pre 306 meseci #1

Ovako:
Imam jednu transparentnu sliku (Image1) i sad je treba pomerati preko tastature :
npr.
========
If KeyCode = VbKeyLeft Then
Image1.Left = Image1.Left - 50
End If
========
E kada se ovo izvrsava slika toliko trepti da se skoro ni ne vidi !!!!!!!
Ima li rjesenja za ovo ?
Hvala

Potpis

NetVitez

Re: Pomeranje slike u VB-u !!?? 04.09.2001. u 21:20 · pre 306 meseci #2

Taj tvoj kod je tacan i treptaje sa njim nemozes maknut jedino to mozes rijesiti seljackom forom a to je da postavis 10 slika i sve su osim jedne visible=false i pojavlju ju se sihronizovano samo onda kada mices leftkey!!

Re: Pomeranje slike u VB-u !!?? 25.09.2001. u 02:02 · pre 305 meseci #3

A mozes koristiti DirectX tehniku, koja je mrvicu teza, ali ti onda ide sve glatko. Isto, ukoliko koristis DirectX tehniku, mozes imati igru recimo u prozoru, ne samo fullscreen.

Potpis

Zeljko Mitrovic
http://www.programiranje.net

Re: Pomeranje slike u VB-u !!?? 28.10.2001. u 14:45 · pre 304 meseca #4

E ovako :
Pocinjem sada da radim sa directX-om u VB-u pa ako neko ima nesto da kaze sto bi mi pomoglo (neki sajt ili nesto drugo) bio bi mu ZAHVALAN :!!:

POZDRAV

Potpis

NetVitez

Re: Pomeranje slike u VB-u !!?? 17.02.2002. u 03:31 · pre 300 meseci #5

Nadji bitblt primere na netu i zajebi DirectX ako ne zelis da provedes zivot buljeci u njega (uceci DirectX)
Bitblt je API funcija i 2D stvari je strava ! (koristi GDI)

Potpis

fire, walk with me

Re: Pomeranje slike u VB-u !!?? 21.06.2002. u 03:21 · pre 296 meseci #6

Malo pre sam pdgovorio na slicno pitanje....

Neznam ovako napamet ali mislim da neki od slicnih primjera koji ti trazis nalaze se u knjizi VB korak po korak-Cet izdanje uz nju dolazi i CD mislm da bi sa tom knjigom ili CR-Romom mogao da rijesis svoj problem

Pozdrav

Re: Pomeranje slike u VB-u !!?? 12.08.2002. u 12:47 · pre 294 meseca #7

Uradio sam primjer na koi bi trebao da zadovolji to sto ti trazis...

Kod ide ovako a ako nebude nesto radilo onda mi se javi pa cu da ti posaljem primjer na E-Mail :

Option Explicit

Const KEY_LEFT = 37
Const KEY_UP = 38
Const KEY_RIGHT = 39
Const KEY_DOWN = 40
Dim iDir As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
iDir = KeyCode
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
iDir = 0
Obj.Picture = imgStill.Picture
End Sub

Private Sub Form_Load()
Dim sPath As String

sPath = App.Path & "\"
imgStill.Picture = LoadPicture(sPath & "still.gif")
imgUp.Picture = LoadPicture(sPath & "up.gif")
imgDown.Picture = LoadPicture(sPath & "down.gif")
imgLeft.Picture = LoadPicture(sPath & "left.gif")
imgRight.Picture = LoadPicture(sPath & "right.gif")

iDir = 0
Obj.Picture = imgStill.Picture
End Sub

Private Sub Timer1_Timer()
Dim iLeft As Integer, iTop As Integer
iLeft = Obj.Left
iTop = Obj.Top
Select Case iDir
Case KEY_LEFT
If iLeft < 10 Then
'hit wall
Else
iLeft = iLeft - 100
End If
If Not Obj.Picture = imgLeft.Picture Then Obj.Picture = imgLeft.Picture
Case KEY_UP
If iTop < 10 Then
'hit wall
Else
iTop = iTop - 100
End If
If Not Obj.Picture = imgUp.Picture Then Obj.Picture = imgUp.Picture
Case KEY_RIGHT
If iLeft + Obj.Width + 100 > Me.Width Then
'hit wall
Else
iLeft = iLeft + 100
End If
If Not Obj.Picture = imgRight.Picture Then Obj.Picture = imgRight.Picture
Case KEY_DOWN
If iTop + Obj.Height + 380 > Me.Height Then
'hit wall
Else
iTop = iTop + 100
End If
If Not Obj.Picture = imgDown.Picture Then Obj.Picture = imgDown.Picture
Case Else
If Not Obj.Picture = imgStill.Picture Then Obj.Picture = imgStill.Picture
End Select

Obj.Move iLeft, iTop

End Sub

Pozdrav !

Forum kao aplikacija na telefonu

Srodne teme