Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Word 2003

#1
Yo queria saber haber si me pueden responder, las pestañas laterales del Ccleaner como deben de ser?? No muestran un nuevo form, y tampoco creo que sean pestañas laterales con imagenes
#2
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:

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.

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:

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