Pomeranje slike

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

kako naprimer da napravim dugme koje ce kada drzim da pomera jednu sliku u levo ,drugo u desno,trece gore,cetvrto dole mislim znam ja to da napravim nego ja napravim ovo ovako

Image1.Move Image1.Left +100

ali kad drzim dugme ono se samo jednom pomeri i stoji kako da napravim da kad drzim dugme ono ide....znate na sta mislim.......

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Postavi 4 tastera sa imenima:
CommandDesno
CommandLevo
CommandGore
CommandDole
i jedan tajmer (Timer1)
(u zavisnosti od vremenskog inervala tajmera, zavisi i brzina kretanja.)

Dim KretanjeDesno As Boolean Dim KretanjeLevo As Boolean Dim KretanjeGore As Boolean Dim KretanjeDole As Boolean Private Sub CommandDesno_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeDesno = True End Sub Private Sub CommandDesno_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeDesno = False End Sub Private Sub CommandLevo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeLevo = True End Sub Private Sub CommandLevo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeLevo = False End Sub Private Sub CommandGore_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeGore = True End Sub Private Sub CommandGore_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeGore = False End Sub Private Sub CommandDole_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeDole = True End Sub Private Sub CommandDole_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)     KretanjeDole = False End Sub Private Sub Timer1_Timer()     If KretanjeDesno = True Then Image1.Left = Image1.Left + 10     If KretanjeLevo = True Then Image1.Left = Image1.Left - 10     If KretanjeDole = True Then Image1.Top = Image1.Top + 10     If KretanjeGore = True Then Image1.Top = Image1.Top - 10 End Sub

Evo i kako funkcionise:
mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ajde postavi ti meni ako mozes projekat sa kodom pa da ga ja malo izmenim meni nesto nece...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Evo projekat. Samo ja koristim VB 5.0 pa ces mozda imati problema prilikom ucitavanja. Probaj da ucitas samo formu (.frm) a ne ceo projekat (.vbp).

mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala, samo imam jos jedno pitanje ... kako da nacrtam jednu liniju i da ona predstavlja zid da na primer slika nemoze da prodje kroz nju ....razumete...