Dilwsi metablitwn sti VB

[epitimos]

8elw se ena programma pou apoteleitai apo 3 formes na dilwsw pinaka metablitwn tipou string oi opoies na einai orates apo oles tis formes wste na mporoun na tropopoiountai...

oi metablites 8a einai onoma,epi8eto kai topos diamonis

dilwnw se ena module tis metablites ws eksis

Public name() As String * 20

Public surname() As String * 20

Public place() As String * 20

Public pointer as integer

alla otan se mia apo tis formes 8elw na kanw ana8esi se metabliti apo ena plaisio keimenou,dil

name(pointer)=txtName.text mou emfanizei sfalma.

Kanw kati la8os sti dilwsi?

[bandito]

Public name() as string * 20?????<p>Vale ena aplo

Public Name(20) as String<p>Meta gia tin anathesi grafeis

Name(i)=cstr(txtName.text)<p>[ 24-12-2001: Message edited by: bandito ]</p>

[epitimos]

To string*20 dilwnei oti to alfari8mitiko exei 20 xaraktires enw i dilwsi tou pinaka einai dinamiki den dilwnw diladi megisto ari8mo stoixeiwn.

[BuFu]

Το name είναι reserved word διάλεξε άλλο όνομα για τη μεταβλητή σου.

[Dvs]

ama to valeis se ena module douleuei!!<p>na se rotiso omos. otan diloneis dynamika ena pinaka pos orizeis to megisto stoixeio tou ? (i den iparxei tetoio periorismos?)<p>[ 25-12-2001: Message edited by: Dvs ]</p>

[Dvs]

Public name() as string *<p>ama to valeis se ena module douleuei (alla den xero ti kanei - to *20 einai to megisto ano orio tou pinaka? )

[epitimos]

Telika ebala periorismo ston pinaka oti einai 100 stoixeiwn kai douleuei.Eida se ena biblio oti eixe dinamiki dilwsi tou pinaka alla otan to ekana mou ebgaze

Compile Error

"Expected As"

Euxaristw.Kales giortes.

[paravoid]

na ksekathariso kapoia pragmata:<p>pinakas: (array)

otan dilonoume ena pinaka px

Dim Test(20) As String (i isodinama)

Dim Test (0 To 20) As String

simainei oti mporei na exoume 21 (20 + mideniko) strings.

diladi to Test(0) = "dokimi", to Test(1) = "deuteri dokimi" k.o.k

Mporoume na dilosoume pinakes me diaforetiki arxi i telos. Diladi

Dim Test(5 To 20), an zitisoume Test(1) tha petaksei error PROSOXI

An de dosoume arxi, diladi apla Test(20) tote theoreite os arxi to 0 ektos an exoume orisei sta declarations Option Base

Mporoume na doume tin arxi me LBound(Test) (px 5) kai to telos me UBound(Test) (px 20)<p>dinamikoi pinakes: (dynamic arrays)

ama dilosoume enan pinaka xoris katotato i anotato orio px

Dim Test() As String

tote autos theoreitai kenos, diladi den iparxei to Test(0) i to Test(1) i to Test(n)

mporoume na ton xrisimopoiisoume mono an kalesoume tin akolouthi entoli se kapoio simeio tou kodika mas:

ReDim Test(5) As String

PROSOXI: prepei na exei dilothei (Dim) i sigkekrimeni metabliti!

etsi o sigkekrimenos pinakas apokta megethos kai mporei na xrisimopoiithei.

I entoli ReDim mporei na xrisimopoiithei se opoiondipote pinaka akoma kai an exei oristei apo tin arxi to megethos tou, px

Dim Test(5) As String

Test(0) = "dokimi"

ReDim Test(10) As String

Debug.Print Test(0)

Tote mporoume na orisoume kai Test(9)="megalos pinakas" alla kai Test(10).

Sto sigkekrimeno omos paradeigma sto debug den tha tipothei tipota kathos to Test(5) tha einai keno afou me to redim XANONTAI ta periexomena tou pinaka! An theloume na diatirithoun prepei na grapsoume ton eksis kodika:

Dim Test(5) As String

Test(0) = "dokimi"

ReDim Preserve Test(10) As String

Debug.Print Test(0)<p>statikou mikous strings: (fixed length strings)

otan dilonoume mia metabliti

Dim X As String

to X mporei na periexei apo 1 eos 2^16 xaraktires

an omos ti dilosoume

Dim X As String * 20

mporei na periexei MONO mexri 20 xaraktires

an to orisoume os ena 21psifio string tha petaksei error.

Mporei na xrisimeusei se eksikonomisi mnimis alla einai epikindino gia error!<p>Auta

Elpizo na ksekatharisa to topio...<p>[ 31-12-2001: Message edited by: paravoid ]</p>

[Dvs]

apsogos