Visual Basic - como usar apropiadamente el type y el put

Life is soft - evento anual de software empresarial
 
Vista:

como usar apropiadamente el type y el put

Publicado por franklin (2 intervenciones) el 05/12/2008 22:15:42
Hola a todos!!!

Soy nuevo en el foro y en visual. el problemilla es que estoy desarrollando un macro en Excel con ficheros de acceso aleatorio y por supuesto con algunas varíales TYPE (definidas por el usuario). El punto es que cuando agrego - o modifico- una nueva variable de esta clase dentro de la estructura TYPE - END, se borran los datos que ya se habìan insertado. ejemplo:

Private Type principales
empresa As String * 24
p1 As String * 12
p2 As String * 12
p3 As String * 12
******** TODO SE BORRA SI PONGO JUSTO AQUÌ UN p4 as string * 12 **********
p5 As String * 12
p6 As String * 12
p7 As String * 12
p8 As String * 12
p9 As String * 12
p10 As String * 12
p11 As String * 12
p12 As String * 12
p13 As String * 12
p14 As String * 12
p15 As String * 12
p16 As String * 12
p17 As String * 12
p18 As String * 12
p19 As String * 12
p20 As String * 12
vacio As Boolean
End Type

Lo mismo cuando uso el PUT para modificar algunas de estas variables . pero si sobre el proceso requiero asignar valores a dos de todas estas variables por ejemplo p20 y p19; me toca asignar valores al resto por que de lo contrario solo se insertarian p20 y p19 y el resto asì ya halla sido asignado algún valor quedan en ceros “ “

gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:como usar apropiadamente el type y el put

Publicado por Christian (713 intervenciones) el 06/12/2008 13:21:44
Y si declaras tu Type asi

Type principales
p(20) As String
End Type

Private Sub Command1_Click()
Dim a As principales

a.p(2) = "hola"

Debug.Print a.p(2)
End Sub

espero te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar