Problema a desarrollar: Se creara un procesador de texto básico similar a el bloc de notas, en donde pueda guardar, abrir o crear un nuevo documento, cambiar fuente, color y algunas cuestiones preliminares en el uso de dichos software de aplicación.
Desarrollo.
Para la realización de esta actividad y segunda de nuestro ultimo resultado de aprendizaje se hace necesario la carga de una nueva aplicación con un formulario en limpio.
Hecho esto ubique de la paleta de cuadro de herramientas el control Toolstrip
Arrastre el objeto y ubíquelo en la parte superior de su formulario, moderando la altura y ubicándolo por todo el ancho.
Ubicar el objeto RichTextBox y acóplelo al contenedor primario (cambie su nombre a document).
A continuación ya con los dos objetos dentro del contenedor principal, deberá dirigirse al objeto Toolstrip, ubicar el botón de anexo, desplegar su cabeza de flecha y seleccionar la opción Dropdownbutton, hacerlo así por dos veces más (deberán quedar tres dropdownbutton)
Hecho lo anterior de clic derecho por cada una de estas opciones y seleccione la opción DisplayStyle del nuevo menú seleccione Text, vaya a sus propiedades seleccione la propiedad text y cámbiela a &Abrir, &Editar y &Formato.
Agregue para cada menú los siguientes submenús:
- Abrir opciones Nuevo (ctrl-N), Abrir (ctrl-A), Guardar como (ctrl-G) y Salir.
- Editar opciones Atrás, Adelante, (línea divisora), Copiar, Cortar, Pegar, (línea divisora), seleccionar todo y Limpiar texto.
- Formato opciones Fuente y color.
Para acceder a los códigos se realiza de la misma forma que cualquier otro objeto, es decir dando doble clic a este.
Los códigos son los siguientes:
Opción Nuevo
document.clear()
Opción 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
Opción Guardar
Dim save As New SaveFileDialog
Dim
mystreamwriter As System.IO.StreamWritersave.Filter = "text [*.txt*]|*.txt|HTML [*.html]|PHP [*.php]|all files [*.*]|*.*"
save.CheckPathExists = True
save.Title = "Guardar como:"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(document.Text)
mystreamwriter.Flush()
Catch ex As Exception
End Try
Opción Salir
Mismo código que se ha manejado.
Opción Atrás
document.undo()
Opción adelante.
document.Redo()
Opción Copiar
document.copy()
Opción Pegar
document.Paste()
Opción Cortar
document.cut()
Opción Seleccionar todo
document.SelectAll
Opción Limpiar
document.Clear()
Opción Fuente
Try
Dim dig As FontDialog = New FontDialog
dig.Font = document.Font
If dig.ShowDialog = System.Windows.Forms.DialogResult.OK Then
document.Font = dig.Font
End If
Catch ex As Exception
End Try
Opción Color
Try
Dim dig As ColorDialog = New ColorDialog
dig.Color = document.ForeColor
If dig.ShowDialog = System.Windows.Forms.DialogResult.OK Then
document.ForeColor = dig.Color
End If
Catch ex As Exception
End Try
NOTA: Este trabajo deberá ser entregado para el ultimo día de clases de la semana comprendida del 04 al 08 de Noviembre del 2013.
No hay comentarios:
Publicar un comentario