Jedan kod za vise elemenata.

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

Imam problem. Ocu da koristim jedan kod za vise kontrola na formi. Pokusao sam da dam slikama isto ime ali index je drugaciji i opet kad kucam kod moram da naznacim slika(2) ili slika(3). Kako da koristim jedan kod za sve kontrole ili elemente koje imaju isto ime. Znaci Picture se zove Slika i ima ih vise kako da napisem kod za sve odjednom. Neumem da objasnim ali mislim da ste me razumeli. Hvala

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

Ako je taj code isti za sve slike, propusti kroz for petlju.

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

Mislim da ce ti ovo pomoci:
Private Sub slika1_Click() slika1(index).hide End Sub
Tako ce se sakriti samo slika na koju si kliknuo.

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

Ali gledaj kad ukucam ovaj kod:


Private Sub Timer1_Timer() Picture1(Index).Visible = False End Sub

Nece da sakrije obe slike koje se zovu Picture1. Znaci nije ok.
Sakrije mi samo jednu. Nije taj kod.

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

Uloguj se preko Facebooka da bi skinuo fajl:

Pazi srki94, indeks nije indeks kao varijabla, indeks je uvek neki ceo broj(integer) od nula do ukupno kontrola-1 za kontrolu za koju si pravio niz.

Evo ti primer progama koji sakriva slike i prikazuje te iste slike.

Private Sub CmdSakriSlike_Click()     Picture1(0).Visible = False     Picture1(1).Visible = False     Picture1(2).Visible = False End Sub Private Sub CmdPrikaziSlike_Click()     Picture1(0).Visible = True     Picture1(1).Visible = True     Picture1(2).Visible = True End Sub

https://www.mycity.rs/must-login.png

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

Rajko znam to ali meni treba kod za sve kontrole. Secas se onog projekta o onoj igrici Fast and furious. E pa imamo sliku auto i bot1 bot2 ja kucam jedan kod za sudar auta i sa bot1 i sa bot2 umesto da kucam za oba. Ako to moze.

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

Znaci i nakon mesec dana kako te nije bilo ti nisi nista naucio. I dalje cekas na nas da obavimo tvoj deo posla Razvijaj logiku malo, toga ti puno fali koliko vidim.

Private Sub Timer1_Timer() for i=0 to picture1.count-1 Picture1(i).Visible = False next i End Sub

Ovo ce ti sakriti sve slike.

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

tnx BiserX
Gde me nije bilo? Bio sam zauzet skolom. Sad sam se vratio. Iskreno nisam imao vremena ni da pipnem basic nazalost.