MyCity » Visual Studio -> Visual Basic » Pomeranje slike

Pomeranje slike

Napisano na dan: 7.11.2008

Pomeranje slike
Sledeća strana Pagination

Idi na vrh

Poslao: 07 Nov 2008 21:44
Idi na vrh
offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 07 Nov 2008 22:38
Idi na vrh
offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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:
[Link mogu videti samo ulogovani korisnici]



Poslao: 08 Nov 2008 15:54
Idi na vrh
offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

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

Poslao: 08 Nov 2008 18:56
Idi na vrh
offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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).

[Link mogu videti samo ulogovani korisnici]

Poslao: 08 Nov 2008 19:55
Idi na vrh
offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

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

MyCity » Visual Studio -> Visual Basic » Pomeranje slike

Ko je trenutno na forumu
 

Ukupno su 1451 korisnika na forumu :: 91 registrovanih, 9 sakrivenih i 1351 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100jan, 8u47, Albin0, alex1974, ALEXV, Asteker, b_z_b, bigbear, bog sunca, bojankrstc, bojansmudja, BORUTUS, Bosnjo, BOXRR, Chainsaw, Darth Wader, djonsule, DJUNTA, dmitarche, Dovla 1980, draganl, dragoljub11987, dule10savic, dunavzed, Dungorth, dzoni19, Giskard, Glavni Oružni, Grebostrek, GveX, Helket, Homislav, IpMan, jarovitt, Jaxupa, jeen yuhs, Jester, JohnDoe, JOntra, K-1A, kibihrchak, kinderpingvin, klepesina, Kobrim, Laluvr, Lazur_01, Le Banner, Makarid, markolopin, Masan, mat, mdp92, Milan Miscevic, milenko crazy north, MILO-VAN, mm1811, Mrav Obrad, nekdo, nenad81, nerevar, NislijaBre, nnnnnnnnnn, Nomica, Oscar, Panter, Parker, Remarqe, RileHerc, RJ, samsung, sap, shaja1, Sharpshooter, Sinisa76, skylab1111, Smiljkovich, ss10, Tas011, theNedjeljko, tritonus, uruk, Veljko™, voja64, YU-UKI, zdrebac, zemljanin, ZetaMan, ziggga, Zmaj Tolak, zokilivac, 79693