VBasic
5 отговора
150 прегледа
ЕТО :
Имаш например lblName - етикет. Слагаш още един със същото име и на въпроса му даваш че ще са масив. После оставяш само lblName(0) - изтриваш втория. После в цикъл с променливата i :
Load lblName(i)
lblName(i).Top = 1000
lblName(i).Left = 1000
lblName(i).Visible = True
Това е ! Може да ползваш всички елементи - не само етикети :-)))
На самотен остров
ще те намеря...
Load lblName(i)
lblName(i).Top = 1000
lblName(i).Left = 1000
lblName(i).Visible = True
Това е ! Може да ползваш всички елементи - не само етикети :-)))
На самотен остров
ще те намеря...
Re: ЕТО :
Po dobre probvai slednoto:
Sloji edno tekstovo pole niakade v gornata chast na formata. Otidi v PROPERTIES WINDOW i napishi v property INDEX stoinost 0.
Sloji edin byton niakade v diasno na tekstovoto pole.
V Command1_Click sabitieto napishi slednia kod (predpolagam, che tekstovoto ti pole e s ime Text1)
Dim intI as Integer
For intI=1 to val(Text1.Text)
' Zarejdame tekstovi poleto s indeksi ot 1 do tozi, koito si napisal v text1.text
Load Text1(intI)
' namestavne na zaredenia (novia) tochno pod prednia (gornia)
Text1(intI).Top=Text1(intI-1).Top+Text1(intI-1).Height
' .Left poziciata shte se vzeme ot Text1
' Pokazvame go na ekrana
Text1(intI).Visible=True
Next intI
Sled tova startirai programata i v Text1 napishi naprimer 10.
Natisni bytona i gledai ko sava
Samo che ako natisnesh bytona vtori pat shte polychish greshka "OBJECT ALREADY LOADED" zashtoto shte se opitash da zaredish otnovo Text1 s index 1. Taka che shte triabva da proveriavash dali veche ima zareden control s takav index predi da go zarejdash.
Sloji edno tekstovo pole niakade v gornata chast na formata. Otidi v PROPERTIES WINDOW i napishi v property INDEX stoinost 0.
Sloji edin byton niakade v diasno na tekstovoto pole.
V Command1_Click sabitieto napishi slednia kod (predpolagam, che tekstovoto ti pole e s ime Text1)
Dim intI as Integer
For intI=1 to val(Text1.Text)
' Zarejdame tekstovi poleto s indeksi ot 1 do tozi, koito si napisal v text1.text
Load Text1(intI)
' namestavne na zaredenia (novia) tochno pod prednia (gornia)
Text1(intI).Top=Text1(intI-1).Top+Text1(intI-1).Height
' .Left poziciata shte se vzeme ot Text1
' Pokazvame go na ekrana
Text1(intI).Visible=True
Next intI
Sled tova startirai programata i v Text1 napishi naprimer 10.
Natisni bytona i gledai ko sava
Samo che ako natisnesh bytona vtori pat shte polychish greshka "OBJECT ALREADY LOADED" zashtoto shte se opitash da zaredish otnovo Text1 s index 1. Taka che shte triabva da proveriavash dali veche ima zareden control s takav index predi da go zarejdash.
Re: ЕТО :
1. Po inercia sam natisnal "otgovori" kato sam chel tvoia tekst - nali niama da me sadish za tova :))))))))))))
2.Abe tvoia kod shte "pokaje" "i" na broi labeli ama edin varhy dryg :))))) i toi niama da razbere otnachalo kakvo stava :))))))))) Pak i moia kod e po-dobar ot tvoia i shte napravi tova koeto toi iska - da napishe cifra v tekstovo pole i da se zarediat oshte tolkova tekstovi poleta, che shte se podrediat i edno varhy drygo pri tova :)))) tc tc tc tc :))))))
Kakto i da e - ti si sinteziral vsichko tova i sigyrno chovecheca e razbral kakvo si iskal da my kajesh. Az se sa prestaravam i izpadam v podrobnosti - ne mi se sardi :))))))))))))
2.Abe tvoia kod shte "pokaje" "i" na broi labeli ama edin varhy dryg :))))) i toi niama da razbere otnachalo kakvo stava :))))))))) Pak i moia kod e po-dobar ot tvoia i shte napravi tova koeto toi iska - da napishe cifra v tekstovo pole i da se zarediat oshte tolkova tekstovi poleta, che shte se podrediat i edno varhy drygo pri tova :)))) tc tc tc tc :))))))
Kakto i da e - ti si sinteziral vsichko tova i sigyrno chovecheca e razbral kakvo si iskal da my kajesh. Az se sa prestaravam i izpadam v podrobnosti - ne mi se sardi :))))))))))))