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
[color=#000000][color=#000000]
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
[/color][/color]
CODIGO BOTON GUARDAR:
[color=#000000][color=#000000]
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
[/color][/color]
Codigo Cambiar Fuente
[color=#000000][color=#000000]
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][/color]
Color Cambiar Color
[color=#000000][color=#000000]
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
[/color][/color]
Codigo de Cortar
[color=#000000][color=#000000]
RichTextBox1.Cut()
[/color][/color]
Codigo de copiar
[color=#000000][color=#000000]
RichTextBox1.Copy()
[/color][/color]
Codigo de Pegar
[color=#000000][color=#000000]
[/color][/color]
RichTextBox1.Paste()
[color=#000000][color=#000000]
Codigo de Deshacer
[/color][/color]
RichTextBox1.Undo()
[color=#000000][color=#000000]
Codigo de Rehacer
[/color][/color]
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][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][/color][/color]
Ahora comprobar si existe, y si existe eliminarlo
[color=#000000][color=#000000]
Dim FileExt As String = "Directorio del archivo"
If IO.File.Exists(FileExt) Then
IO.File.Delete(FileExt)
[/color][/color]
Como copiar un archivo
[color=#000000][color=#000000]
IO.File.Copy("Directorio del archivo", "Directorio a copiar el archivo")
[/color][/color]