Hola a todos
Aqui un ejemplo de como utilizar el RichTextBox de Winform en vb.net
Para ello empezaremos por crear 1 formulario , 7 botones y una caja de RichTextBox. de tal forma que nos quede algo asi
Ahora vamos a empezar con el primer boton, para seleccionar la fuente.
|
1 2 3 4 5 |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New FontDialog f.ShowDialog() Me.RichTextBox1.SelectionFont = f.Font End Sub |
Seguimos con los botones 2, 3 y 4 que seran para la alineación .
|
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub |
Ahora el boton5 para el color,
|
1 2 3 4 5 |
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim c As New ColorDialog c.ShowDialog() Me.RichTextBox1.SelectionColor = c.Color End Sub |
Y por ultimo los botones 6 y 7, el cual nos muestra los datos sobre el richtextbox que los guarda en un String, y el siguiente lo volvera a cargar.
|
1 2 3 4 5 |
Dim Datos As String Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click MsgBox(Me.RichTextBox1.Rtf) Datos = Me.RichTextBox1.Rtf End Sub |
|
1 2 3 |
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Me.RichTextBox1.Rtf = Datos End Sub |
Ahora todo el codigo seguido.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
Public Class Form1 Dim Datos As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim f As New FontDialog f.ShowDialog() Me.RichTextBox1.SelectionFont = f.Font End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim c As New ColorDialog c.ShowDialog() Me.RichTextBox1.SelectionColor = c.Color End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click MsgBox(Me.RichTextBox1.Rtf) Datos = Me.RichTextBox1.Rtf End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Me.RichTextBox1.Rtf = Datos End Sub End Class |
Espero que os sirva el ejemplo, un saludo a todos. y ya saben , comenten, siguenos en twitter,Facebook y Google+
Si quieres ver el video pincha aqui
