EJEMPLO DEL EDITOR DE TEXTO SENCILLO EN VISUAL BASIC

EJEMPLO DEL EDITOR DE TEXTO SENCILLO EN VISUAL BASIC
1. Se crea un nuevo proyecto
2. Se da nombre al formulario Editor de Texto
3. Se inserta un control RichTextBox llamado RichTextBox del cuadrode herramientas. Se hace clic sobre la flechita que se muestra en la parte superior y se elige “Acoplar en contenedor principal . en la propiedad Nombre se le llama document.
4. Para ponerle el MenúEn el cuadro de Herramientas se elige del grupo Menús y Barras de Herramientas “Tool Strip” y se ubica en la parte superior del Objeto. Con clic derecho se elige “Enviar al Fondo”
Se desplega, seelige Drop Down Botton/ sobre éste se hace clic derecho para elegir la opción Display Style, y a su vez se elige la propiedad “Text”, y en la propiedad “Text” se cambia y se coloca “Archivo” , la cualpermitirá que Botón Principal se llame “Archivo”
a. Luego se agregan las opciones “Nuevo”, “ Abrir” , “Guardar Como” y “ Salir” haciendo clic y colocando el nombre a cada botón.
De la misma Formase crean los botones Editar con las opciones Deshacer,Rehacer, Copiar , Pegar, Cortar , Seleccionar Todo, Limpiar.
De la misma Forma se crean los botones Formato con las opciones Fuente y Color
5. Acontinuación se colocan los códigos en los respectivos botones:
Nuevo:
Document.clear()
Abrir:
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text[*.txt*]|*.txt|All Files [*,*]|*,*"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)document.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
End Try

Guardar Como:
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text(*.txt)|*.txt|HTML(*.html*)|*.html|PHP(*.php*)|*.php*|All files(*.*)|*.*"
Save.CheckPathExists = True
Save.Title = "Guardar como"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)...