Neveikia su struktūros masyvu ;)

"Jornada Del Muerto" <ask@me.email> wrote in message 
news:hr44nj$bsb$1@trimpas.omnitel.net...
>
> "Valdas" <vald@l.com> wrote in message 
> news:hr412c$5e4$1@trimpas.omnitel.net...
>> "Jornada Del Muerto" <ask@me.email>
>>> VB budavo dzin, jis kaip variantais operuodavo ir pats konvertuodavo
>>
>> - tikrai taip, o pasirodo VB "nemoka" strukturoje masyvu naudoti, 
>> nustebino...
>>
>> p.s.
>> kai nenurodytas masyvo TevuNr() ilgis, tai ten tik rodiklis i masyva, 
>> reikia inicializuoti kazkaip...
>>
>
> Man norma viskas veikia :)) diskusija jau kiek atsibodo tai nepatingejau 
> VB.NET paleist ir pagooglint :))
>
> Public Structure mazgas
>    Public name As String
>    Public tevuKiek As Integer
>    Public tevuNr() As Integer
>    Public tikKiek As Integer
>    Public tikim() As Double
> End Structure
>
>
>        Dim m As mazgas = New mazgas
>
>        ' inicializuojam su predefined values
>        m.tevuNr = New Integer() {1, 2, 3, 4}
>
>
>        Kiek skaitau galima ir taip
>
>        Dim tevuNr() As Integer = {1, 2, 3, 4}
>        tevuNr = New Integer() {1, 2, 3}
>        tevuNr = New Integer() {1, 2, 3, 10, 20, 340}
>
>        Kas del konkretaus masyvo dydzio:
>
>        Dim Test(10) as Integer
>        ReDim Test(25) as Integer ' keiciam masyvo dydy, tiesa sitai yra 
> nuo VB6 ;)
>
>
>
>        Nors rekomenduociau collections generic naudot (buvau daves pavizdy 
> ant c#, cia VB.NET):
>
>
> Imports System
> Imports System.Collections.Generic
> Imports System.Text
>
>
>
>        Dim tevuNr2 As List(Of Integer) = New List(Of Integer)
>        tevuNr2.Add(1)
>        tevuNr2.Add(2)
>        tevuNr2.Add(3)
>        tevuNr2.Add(4)
>        tevuNr2.Add(5)
>
>        System.Diagnostics.Debug.Print(tevuNr2(2).ToString)
>
>        tevuNr2.Remove(3)   ' trinu konkrecia reiksme, jei ten butu stringu 
> list tai reiketu rasyt kazkoki "string"
>        tevuNr2.RemoveAt(0) ' trinu 0 masyvo elementa
>
>
>    Viskas ten veikia ir viskas palaikoma, ir masyvai strukturose ir net 
> strukturu masyvuose strukturu masyvai ir juose dar masyvai ;)
>
>    Cia VB generic: 
> http://visualbasic.about.com/od/usingvbnet/a/genericlist.htm
>    O cia apie masyvus: http://www.startvbdotnet.com/language/arrays.aspx
>
>    P.S. uztruko 5 minutes viska googlej rast, nors jau kokie 3 m i rankas 
> vb.net nebuvau emes :)
>