Code combox:
Código:
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)RichTextBox1().SelectionFont = New Font(ComboBox1.Text, NumericUpDown1.Value)
End Sub
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:
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:ComboBox1.Text = RichTextBox1.SelectionFont.Name
End Sub
Código:
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
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