Traductor

domingo, 3 de noviembre de 2013

Practica 2 Manejo de menus

Objetivo: Se analiza y práctica el manejo de menús con la opción Toolstrip.

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.StreamWriter
save.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