abrir,guardar,imprimir

[Kaisher]

Wenas, hace unos dias cree una pequeña aplicacion en vb6 xra poder llevar los gastos e ingresos facilmente, ya lo termine todo menos el codigo de 3 botones.. el de guardar, abrir imprimir.. estube buscando x internet, pero no encontre nada,Si alguien m puede facilitar el codigo l estaria muya agradecido. No se si importa, pero l ok kiero guardar del form es un list y un text, asias.. bye

[gonzalo_aizpun]

ok, es fácil.
Lo único "confuso" sería pensar en ¿cómo lo queres guardar?

es decir... un archivo para el List y otro archivo para el Text... o bien, un archivo único que contenga ambos datos (dificulta la lectura a futuro).
También se puede pensar en: Esos archivos, se llaman siempre de la misma forma? o vos ingresas el nombre con el que quieras llamarlo?


En fin, te ayudo de la forma más fácil para que entiendas el uso de archivos...

Procedimiento que Imprime

Código: Seleccionar todo

Private Sub Imprimir_Click()
    
    Printer.Font = "arial"
    Printer.FontSize = 10

    For x = 0 to List1.ListCount-1
        Printer.Print List1.List(x)
    Next

    Printer.Print Text1.Text

    Printer.EndDoc
End Sub

Procedimiento que Guarda 2 Archivos

Código: Seleccionar todo

Private Sub Guardar_Click()

    ArchivoLista = "c:\windows\escritorio\lista.txt"
    ArchivoText = "c:\windows\escritorio\textbox.txt"
    
    Open ArchivoLista for OUTPUT as #1
        For x = 0 to List1.ListCount - 1
            Print #1, List1.List(x)
        Next
    Close #1

    Open ArchivoText for OUTPUT as #1
        Print #1, Text1.Text
    Close #1

End Sub

Procedimiento que LEE 2 Archivos

Código: Seleccionar todo

Private Sub Leer_Click()

    ArchivoLista = "c:\windows\escritorio\lista.txt"
    ArchivoText = "c:\windows\escritorio\textbox.txt"
    
    Open ArchivoLista for INPUT as #1
        While not eof(1)
            Line input #1, CadenaTexto
            List1.AddItem CadenaTexto
        Wend
    Close #1

    Open ArchivoText for INPUT as #1
        While not eof(1)
            Line input #1, CadenaTexto
            Text1.Text = Text1.Text & CadenaTexto
        Wend
    Close #1

End Sub

Yo te aconsejo que uses para Abrir y Guardar archivos, el Common Dialog (ctrl+T, microsoft common dialog 6.0)... es muy fácil de usar :)
http://foro.elhacker.net/index.php/topi ... 62845.html ahí hay un ejemplo sencillo.-

Incluso, que no uses uno o dos archivos, sino muchos más (pensando en futuras base de datos).

Saludos,
Gonzalo

[homerg]

no seria mejor como dice gonzalo_aizpun que guardes todo en un Base de Datos...
ya que te tomaste el trabajo de hacer toda un aplicacion por mas sencilla que sea!!!

Saludos.

p/d: despues de todo seria mucho mas facil hacer un listado X o un informe a fin de mes...

[Kaisher]

Muchas gracias x facilitarme el codigo ^^ , ya x fin termine el programa, si kieren lo pueden descargar aki http://www.abcdatos.com/programas/programa/z2276.html
bye