Temas

Hola buenos días. Soy nuevo en este foro, estoy creando un proyecto personal creando un word 2003 bastante parecido (La mayoría de las funciones no estarían) y tengo 2 problemas nada mas empezar creed que este es mi ultimo recurso y que acudo porque estoy un poquito desesperado. Tengo un RichTextbox1 y 1 combox en el cual tiene por items todas las fuentes que vienen por defecto en windows XP para adelante. Escribo en el richtextbox seleciona una parte de lo escrito y seleciono otra fuente atrabes del combobox.
Code combox:

Código [Seleccionar] Expandir


Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged   
        RichTextBox1().SelectionFont = New Font(ComboBox1.Text, NumericUpDown1.Value)
    End Sub

(Como veran en el code tambien hay un numericupdown1 para el tamaño)
ok ahora tengo un richtextbox con dos tipos de letra. Un problema que TENIA era que al pasar la linia que parpadea y cambiar entre los dos textos el combox no cambiaba como word. Tecnicamente lo solucione con esto.

Código [Seleccionar] Expandir


Private Sub RichTextBox1_SelectionChanged(sender As Object, e As System.EventArgs) Handles RichTextBox1.SelectionChanged
        ComboBox1.Text = RichTextBox1.SelectionFont.Name
    End Sub

Hasta aqui todo bien. Pero que pasa cuando seleciono en azul los 2 textbox ??? ERROR porque RichTextBox1.SelectionFont.Name es igual a Nothing. Probe esto pero nada:

Código [Seleccionar] Expandir


Private Sub RichTextBox1_SelectionChanged(sender As Object, e As System.EventArgs) Handles RichTextBox1.SelectionChanged
        If Not RichTextBox1.SelectionFont.Name = Nothing Then
               ComboBox1.Text = RichTextBox1.SelectionFont.Name
        End If
    End Sub


El segundo problema prefiero ponerlo cuando el primero ya este solucionado desde ya mil gracias