Página 1 de 1
abrir,guardar,imprimir
Publicado: Jue Jul 28, 2005 6:33 pm
por 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
Publicado: Sab Jul 30, 2005 1:09 pm
por 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
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
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
Rta
Publicado: Mié Ago 03, 2005 10:24 pm
por 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...
asias
Publicado: Lun Ago 08, 2005 2:16 pm
por 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