Red de conocimiento informático - Problemas con los teléfonos móviles - Producción de programas VB

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

RichTextBox1.SelLength?=?Len(RichTextBox1.Text)