Hvordan kan jeg bruke "inputbox" i en array dvs legge inn hva som skal være i en array selv ikke "hardkode".
LOGG INN
... eller du kan registrere deg nå
11
2122
|
inputbox = ObjInput array = ArrInput(3) 'Det er fint mulig å deklarere fler spots i array og til og med fler "dimensjoner" om du vil: x,y feks så får du neover og bortover, hvis du vil tenke på det på den måten. Sub inputbox 'det skal nok være noe (on event vbreturnkey) eller lignende. ObjInput.text=ArrInput(CounttFreeArrSpot(ArrInput(3))) End sub Function CounttFreeArrSpot(StrArray) 'Brukes til å finne første ledige spotten i arrayet som ikke har noe i seg dim result 'as variant i vb For x=lbound(StrArray) to ubound(StrArray) 'teller fra første plasseringen i arrayet til siste. If StrArray(x)="" then result=1 exit for 'x=plasseringen din i arrayet, så hvis det ikke ligger noe på den plaseringen hopper den ut av For loopen og gir tallet tilbake igjen End if Next if result <> 1 then 'Plukker opp feil hvis arrayet ikke har ledig plass echo "Fant ikke ledig plass i arrayet. Kanskje du skal utvide det?" Exit Function End if CounttFreeArrSpot = x End function
|