[ gajone77 @ 21.11.2005. 22:24 ] @
kako da resim programcic u vezi slajdova
napravio sam image index sa nekih sto slika jedan preko drugog sam stavio da se ne vidi


no hteo bi da klikom na dugme menja fotografije i u text boxu da izbacuje ..1/100,2/100 idt

inace sam pocetnik uci se uci ...pozdrav
[ Pastorius @ 22.11.2005. 23:43 ] @
Gajo, pazi sad.


A sta ako ja tebi postavim pitanje :


Ko kako kome sta ne moguce ono da ?


Sta bi mi ti odgovorio ?


Zakljucak :

Postavi noramlno, citljivo pitanje, bez gramatickih i pisanih gresaka, koje ima nekog smisla, pa ce ti mozda neko odgovoriti !!!

Nema ljutnje ? :)
[ gajone77 @ 23.11.2005. 20:12 ] @
pozdrav i zao mi je sto sam tako bez veze upisao sklj .. pitanje bez citanja pravilnika
bio sam u spiidduu... i greske su vidljive...

pokusacu ponovo

otvorio sam visual basic.... pokrenuo standard .exe ....

u form 1 sam stavio command button 1 - command botton 2 i jedan textbox.....

stavio sam 1 image koji sam kopirao deset puta ...znaci image 1 u deset primeraka

koji se razlikuju po indexu..... i promenio sam izgled slika

slozio sam svih deset slika iste velicine jedan preko drugog....

povezivanje:

command button 1 (redosled slika u nazad) klik
command button 2 (redosled slika u napred) klik

i prilikom menjanja slika napred -nazad

textbox ispisuje broj (redosled) slike

ja mislim da sam bio opsiran u pitanju...

ne trazim da mi resavate domaci zadatak nego sam zaglavio i nisam imao kome da se
obratim cao..

[ Marko_L @ 23.11.2005. 20:50 ] @
Ja i dalje ne razumem šta tebi u stvari pravi problem, ali ajde ovako, znači imaš array Image kontrola 0 do 10 (predpostavimo da se zove Image1) i imaš dva command buttona i 1 textbox gde treba da piše koja je slika trenutno vidljiva.Uzmeš ovako
Code:
Private Sub Form_Load()
Dim A As Long
For A = LBound(Image1) To UBound(Image1)
Image1(A).Visible=False
Next A
Image1(LBound(Image1)).Visible = True 'pocinjemo od prve slike
Text1.Text = LBound(Image1)
End Sub

Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) - 1
If Val(Text1.Text) < LBound(Image1) Then Text1.Text = LBound(Image1)
Image1(Val(Text1.Text)).Visible = True
Image1(Val(Text1.Text) + 1).Visible = False
End Sub

Private Sub Command2_Click()
Text1.Text = Val(Text1.Text) + 1
If Val(Text1.Text) > UBound(Image1) Then Text1.Text = UBound(Image1)
Image1(Val(Text1.Text)).Visible = True
Image1(Val(Text1.Text) - 1).Visible = False
End Sub


Može to i na lepši način da se reši, al ajde...

[Ovu poruku je menjao Marko_L dana 23.11.2005. u 21:57 GMT+1]
[ gajone77 @ 23.11.2005. 21:05 ] @
hvala Marko brz si svaka cast ....cu da proverim... pozdrav
[ hatebreeder @ 24.11.2005. 11:37 ] @
pazi ovako mnogo je 10 image kontrola. bolje stavi jednu image kontrolu slike stavi u imagelist kontrolu pa iz nje pozivaj, bice ti lakse, a i manji je source
[ Aleksandar Ružičić @ 24.11.2005. 12:08 ] @
Citat:
hatebreeder: pazi ovako mnogo je 10 image kontrola. bolje stavi jednu image kontrolu slike stavi u imagelist kontrolu pa iz nje pozivaj, bice ti lakse, a i manji je source

Citat:
gajone77: ...inace sam pocetnik uci se uci ...


covek rece da je pocetnik, neka ga nek prvo radi na tezi nacin (ako hoce da stvarno nesto nauci)....
tako sam ja... :D
[ gajone77 @ 25.11.2005. 13:01 ] @
naravno bez muke nema nauke ...


lako je vama ... koji ste na zavidnom nivou sa znanjem ...


[ Marko_L @ 25.11.2005. 13:31 ] @
Pa i taj što ima znanja, nije lako došao do istog, prema tome malo je neumesno reći "Lako je tebi...", jer ti ne znaš koliko je neko uložio truda da bi naučio nešto.Čovek je samo rekao da postoji, po njemu, bolji način da se to uradi.Isto tako pored toga što je naveo, možeš da koristiš i resource fajl i u njemu smestiš slike, a onda izvlačiš koja ti treba, što je po meni najbolji način.Od tebe zavisi da li ćeš koristiti prvu, drugu, treću ili neku desetu metodu.U principu, programiranje je kreativno zanimanje, i jedan problem se obično može rešiti na više načina i nije mnogo bitno šta ćeš koristiti, ukoliko program zadovoljavajuće radi ono za šta je namenjen.