jag vill veta hur dymniska obeject funkar.... Hej Vad menar du med dynamiska objekt. ja.... Lägg till En label på formuläret. Sätt index värdet till 0 för labeln.<br> hmm...koden verkar inte fungera.... Var lite slarvig. Glömde likamed tecknet. Testa: jo...testade att lägga till ett = tecken...innan du svarade....och det funkade... =)dymniska obejcet
alltså skapa saker under körningen i VB....
vet någon vart jag kan få fram info om det??
eller kan någon förklara med en kod eller två....bara jag förstå...
hehe vilken rimmare jag är...... ;)
/bjSv: dymniska obejcet
Det finns två metoder.Ett gammaldags som jag kan
och ett modernt med NewObject.
Den gammaldags metoden fungerar som ex.
Du lägger ut en Label1(0) dvs sätter index 0
Den kan iofö sig vara Visible = False
Nu kan du skapa nya med Load Label1(1) osv osv.
Du kan ta bort dem med Unload.
mvh
SvenSv: dymniska obejcet
Att skapa kontroller på formulär under körning?Sv: dymniska obejcet
jag vill kunna skapa en label och sen bara kunna skapa dom under körning
/bjSv: dymniska obejcet
<br>
Sedan skapar tu fler lablar genom att skriva så här:<br>
<code>
Dim MyLabel As Label
Dim Previouse As Label
Set Previouse Label1(Label1.UBound)
Set MyLabel = Label1(Label1.UBound + 1)
'Här skapas den
Load MyLabel
'Visar vi den
MyLabel.Move Previouse.Left, Previouse.Top + Previouse.Height
MyLabel.Visible = True
</code>Sv: dymniska obejcet
men men...det ordnar sig nog...tack än då...
/bjSv: dymniska obejcet
<code>
Dim MyLabel As Label
Dim Previouse As Label
Set Previouse = Label1(Label1.UBound) 'Här saknades =
Set MyLabel = Label1(Label1.UBound + 1)
'Här skapas den
Load MyLabel
'Visar vi den
MyLabel.Move Previouse.Left, Previouse.Top + Previouse.Height
MyLabel.Visible = True
</code>
Om den klagar på att UBound saknas beror det på att du inte angivit ett index.Sv: dymniska obejcet
mvh
/bj