Visual Basic - Como puedo guardar archivos...

Life is soft - evento anual de software empresarial
 
Vista:

Como puedo guardar archivos...

Publicado por Juan (43 intervenciones) el 05/10/2000 00:00:00
Hola, quisiera saber como puedo guardar algun archivo (por ejemplo *.mya u otro que no sea conocido) que almacene datos de distintos cuadros de textos y me gustaria saber como hacer para abrirlos.
Puede ser mediante CommonDialog o codigos...

bueno espero que alguien pueda ayudarme.

..de antemanos muchas gracias.

chau
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

RE:Como puedo guardar archivos...

Publicado por tecniCam (220 intervenciones) el 05/10/2000 00:00:00
Lo que sigue se lo acabo de enviar a otro, mira a ver si te sirve.Este ejemplo utiliza el control CommonDialog y los métodos ShowColor, ShowFont, ShowHelp, ShowOpen, ShowPrinter, ShowSave, FileTitle y FileName para mostrar los cuadros de diálogo comunes y colocar el Título en un cuadro de texto y la ruta completa en el otro cuadro de texto. Para probar este ejemplo, pega el código en la sección Declaraciones de un formulario con controles CommandButton, OptionButton (establezce la propiedad Index del botón de opciones a 0 *Esto lo puedes hacer fácilmente Situando un Option en el formulario y copiándolo, luego borra la copia y deja sólo uno, ya tendrá el Index a 0*) y CommonDialog y 2 TextBox llamados Text1 y Text2. Ejecútalo selecciona el botón de opciones del cuadro de diálogo que quieras y pulsa el botón de comando. En los cuadros de texto aparecerá, en uno el nombre y la extensión del archivo seleccionado y en el otro la ruta completa y nombre del archivo.

Private Sub Form_Paint()
Static FlagFormPainted As Integer
Dim i As Integer
´ Cuando el formulario se pinta por primera vez,
If FlagFormPainted <> True Then
For i = 1 To 5
Load Option1(i) ´ agrega cinco botones de opciones a una matriz.
Option1(i).Top = Option1(i - 1).Top + 350
Option1(i).Visible = True
Next i
Option1(0).Caption = "Abrir" ´ Coloca el título en cada botón de opción.
Option1(1).Caption = "Guardar"
Option1(2).Caption = "Color"
Option1(3).Caption = "Fuente"
Option1(4).
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

RE: II Como puedo guardar archivos...

Publicado por tecniCam (220 intervenciones) el 05/10/2000 00:00:00
Option1(4).Caption = "Impresora"
Option1(5).Caption = "Ayuda"

Private Sub Command1_Click()
If Option1(0).Value Then ´ Si se selecciona el botón de obción Open,
CommonDialog1.ShowOpen ´ muestra el cuadro de diálogo común Open.
Text1.Text = CommonDialog1.FileTitle
Text2.Text = CommonDialog1.filename
ElseIf Option1(1).Value Then ´ o bien,
CommonDialog1.ShowSave ´ muestra el cuadro de diálogo común Save.
ElseIf Option1(2).Value Then ´ o bien,
CommonDialog1.ShowColor ´ muestra el cuadro de diálogo común Color.
ElseIf Option1(3).Value Then ´ o bien,

CommonDialog1.Flags = cdlCFBoth ´ Debe establecerse la propiedad Flags
´ acdlCFBoth, ´ cdlCFPrinterFonts,
´ o cdlCFScreenFonts antes ´ de utilizar el método ShowFont.

CommonDialog1.ShowFont ´ Muestra el cuadro de diálogo común Font.
ElseIf Option1(4).Value Then ´ o bien,
CommonDialog1.ShowPrinter ´ muestra el cuadro de diálogo común Printer.
ElseIf Option1(5).Value Then ´ o bien,
CommonDialog1.HelpFile = "VB.HLP"
CommonDialog1.HelpCommand = cdlHelpContents

CommonDialog1.ShowHelp ´ Muestra el tema de contenido de la Ayuda de Visual Basic.

End If
End Sub

Tu ahora lo arreglas como sea necesario.
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