definir un struct
hola a todos-as,
Quisiera definir un struct o al menos lo que en C se llama un struct ,esto es una variable compuesta por dos tipos de variable una integer y otra string ,una vez que esta variable struct esta definida quisiera hacer un array con ella
muchas gracias de antamno al que lea esta pregunta
Quisiera definir un struct o al menos lo que en C se llama un struct ,esto es una variable compuesta por dos tipos de variable una integer y otra string ,una vez que esta variable struct esta definida quisiera hacer un array con ella
muchas gracias de antamno al que lea esta pregunta
Hola que tal como estas..... definir una estructura en VB 6 se hace de la siguiente manera
1: Debes agregar un Modulo a tu Proyecto
2: en el modulo agregas el siguiente codigo
TYPE Registro
Nombre as string
Apellido as string
Notas as Long
END TYPE
***************************************
Nota: Ahora voy a declarar un array de esa estructuta
***************************************
Public Arreglo() as Registro
*********************************
Todo esto va en el modulo
a la hora de hacer referencia a esa estructura se hace asi
**************************
esto va en un Form
dim i as integer
Redim(0) 'Esto es para darle dimension al arreglo
Arreglo(Ubound(arreglo).nombre ="CAZ"
Redim Preserve (Arreglo(Ubound(Arreglo)+1))
For i= 0 to ubound(arreglo) -1
Msgbox arreglo(i)
next i
Espero que te sirva
1: Debes agregar un Modulo a tu Proyecto
2: en el modulo agregas el siguiente codigo
TYPE Registro
Nombre as string
Apellido as string
Notas as Long
END TYPE
***************************************
Nota: Ahora voy a declarar un array de esa estructuta
***************************************
Public Arreglo() as Registro
*********************************
Todo esto va en el modulo
a la hora de hacer referencia a esa estructura se hace asi
**************************
esto va en un Form
dim i as integer
Redim(0) 'Esto es para darle dimension al arreglo
Arreglo(Ubound(arreglo).nombre ="CAZ"
Redim Preserve (Arreglo(Ubound(Arreglo)+1))
For i= 0 to ubound(arreglo) -1
Msgbox arreglo(i)
next i
Espero que te sirva
