elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Creando Word 2003 [VB.NET]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Creando Word 2003 [VB.NET]  (Leído 1,211 veces)
Word 2003

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Creando Word 2003 [VB.NET]
« en: 26 Julio 2012, 14:32 pm »

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:
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:
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:
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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Combinar en un documento nuevo. (Word 2003). Parece facil .....
Programación Visual Basic
jorge_cs 2 2,635 Último mensaje 13 Enero 2006, 12:42 pm
por jorge_cs
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines