Array tipo C (es posible en VB?)

[katanaia]

Se puede llenar un array en VB como en C, todos los valores en la misma linea?

Ejemplo VB:

Dim strFriends(4) As String
     
strFriends(0) = "Bianca"
strFriends(1) = "Jeana"
strFriends(2) = "Sam"
strFriends(3) = "Jenna"


Ejemplo C:

string strFriends[4] = {"Bianca", "Jeana", "Sam", "Jenna"};  <--- Asi pero en VB

Probé asi:

Dim strFriends(4) As String

strFriends = "Bianca", "Jeana", "Sam", "Jenna" <--- pero no anduvo.

[naderST]

No. OJO: no estoy 100% seguro.

[BlackZeroX]

con un array jeje

Código [Seleccionar] Expandir


Dim Tabla() As Variant, i, a
Private Sub Form_Load()
    Tabla = Array("0", "1", "2", "3", "4", "5")
    Call mostrar
    MsgBox "Se redimensiona y se quedan los datos anteriores je"
    ReDim Preserve Tabla(10)
    For i = 6 To UBound(Tabla)
        Tabla(i) = i
    Next i
    Call mostrar
    MsgBox "Se redimensiona Deja en blanco la tabla"
    ReDim Tabla(2)
    For i = 0 To UBound(Tabla)
        Tabla(i) = i
    Next i
    Call mostrar
   
    'Una redimension de la tabla jeje
    'Lo del redim aca sirven igual que la sencilla de arriba vale...¡!
    ReDim Tabla(2, 2)
    For i = 0 To UBound(Tabla)
        For a = 0 To UBound(Tabla)
            Tabla(1, a) = i & "-" & a
        Next a
    Next i
    For i = 0 To UBound(Tabla)
        For a = 0 To UBound(Tabla)
            MsgBox Tabla(i, a)
        Next a
    Next i
End Sub
Sub mostrar()
For i = 0 To UBound(Tabla)
    MsgBox Tabla(i)
Next i
End Sub


Espero y te sirva je.

[seba123neo]

Hola, podrias meter todo junto y separarlo por un caracter como la "," y despues hacer un split para recuperar cada uno...es lo mas cerca que lo veo...

PD:blackzero tu codigo no funciona asi...el error es facil...pero correjilo vos..

saludos.

[cobein]

Option Explicit

Private Sub Form_Load()
    Dim vData As Variant
    Dim vItem As Variant

    vData = Array("uno", "dos", "tres")

'edite aca para que vean otra manera de hacerlo
    Debug.Print vData(0), vData(1)
   
    For Each vItem In vData
        Debug.Print vItem
    Next
End Sub

[BlackZeroX]

Hola, podrias meter todo junto y separarlo por un caracter como la "," y despues hacer un split para recuperar cada uno...es lo mas cerca que lo veo...

PD:blackzero tu codigo no funciona asi...el error es facil...pero correjilo vos..

saludos.

todo bien se me olvido jojo

[katanaia]

And the winner is... cobein .. el codigo mas sencillo imposible.  Gracias a todos x responder.