iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet

Avko	17.08.2015 13:40
Predmet:vb6 control textbox(i) kako napraviti ovo: PreuzmiIzvorni kôd (Visual Basic): option explicit dim matrica(5) matrica(1)="pero" matrica(2)="medo" matrica(3)="strbo" matrica(4)="coso" matrica(5)="roko" dim kontrola as Control dim f as integer for f=1 to 5 kontrola("Textbox" & f)=matrica(f) next f meni ne radi, javlja greski run-time error '91'; Object varijable or With block variable not set pa ako netko zna neka mi kaze

Avko

17.08.2015 13:40

Predmet:vb6 control textbox(i)

kako napraviti ovo:

PreuzmiIzvorni kôd (Visual Basic):

option explicit
dim matrica(5)
matrica(1)="pero"
matrica(2)="medo"
matrica(3)="strbo"
matrica(4)="coso"
matrica(5)="roko"
dim kontrola as Control
dim f as integer
for f=1 to 5
kontrola("Textbox" & f)=matrica(f)
next f

meni ne radi, javlja greski
run-time error '91';
Object varijable or With block variable not set
pa ako netko zna neka mi kaze

zxz	17.08.2015 16:57
Predmet:Re: vb6 control textbox(i) Evo primjer. Moze i drugacije ali ovo je najbkrace.
Prilozi: IndeksnaPOlja.zip (Velicina datoteke:1.60 KB)

zxz

17.08.2015 16:57

Predmet:Re: vb6 control textbox(i)

Evo primjer.
Moze i drugacije ali ovo je najbkrace.

Prilozi:
IndeksnaPOlja.zip (Velicina datoteke:1.60 KB)

Avko	17.08.2015 20:59
Predmet:Re: vb6 control textbox(i) gdje grijesim? stavio sam public ali mi se matrica isprazni
Prilozi: IndeksnaPolja(1).rar (Velicina datoteke:1.44 KB)

Avko

17.08.2015 20:59

Predmet:Re: vb6 control textbox(i)

gdje grijesim?
stavio sam public ali mi se matrica isprazni

Prilozi:
IndeksnaPolja(1).rar (Velicina datoteke:1.44 KB)

zxz	17.08.2015 21:19
Predmet:Re: vb6 control textbox(i) PreuzmiIzvorni kôd (Visual Basic): Option Explicit Dim matrica(5) Public Sub ispisi() matrica(1) = "pero" matrica(2) = "medo" matrica(3) = "strbo" matrica(4) = "coso" matrica(5) = "roko" End Sub Public Sub Command1_Click() Dim f As Integer Call ispisi For f = 1 To 5 Text(f) = matrica(f) Next f End Sub Public Sub Command2_Click() End End Sub Ne vidim bas neku svrhu ali ovo je samo vjezba pretpostavljam. Mogla je biti i globalna variabla u nekom modulu.

zxz

17.08.2015 21:19

Predmet:Re: vb6 control textbox(i)

PreuzmiIzvorni kôd (Visual Basic):

Option Explicit
Dim matrica(5)
Public Sub ispisi()
matrica(1) = "pero"
matrica(2) = "medo"
matrica(3) = "strbo"
matrica(4) = "coso"
matrica(5) = "roko"
End Sub
Public Sub Command1_Click()
Dim f As Integer
Call ispisi
For f = 1 To 5
Text(f) = matrica(f)
Next f
End Sub
Public Sub Command2_Click()
End
End Sub

Ne vidim bas neku svrhu ali ovo je samo vjezba pretpostavljam.
Mogla je biti i globalna variabla u nekom modulu.

Avko	18.08.2015 00:27
Predmet:Re: vb6 control textbox(i) da, vjezbam i to vijek trajanja varijabli i provlacenje matrice kroz procedure. To mi bas i neide pa si zadajem zadatke i vjezbam. Zapinjem i mucim se, ali nadam se u konacnici da ce mi to biti jasno. odmah ispod explicit dimenziniram varijable i one bi trebale trajati kroz sve procedure to mi je jasno. Mogao sam to staviti u modul isto bi mi trajalo u svim procedurama. sada dobijam gresku ovu: compile error: sub or function not define i zacrni mi: Text(f)= eh, pola jedan u noci. Malo mi se magle oci sto od 15' monitora sto od listanja po knjiama prije toga mi je Text automatski mjenjalo u text. pregledavao sve i nisam imao dimenzioniranu varijablu text pa sam cijeli kod prepisao ponovo i otvorio vb6

Avko

18.08.2015 00:27

Predmet:Re: vb6 control textbox(i)

da, vjezbam i to vijek trajanja varijabli i provlacenje matrice kroz procedure.
To mi bas i neide pa si zadajem zadatke i vjezbam.
Zapinjem i mucim se, ali nadam se u konacnici da ce mi to biti jasno.

odmah ispod explicit dimenziniram varijable i one bi trebale trajati kroz sve procedure
to mi je jasno. Mogao sam to staviti u modul isto bi mi trajalo u svim procedurama.

