"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 :)