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.
No. OJO: no estoy 100% seguro.
con un array jeje
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.
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.. :xD
saludos.
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
Cita de: seba123neo en 31 Julio 2008, 04:49 AM
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.. :xD
saludos.
todo bien se me olvido jojo
And the winner is... cobein :P.. el codigo mas sencillo imposible. Gracias a todos x responder. :-*