ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
07:36:06 21/09/2019
¿No estas registrado?
Login: Clave:
7 Usuarios en línea: 0 registrados, 7 invitados.
Conéctate y verás los usuarios en línea
Tema: PREGUNTA// codigo para un command buton guardar
    Responder
Todos Los Foros -> Visual Basic -> Formularios -> PREGUNTA// codigo para un command buton guardar
Autor Mensaje (Ver Versión para Imprimir)
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ver último Post
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!
30/04/2009 20:45:58 
RevangelyonX
Aprendiz nivel 3

Mensajes: 92
Registrad@:
11/09/2005
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

Hola ambu, no sé si realmente es lo que necesitas, pero en Tools --> Menu Editor.

Informate un poco de eso quizá te sirva.


02/05/2009 09:05:12 
StellaS
Usuario aficionado
Sin Imagen

Mensajes: 11
Registrad@:
03/05/2009
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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.
03/05/2009 19:09:02 
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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
03/05/2009 23:36:15 
StellaS
Usuario aficionado
Sin Imagen

Mensajes: 11
Registrad@:
03/05/2009
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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
04/05/2009 01:24:41 
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

O--o   me akabas de salvar amigo

muchas gracias de verdad

por hay os estamos leyendo

salu2
04/05/2009 02:51:42 
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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
04/05/2009 03:57:24 
StellaS
Usuario aficionado
Sin Imagen

Mensajes: 11
Registrad@:
03/05/2009
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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
04/05/2009 13:08:02 
ambu
Aprendiz nivel 1
Arreglando las imágenes

Mensajes: 37
Registrad@:
29/07/2008
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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???
04/05/2009 16:32:09 
StellaS
Usuario aficionado
Sin Imagen

Mensajes: 11
Registrad@:
03/05/2009
Estado: Desconectad@
Ir Arriba
RE: PREGUNTA// codigo para un command buton guardar

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

04/05/2009 17:46:41 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com