Tema: PREGUNTA// codigo para un command buton guardar (Versión Imprimible)
Volver a la versión Original de este tema
Lugar donde fue posteado: Www.ForoMsn.comVisual BasicFormularios -> PREGUNTA// codigo para un command buton guardar

Enviado por ambu en 30/04/2009 20:45:58
PREGUNTA// codigo para un command buton guardar

wenas

tengo una duda

alguien sabe como puedo agregar un command buton ((guardar)) para que me guarde el contenido de un   textBox en txt.

me expliko mejor xD:

estoy creando un especie de notepad!!

y pues lo que necesito es que lo que se escriba alli en el texBox, a tra ves de un boton, me de la opcion de guardar lo que escribi en formato .txt

asi cxomo en el blog de notas

*********

weno e buscado varias kosas, pero la verdad me deja mas konfundido y no enkunetro algo klaro


si alguien sabe, como le puedo hacer, se lo agradesko de antemano

saludos a todos!
Enviado por RevangelyonX en 02/05/2009 09:05:12
Hola ambu, no sé si realmente es lo que necesitas, pero en Tools --> Menu Editor.

Informate un poco de eso quizá te sirva.


Enviado por StellaS en 03/05/2009 19:09:02
Hola, la verdad no entiendo lo que quieres hacer, me parece una bobería, no lo tomes a mal, es una opinión, pero te daré una idea básica luego ya tu lo complementas.
Podrías usar la función Shell y ejecutar cmd.exe con el parámetro /c para ejecutar comandos y así aprovechar esos recursos, ya que pienso que es un método rápido y fácil.

Shell "cmd.exe /c echo " & text1.text & " > c:\TuArchivoDeTexto.txt"

Es solo una idea básica, con esto y lo mínimo de visual basic, podrás desempeñar tu obetivo.
Enviado por ambu en 03/05/2009 23:36:15
weno mire aqui les dejo algo mas klaro

si yo se que es una bobada, pero siempre e kerido hacerme una de estas

weno   miren   lo ke kiero hacer es un escritor de textos!!

bueno ya lo logre hacer, haora lo que me falta es lograr ke lo ke escriba me guarde en formato .TXT   asi komo lo hace el notepad de windows desde guardar o guardar como!!

weno   aki les dejo una imagen de un escritor de textos ke hise   rapido para mostrarles, es feo no se fijen en la apriencia xD





como pueden ver ya logre que me aparesca la ventana para que me de la opcion de dejarlo guardar.

PERO a la hora de guardarlo, no me aparece por ningun lado el texto ni nada

lo ke utilize   fue un   CommonDialog y el comman buton
el codigo que emplee fue este

CITA


Private Sub Guardar_Click()
With CommonDialog1
.Filter = " (*.txt)|*.txt"
.DialogTitle = "Elija donde guardar ..."
.ShowSave
End With
End Sub



weno agrege el CommonDialog y un boton,   y en el boton agregue este codigo ke les muestro,

al darle clik me sale la ventana para darle a guardar como muestra en la imagen, pero cuando le escribo el nombre y le doy en guardar,

no me guarda nada,

alguien me puede ayudar a korregir ke estoy haciendo mal en el code o algo

se los agradeceria mucho
Enviado por StellaS en 04/05/2009 01:24:41
Es sencillo.

toma te lo ize:



CITA


Private Sub Guardar_Click()
With CommonDialog1
.Filter = " (*.txt)|*.txt"
.DialogTitle = "Elija donde guardar ..."
.ShowSave
Open .FileName For Binary As #1
    Put #1, , Text1.Text
Close #1
MsgBox "Archivo guardado corréctamente", vbInformation, "Listo"
End With
End Sub




Saludos


Mensaje Editado el 01:26:41 04/05/2009
Enviado por ambu en 04/05/2009 02:51:42
O--o   me akabas de salvar amigo

muchas gracias de verdad

por hay os estamos leyendo

salu2
Enviado por ambu en 04/05/2009 03:57:24
wenas

que pena por molestar tanto :S

tengo otra pregunta,

como le hago para que desde otro boton me de la opcion de abrir un documento de texto, y aparesca todo lo escrito en el textbox???


espero que no sea una molestia

apenas me estoy adentrando en este campo y estoy leyendo algunos manuales y tutos
Enviado por StellaS en 04/05/2009 13:08:02
Aquí tienes, te recomiendo que te compres libros de programación o descarges tutoriales de la red de visual basic y cosas así, no se puede vivir toda la vida de ejemplos y de otra gente, te estás adentrando en una pequeña islita de un universo infinito.


CITA

Private Sub Abrir_Click()
With CommonDialog1
.Filter = " (*.txt)|*.txt"
.DialogTitle = "Elija donde guardar ..."
.ShowSave
Dim Archivo As Integer
      Archivo = FreeFile
      Open .FileName For Input As #Archivo
            Text1.Text = Input(LOF(Archivo), #Archivo)
      Close #Archivo
MsgBox "Archivo Abierto corréctamente", vbInformation, "Listo"
End With
End Sub



OTRA COSA: Cambia las propiedades del text1 a:

Multiline = True
ScrollBars = 2- Vertical

y todo listo
Enviado por ambu en 04/05/2009 16:32:09
klaro man tienes la razon porque no siempre hay que depender de lso demas users

y por es ya me estoy dedikando defenderme por mi mis herramientas !

y para terminar el post

le gradesco por el kode de abrir,

pero hay alguna forma de cambiar el nombre del boton guardar, de la ventana que se abre para abrir el texto, ke, em ves de que diga abrir, dice guardar:P???
Enviado por StellaS en 04/05/2009 17:46:41
CITA



Private Sub Guardar_Click()
With CommonDialog1
.Filter = " (*.txt)|*.txt"
.DialogTitle = "Elija donde guardar porfavor"
.ShowSave
Open .FileName For Binary As #1
      Put #1, , Text1.Text
Close #1
MsgBox "Archivo guardado corréctamente", vbInformation, "Listo"
End With
End Sub

Private Sub Abrir_Click()
With CommonDialog1
.Filter = " (*.txt)|*.txt"
.DialogTitle = "Seleccione el documento que desea abrir"
.ShowSave
Dim Archivo As Integer
         Archivo = FreeFile
         Open .FileName For Input As #Archivo
                  Text1.Text = Input(LOF(Archivo), #Archivo)
         Close #Archivo
MsgBox "Archivo Abierto corréctamente", vbInformation, "Listo"
End With
End Sub


Información sacada de www.ForoMsn.com