CommonDialog

cilobaid
03 de Mayo del 2006
bueno lei algo en el foro sobre este componente pero nose como utilizarlo lo que quiero saber es como puedo abir al actives un formulario un txt o sea abrirlo automaticamente para correcciones a si como como salvarlo con una ext. .frm
para abirlo tengo esto pero cuando lo pongo en el formulario no me sale
Dim sFile As String
If ActiveForm Is Nothing Then LoadNewDoc
With dlgCommonDialog
.DialogTitle = "Open"
.CancelError = False
.Filter = "All Files (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtftext.LoadFile sFile
ActiveForm.Caption = sFile
si no es mucho molestia y nadamas me urge mucho gracias

LLE
03 de Mayo del 2006
Hola para guardarlo:
RichTextBox1.SaveFile App.Path & "archivo.laExtecion"

lo que no entioendo es porque lo queres guardar con extencion .frm ?

salu2

www.recursosvisualbasic.com.ar