sada dobijam gresku ovu:
compile error:
sub or function not define
i zacrni mi:
Text(f)=
eh, pola jedan u noci. Malo mi se magle oci sto od 15' monitora sto od listanja po knjiama
prije toga mi je Text automatski mjenjalo u text. pregledavao sve i nisam imao dimenzioniranu varijablu text pa sam cijeli kod prepisao ponovo i otvorio vb6

zxz	18.08.2015 11:11
Predmet:Re: vb6 control textbox(i) Citat: odmah ispod explicit dimenziniram varijable i one bi trebale trajati kroz sve procedure to mi je jasno. Mogao sam to staviti u modul isto bi mi trajalo u svim procedurama. Ukoliko dimenzionises variablu na vrhu modula napr: dim nekaVar as NekiTip Tada ona ima doseg u tom modulu. Znaci mozes je pozivati samo u tom modulu. Isto tako sve variable i procedure u modulu neke forme vrede samo na nivou modula te forme. Variable u samostalnim modulima mogu imati doseg u cijeloj app ukoliko dodamo ispred opciju global. Jal ti javlja gresku na tvom primjeru ili na mom? Koji Vb imas?

zxz

18.08.2015 11:11

Predmet:Re: vb6 control textbox(i)

Citat:

odmah ispod explicit dimenziniram varijable i one bi trebale trajati kroz sve procedure
to mi je jasno. Mogao sam to staviti u modul isto bi mi trajalo u svim procedurama.

Ukoliko dimenzionises variablu na vrhu modula napr:
dim nekaVar as NekiTip
Tada ona ima doseg u tom modulu.
Znaci mozes je pozivati samo u tom modulu.
Isto tako sve variable i procedure u modulu neke forme vrede samo na nivou modula te forme.

Variable u samostalnim modulima mogu imati doseg u cijeloj app ukoliko dodamo ispred opciju global.

Jal ti javlja gresku na tvom primjeru ili na mom?
Koji Vb imas?

Avko	18.08.2015 11:20
Predmet:Re: vb6 control textbox(i) vb6 enterprise edition na tvojem primjeru, kao i uvijek radi bezprijekorno. gresku javlja kod zadnjeg koda kojeg si stavio, tj moj. Onaj tvoj prvi primjer gdje je kod stavljen u jednu proceduru radi. ovdje Public Sub Command1_Click() Dim f As Integer Call ispisi For f = 1 To 5 Text(f) = matrica(f) Next f End Sub

Avko

18.08.2015 11:20

Predmet:Re: vb6 control textbox(i)

vb6 enterprise edition
na tvojem primjeru, kao i uvijek radi bezprijekorno.
gresku javlja kod zadnjeg koda kojeg si stavio, tj moj.
Onaj tvoj prvi primjer gdje je kod stavljen u jednu proceduru radi.

ovdje
Public Sub Command1_Click()
Dim f As Integer
Call ispisi
For f = 1 To 5
Text(f) = matrica(f)
Next f
End Sub

zxz	18.08.2015 15:42
Predmet:Re: vb6 control textbox(i) Vjerovatno ti polja nisu indeksna. Postavis jedno polje i das mu ime text. Sada to polje copiras pa paste i kada te pita hoces li sa indeksom klikni jes i tako 5 puta. Prvo polje ce imati index 0 pa njega obrisi i ostat ce ti 5.

zxz

18.08.2015 15:42

Predmet:Re: vb6 control textbox(i)

Vjerovatno ti polja nisu indeksna.
Postavis jedno polje i das mu ime text.
Sada to polje copiras pa paste i kada te pita hoces li sa indeksom klikni jes i tako 5 puta.
Prvo polje ce imati index 0 pa njega obrisi i ostat ce ti 5.

Avko	18.08.2015 18:20
Predmet:Re: vb6 control textbox(i) aha, za to sluzi ono kad te pita: du ju vona krejt arrej, pa ti kliknes jes ili no da ima smisla. vidim svi textboxovi imaju iste ime, u mome slucaju Text1, ali u zagradi se mijenjaju brojevi, iindeksi ok , hvala na pomoci. Probat cu zapamtiti. Jedino sada uvijek kada kopiram vise me ne pita za indeks nego automatski odabere jes bez mene. Kako da vratim nazad da me opet pita zelim li indeks ili ne?

Avko

18.08.2015 18:20

Predmet:Re: vb6 control textbox(i)

aha, za to sluzi ono kad te pita: du ju vona krejt arrej, pa ti kliknes jes ili no
da ima smisla. vidim svi textboxovi imaju iste ime, u mome slucaju Text1, ali u zagradi se mijenjaju brojevi, iindeksi
ok , hvala na pomoci. Probat cu zapamtiti.
Jedino sada uvijek kada kopiram vise me ne pita za indeks nego automatski odabere jes bez mene. Kako da vratim nazad da me opet pita zelim li indeks ili ne?