Mensajes

el codigo del guardar como seria asi

Código [Seleccionar] Expandir


On Local Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
CommonDialog1.ShowSave
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close


mi problema es que no veo la forma de que el programa reescriba el archivo que se abrio o guardo previamente :S

hola queria saber si hay alguna manera de guardar un archivo con el guardar
xq ya hice el guardar como, pero no encontre la forma de hacer el guardar solo :S
si alguien me dice como empezar o donde puedo conseguir algo de informacion se lo voy a agradecer

ya encontre el problema


en vez de ser

Código [Seleccionar] Expandir


    CommonDialog1.DefaultExt = "*.txt"


era

Código [Seleccionar] Expandir


CommonDialog1.DefaultExt = ".txt"


disculpen

estoy intentando hacer un editor de texto
el problema surge cuando quiero guardar el text como un archivo
ya que si no especifico la extensión cuando ingreso el nombre no me lo guarda

el codigo q tiene es este

Código [Seleccionar] Expandir

On Local Error Resume Nex
    CommonDialog1.CancelError = True
    CommonDialog1.DefaultExt = "*.txt"
    CommonDialog1.Filter = "Documentos de texto (*.txt)"
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
    Print #1, Text1
    Close

saben por que no me crea el archivo ????

gracias
funciono perfecto

hola mi problema es que no se como hacer que aparescan todas las fuentes en el
combobox sin tener que ingresar una x una con AddItem.
o sea lo que yo quiero es que en el combobox aparescan todas las fuentes de la
computadora.
gracias

Voy a ponerme a leer xq como seguro te diste cuenta no hace mucho que estoy en esto de programacion con vb y no se demasiado sobre el tema. asi que gracias por la critica ya q me sirve para mejorar

Bueno aca les voy a dejar un programa que hice yo
el programa en si es muy simple, lo unico que hace es
devolverles en un recuadro el valor Ascii de la tecla pulsada.
lo hice ver mas facilmente el varor de una tecla

aca les dejo el link de descarga

http://www.megaupload.com/?d=SYBPJPV5

Espero que les sirva

tambien les dejo el codigo fuente x si a alguien le interesa
Codigo fuente del programa:

Form1:

Private Sub Command1_Click()

Form2.Visible = True

End Sub

Private Sub Form_Load()

Me.Caption = "Valor KeyAscii"
Form2.Visible = False
Label1.Caption = "KeyAscii"
Label2.Caption = ""
Label3.Caption = "Tecla"
Text1.Text = ""
Label1.AutoSize = True
Label1.BackStyle = 0
Label2.AutoSize = True
Label2.BackStyle = 0
Label3.AutoSize = True
Label3.BackStyle = 0
Label2.FontSize = 20
Label2.FontBold = True
Label2.Font = Arial
Text1.MaxLength = 1
Command1.Caption = "Ayuda"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text1.Text = ""
Label2.Caption = KeyAscii

End Sub

el segundo formulario no lo pongo ya que es la parte de ayuda. no tiene demasiada utilidad.