[es] - Pomeranje slike u VB-u !!??

netvitez

Član broj: 475
Poruke: 6
*.bar.cg.yu

Profil

^{20.08.2001. u 17:54 - pre 275 meseci}

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

NetVitez

Odgovor na temu

Deepforest
EX YU

Član broj: 867
Poruke: 3
*.net.hinet.hr

Profil

Re: Pomeranje slike u VB-u !!??

^{04.09.2001. u 20:20 - pre 275 meseci}

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!!

Odgovor na temu

dr_jake
Boston

Član broj: 981
Poruke: 5
*.cwc.acsalaska.net.

Sajt: www.programiranje.net

Profil

Re: Pomeranje slike u VB-u !!??

^{25.09.2001. u 01:02 - pre 274 meseci}

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.

Zeljko Mitrovic
http://www.programiranje.net

Odgovor na temu

netvitez

Član broj: 475
Poruke: 6
*.ptt.yu

Profil

Re: Pomeranje slike u VB-u !!??

^{28.10.2001. u 13:45 - pre 273 meseci}

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

NetVitez

Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Pomeranje slike u VB-u !!??

^{17.02.2002. u 02:31 - pre 269 meseci}

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)

fire, walk with me

Odgovor na temu

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*

Profil

Re: Pomeranje slike u VB-u !!??

^{21.06.2002. u 02:21 - pre 265 meseci}

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

Odgovor na temu

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*

Profil

Re: Pomeranje slike u VB-u !!??

^{12.08.2002. u 11:47 - pre 263 meseci}

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 !

Odgovor na temu