Tema: Re: Index
Autorius: Valdas
Data: 2010-04-15 12:04:10
Didelis Aciu,  masyvas butent tai ko reikejo :)

"VaidasB" <vaidasTrinti@pmbalticTrinti.lt> wrote in message 
news:hq6h5j$84p$1@trimpas.omnitel.net...
> Naudojam castinimą:
>
>       For Each vControl As Control In Me.Controls
>             If (TypeOf vControl Is Label) And CType(vControl, Label).Tag = 
> 1 Then
>                 vControl.Enabled = False
>             End If
>         Next
>
> nu masyvas tai taip :)
>
>         Dim masyvas(5) As Label
>         masyvas(1) = Label1
>
> On 2010.04.15 10:37, Valdas wrote:
>> vb 2005 neturi to i (Controls[i].Tag ), o kaip labelius i masyva sudet ?
>>
>> "VaidasB"<vaidasTrinti@pmbalticTrinti.lt>  wrote in message
>> news:hq6e0h$34h$1@trimpas.omnitel.net...
>>> dabar neturiu po ranka to VB, bet principas b?tø:
>>> imi controlsus i? atitinkammos formos ar kito konteinerio. Form.Controls
>>> ar pana?iai turi b?t.
>>> Suki juos cikle ir tikrini
>>> if Controls[i].Tag = 18 then Controls[i].Visible = false :)
>>>
>>> arba pigiau - susid?k reikiamus labelius ? masyv? :) ir gal?si su jais
>>> ?aist cikle.
>>>
>>>
>>>
>>>
>>> On 2010.04.15 09:55, Valdas wrote:
>>>> tag visai kas kita, kaip va toki vb6 koda paversti vb2005 kodu ?
>>>>
>>>> for i=0 to 10
>>>>       label1(i).visible=false
>>>> next
>>>>
>>>> "VaidasB"<vaidasTrinti@pmbalticTrinti.lt>   wrote in message
>>>> news:hq6c0b$vrg$1@trimpas.omnitel.net...
>>>>> Tag netinka?
>>>>>
>>>>> On 2010.04.15 09:16, Valdas wrote:
>>>>>> Sveiki, VB6 mygtukai turejo tokia savybe kaip index, o jau VB2005 to
>>>>>> nebera,
>>>>>> tai gal kazkoks kitas atitikmuo yra ?, nes dabar kai reikia
>>>>>> uzdisablinti
>>>>>> tarkim 10 mygtuku tai desimt eiluciu ir rasyti reikia, o vb6 talpini 
>>>>>> i
>>>>>> cikla
>>>>>> ir baigta.
>>>>>>
>>>>>> aciu
>>>>>>
>>>>>>
>>>>
>>>>
>>
>> 


3Dastronomyagricultureaudioautosautos.audiautos.audioautos.binariesautos.bmwautos.clubautos.fordautos.hondacrxautos.japanautos.mercedesautos.opelautos.sportautos.volvoautos.vwaviaavia.binariesbankcardsbinariesbooksbuildingcinemacommercecomp.hardwarecomp.softwarecomp.lietuvinimascomp.networksculturedarbas.ieskaudarbas.siulaudesigneconomicselectronicsfaunafauna.aquafauna.binariesfishingflorafotofoto.binariesgamesgames.csgames.onlinegsmgurmanaihumourhumour.binariesinternetlawmicrosoftmotomusicmusic.binariesmusic.instrumentsmusic.LT.binariesnavigacijaphppoliticsprogrammingrpgsportstudyingsveikatatalktesttranslationtransportationtraveltravel.binariestvunixvideovideo.binarieswatersportswwwwww.flashpdaautos.supermama.ltmobiledarbasretro.3Dretro.agricultureretro.astronomyretro.audioretro.autosretro.autos.audiretro.autos.audioretro.autos.binariesretro.autos.bmwretro.autos.clubretro.autos.fordretro.autos.hondacrxretro.autos.japanretro.autos.mercedesretro.autos.opelretro.autos.sportretro.autos.supermamaretro.autos.supermama.ltretro.autos.volvoretro.autos.vwretro.aviaretro.avia.binariesretro.bankcardsretro.beosretro.binariesretro.booksretro.buildingretro.cinemaretro.commerceretro.compretro.comp.hardwareretro.comp.lietuvinimasretro.comp.networksretro.comp.softwareretro.cultureretro.darbasretro.darbas.ieskauretro.darbas.siulauretro.designretro.economicsretro.electronicsretro.e-vejasretro.faunaretro.fauna.aquaretro.fauna.binariesretro.fishingretro.floraretro.fotoretro.foto.binariesretro.gamesretro.games.csretro.games.onlineretro.games.rpgretro.genealogijaretro.gsmretro.gurmanairetro.humourretro.humour.binariesretro.internetretro.YZFretro.YZF.nebukretro.YZF.nebuk.netikintisretro.YZF.nebuk.netikintis.bukretro.YZF.nebuk.netikintis.buk.tikintisretro.lawretro.microsoftretro.mobileretro.motoretro.musicretro.music.binariesretro.music.instrumentsretro.music.LTretro.music.LT.binariesretro.navigacijaretro.newsretro.news.taisyklesretro.newuserretro.pdaretro.phpretro.politicsretro.programmingretro.rpgretro.sportretro.studyingretro.sveikataretro.talkretro.translationretro.transportationretro.travelretro.travel.binariesretro.tvretro.unixretro.videoretro.video.binariesretro.watersportsretro.wwwretro.www.flashdiylt.rkm.news.announcelt.rkm.news.newuser