 Autor
|
Tema: Array tipo C (es posible en VB?) (Leído 2,570 veces)
|
katanaia
 Desconectado
Mensajes: 51
|
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.
|
|
|
|
« Última modificación: 31 Julio 2008, 04:41 am por katanaia »
|
En línea
|
|
|
|
|
naderST
|
No. OJO: no estoy 100% seguro.
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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. |
|
|
|
« Última modificación: 31 Julio 2008, 04:59 am por ░▒▓BlackZeroҖ▓▒░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
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. |
|
|
|
« Última modificación: 31 Julio 2008, 04:52 am por seba123neo »
|
En línea
|
|
|
|
|
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
|
|
|
|
« Última modificación: 31 Julio 2008, 05:05 am por cobein »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
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
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
|
|
 |
.. el codigo mas sencillo imposible. Gracias a todos x responder. 
