Bienvenido a mi post
Hola a todos hoy les dire como crear un editor de texto enrequezido (rtf) espero que les guste, me decidi a hacerlo ya que no he visto post de esto (texto enrequezido) en fin, seleccione visual basic 2008 ya que es un programa sencillo y practico y nos permite flexibilidad suficiente para el tema(tecnologia .net)
Bien lo primero que necesitamos es un rich text box, y decidir, lo hacemos con buttons (botones) o un menu.
Una vez seleccionado el richtextbox ponemos lo siguiente
AVISO: ACA LINEA TIENE SU EXPLICACION ENTRE '//
Boton abrir
CODIGO BOTON GUARDAR:
Codigo Cambiar Fuente
Color Cambiar Color
Codigo de Cortar
Codigo de copiar
Codigo de Pegar
RichTextBox1.Undo()
RichTextBox1.Redo()
YAPA
Codigos extras
Comprobar si existe un archivo y manda un mensaje de que existe
Hola a todos hoy les dire como crear un editor de texto enrequezido (rtf) espero que les guste, me decidi a hacerlo ya que no he visto post de esto (texto enrequezido) en fin, seleccione visual basic 2008 ya que es un programa sencillo y practico y nos permite flexibilidad suficiente para el tema(tecnologia .net)
Crear editor de texto
Bien lo primero que necesitamos es un rich text box, y decidir, lo hacemos con buttons (botones) o un menu.
Una vez seleccionado el richtextbox ponemos lo siguiente
AVISO: ACA LINEA TIENE SU EXPLICACION ENTRE '//
Boton abrir
Dim Open As New OpenFileDialog '// Aca decimos que cree un cuadro dialogo
Open.ShowHelp = True '// Aca decimos que muestre la ayuda extra
Open.Title = "Seleccione un titulo" '// Aca ingresamos el titulo en comillas ""
Open.FileName = "Seleccione un archivo de extencion *rtf" ' // Aca decimos que diga seleccione un archivo de extencion *rtf en donde va el nombre del archivo
Open.ShowDialog(Me) '// Aca decimos que el dialogo se muestre y podamos seleccionar el archivo
RichTextBox1.LoadFile(Open.FileName) '// Aca decimos que abra el archivo seleccionado
CODIGO BOTON GUARDAR:
Dim Save As New SaveFileDialog '// Aca decimos que se cree el dialogo guardar
Save.ShowHelp = True '// Aca decimos que muestre la ayuda extra
Save.Title = "Seleccoine un titulo" '// Aca ponemos el titulo que queremos ( si se deja asi como esta de titulo tendra "Seleccoina un titulo" )
Save.ShowDialog(Me) '// Aca decimos que se muestre el dialogo
RichTextBox1.SaveFile(Save.FileName) '// Aca decimos que guarde el archivo hecho con el nombre y carpeta especificada
Boton Salir:
[code]
MsgBox("Usted selecciono salir", MsgBoxStyle.Information) '// Aca decimos que muestre un dialogo que con un icono de informacion diga "Usted ha seleccionado salir"
Me.Close() '// Ciera la ventana
End '// Termina la ejecucion del programa
Application.Exit() '// Otra forma de decir que se cierre la aplicacion
Codigo Cambiar Fuente
Dim Font As New FontDialog '// Aca decimos que cree un dialogo de cambiar fuente
Font.ShowDialog(Me) '// Aca decimos que muestre el dialogo
RichTextBox1.SelectionFont = Font.Font '//Aca decimos que la fuente seleccionada se cambie en lo que hay seleccionado del texto
Color Cambiar Color
Dim color As New ColorDialog '// Decimos de nuevo que cree un dialogo de color
color.ShowDialog(Me) '// Decimos que muestre el dialogo
RichTextBox1.SelectionColor = color.Color '//Decimos que el color seleccionado se cambie en el texto selecionado
Codigo de Cortar
RichTextBox1.Cut()
Codigo de copiar
RichTextBox1.Copy()
Codigo de Pegar
RichTextBox1.Paste()
Codigo de Deshacer
RichTextBox1.Undo()
Codigo de Rehacer
RichTextBox1.Redo()
Y con eso termino el post
YAPA
Codigos extras
Comprobar si existe un archivo y manda un mensaje de que existe
[color=#000000][color=#000000]
Dim FileExt As String = "Directorio del archivo"
If IO.File.Exists(FileExt) Then
MsgBox("El archivo existe", MsgBoxStyle.Information, "Informacion")
End If
[/color][/color]
Ahora comprobar si existe, y si existe eliminarlo
Dim FileExt As String = "Directorio del archivo"
If IO.File.Exists(FileExt) Then
IO.File.Delete(FileExt)
Como copiar un archivo
IO.File.Copy("Directorio del archivo", "Directorio a copiar el archivo")