Visual Basic - Necesito ayuda por favor lo necesito para clase

Life is soft - evento anual de software empresarial
 
Vista:

Necesito ayuda por favor lo necesito para clase

Publicado por luna (1 intervención) el 19/01/2006 20:03:37
Hola que tal? estoy empezando este año a dar visual y me gusta pero mi profesor tampoco es q me ayude bastante a aprender.
Estoy haciendo un ejercicio en el q estoy haciendo algo parecido a un bloc de notas como el de windows. Con sus menus de archivo, edicion, etc.
Estoy por la parte de guardar y me gustaria saber como puedo guardar el contenido en un fichero . Me ayudariais muxisimo.
Gracias.
Bsos
el q kiera agregarme: [email protected]
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:Necesito ayuda por favor lo necesito para clase

Publicado por Ramón (90 intervenciones) el 19/01/2006 20:26:32
colocas un control Common Dialog y en el evento click del botón guardar pones:
CommonDialog1.ShowSave
Saludos
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:Necesito ayuda por favor lo necesito para clase

Publicado por Jorge (231 intervenciones) el 19/01/2006 21:14:06
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile(.Ruta, True)
A.WriteLine CampodeTexto.Text
A.Close

Por ejemplo Ruta="E:\MS\POr ver\MiArchivo.txt".

Para Abrirlo es
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.OpenTextFile(Ruta, 1)
MiCampoDeText.text= A.ReadLine
A.close´Cierra el archivo

Para abrir y cerrar, cambier fuentes, montar la ayuda, y imprimir. Usas el control
Microsoft Common Dialog Control 6.0

Esto es si es en un textbox, si lo haces en un RichtextBox, es diferente
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:Necesito ayuda por favor lo necesito para clase

Publicado por Jorge (231 intervenciones) el 19/01/2006 22:22:35
Aqui esta un ejemplo mas concreto de como guardar

On Error GoTo Cancelo
With CD1
.CancelError = True
.DialogTitle = "Guardar como"
.FileName = ""
.InitDir = App.Path 'Por si quieres que siempre empieze en la misma carpeta
.Filter = ("Archivos de texto (*.txt)|*.txt")
.Flags = 2 + 4 '2 mensaje al sobreescribir, 4 oculta le casilla de solo lectura
.ShowSave
End With
Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile(CD1.FileName, True)
A.WriteLine Text1.Text
A.Close
Exit Sub
Cancelo:

El common dialog se llama CD1
y el campo de texte Text1

Suerte
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