Producción de programas VB
Su TextBox debe ser reemplazado por RichTextBox.
Borrar: RichTextBox1.Text?=?""
Abrir: 'Cargar componentes Microsoft?Common?Control y?Microsoft?Rich?TextBox?Control primero
CommonDialog1.Filter?=?"Documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)|*.rtf|Todos los archivos (*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.FileName?=?CommonDialog1.FileName
RichTextBox1.LoadFile?FileName
Guardar: CommonDialog1.Filter?=?" documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)|*.rtf|Todos los archivos (*.*)|*.*"
CommonDialog1.ShowSave
FileType?=?CommonDialog1.FileTitle
FiType?=?LCase(Right(FileType,?3))
FileName?=?CommonDialog1.FileName
Seleccione?Caso?FiType
Caso?"txt"
RichTextBox1.SaveFile?FileName,?rtfText
Caso?"rtf"
RichTextBox1.SaveFile?FileName,?rtfRTF
Caso?"*.*"
RichTextBox1.SaveFile?FileName
Fin?Select
Cortar: Clipboard.Clear
Clipboard.SetText?RichTextBox1.SelText
RichTextBox1.SelText?=?""
Pegar: RichTextBox1.SelText? ?Clipboard.GetText
Copiar: Clipboard.Clear
Clipboard.SetText?RichTextBox1.SelText
Seleccionar todo: RichTextBox1.SelStart?=?0 p >
RichTextBox1.SelLength?=?Len(RichTextBox1.Text)