Programación General > Visual Basic 6.0 e inferiores

 Almacenar Datos En List

(1/1)

rodovr:
Hola amigos espero y alguien pueda orientarme, tengos 2 forms una principal y otra secundaria, en la secundaria guardo datos en un list al momento de cerrar el form para que me regrese al form principal con el siguiente codigo:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
For i = 0 To List3.ListCount - 1

If i = List3.ListCount - 1 Then Text5.Text = Text5.Text & List3.List(i) Else Text5.Text = Text5.Text & List3.List(i) & Chr(13) + Chr(10)
Next i

Open App.Path & "\save.dat" For Output As #1
Print #1, Text5
Close #1

If StopSearch = False Then StopSearching
StopSearch = True
End

End Sub

Mi problema es que al darle click en el aspa, me cierra todo el proyecto (las 2 forms) y quiero regresar al formulario principal, ya he metido principal.Show al final del codigo que les puse y he hecho otras cosas pero no me lo muestra, creo que mi error esta en la propiedad UnloadMode pero no encuentro la solucion espero y alguien pueda darme alguna pista para solucionarlo.

Gracias.

cpmario:
Revisa el código, tienes una instrucción END en la penúltima línea. Retira esta instrucción.

Te recomiendo estructures más tu código, este tipo de error que tienes podrías evitarlo, ya que es más fácil de leer y revisar cuando está estructurado.
Ejemplo:

--- Código: Text ---Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    For i = 0 To List3.ListCount - 1        If i = List3.ListCount - 1 Then            Text5.Text = Text5.Text & List3.List(i)        Else            Text5.Text = Text5.Text & List3.List(i) & Chr(13) + Chr(10)        End If    Next i     Open App.Path & "\save.dat" For Output As #1    Print #1, Text5    Close #1     If StopSearch = False Then        StopSearching    End If    StopSearch = TrueEnd Sub  
Revisa las últimas líneas del código ya que a lo mejor quisiste escribir ENDIF en lugar del END.

 :comp:

rodovr:
Muchas gracias, me sirvio a la perfeccion.

Y hare lo que me recomiendas para no tener tantos errores.

Muchas gracias por tu apoyo.

Nos vemos por aqui.

Navegación

[0] Índice de Mensajes