problemas con barra de herramientas
Publicado por ASTERIX (26 intervenciones) el 30/11/2005 09:10:38
Hola a todos:
Mi problema lo dan los botones de negrita, cursiva y subrayado. No he conseguido, q pueda existir combinaciones de ellos, es decir; q se pueda escribir en negrita y cursiva a la vez, o negrita subrayado. para ello he utilizado el siguiente codigo
EN LA BARRA DE HERRAMIENTAS:
Select Case Button.Index
Case 5 'negrita
cuerpo_texto
opcion_cuerpo = 1
Case 6 'cursiva
cuerpo_texto
opcion_cuerpo = 2
Case 7 'subrayado
cuerpo_texto
opcion_cuerpo = 3
donde cuerpo_texto es una funcion a la q llamo y donde se hacen las distintas combinaciones de letras. El problema como veis es q cada opcion, viente dada dentro de la funcion por una variable llamada_opcion cuerpo.
Para conseguir, q se pueda escribir con dos cuerpos de fuente a la vea, en la funcion he hecho, las diferentes combinaciones como se presentan a continuacion:
Function cuerpo_texto()
Select Case opcion_cuerpo
Case 1 'Negrita
If Toolbar1.Buttons(5).Value = tbrPressed Then
txt_msg.SelBold = True
Else
txt_msg.SelBold = False
End If
Case 2 'Cursiva
If Toolbar1.Buttons(6).Value = tbrPressed Then
txt_msg.SelItalic = True
Else
txt_msg.SelItalic = False
End If
Case 3 'Surayado
If Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelUnderline = True
Else
txt_msg.SelUnderline = False
End If
Case 4 'negrita-subrayado
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelUnderline = True
Else
txt_msg.SelBold = False
txt_msg.SelUnderline = False
End If
Case 5 'negrita-cursiva
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(6).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelItalic = True
Else
txt_msg.SelBold = False
txt_msg.SelItalic = False
End If
Case 6 'cursiva-subrayado
If Toolbar1.Buttons(6).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelItalic = True
txt_msg.SelUnderline = True
Else
txt_msg.SelItalic = False
txt_msg.SelUnderline = False
End If
Case 7 'negrita-italica-subryado
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(6).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelItalic = True
txt_msg.SelUnderline = True
Else
txt_msg.SelBold = False
txt_msg.SelItalic = False
txt_msg.SelUnderline = False
End If
End Select
End Function
El problema, es q la barra de herramientas no me deja combinar dos opciones a la vez. Es decir, como puedo escribir en negrita y cursiva.
Por favor, ayudadme.
Gracias
Mi problema lo dan los botones de negrita, cursiva y subrayado. No he conseguido, q pueda existir combinaciones de ellos, es decir; q se pueda escribir en negrita y cursiva a la vez, o negrita subrayado. para ello he utilizado el siguiente codigo
EN LA BARRA DE HERRAMIENTAS:
Select Case Button.Index
Case 5 'negrita
cuerpo_texto
opcion_cuerpo = 1
Case 6 'cursiva
cuerpo_texto
opcion_cuerpo = 2
Case 7 'subrayado
cuerpo_texto
opcion_cuerpo = 3
donde cuerpo_texto es una funcion a la q llamo y donde se hacen las distintas combinaciones de letras. El problema como veis es q cada opcion, viente dada dentro de la funcion por una variable llamada_opcion cuerpo.
Para conseguir, q se pueda escribir con dos cuerpos de fuente a la vea, en la funcion he hecho, las diferentes combinaciones como se presentan a continuacion:
Function cuerpo_texto()
Select Case opcion_cuerpo
Case 1 'Negrita
If Toolbar1.Buttons(5).Value = tbrPressed Then
txt_msg.SelBold = True
Else
txt_msg.SelBold = False
End If
Case 2 'Cursiva
If Toolbar1.Buttons(6).Value = tbrPressed Then
txt_msg.SelItalic = True
Else
txt_msg.SelItalic = False
End If
Case 3 'Surayado
If Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelUnderline = True
Else
txt_msg.SelUnderline = False
End If
Case 4 'negrita-subrayado
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelUnderline = True
Else
txt_msg.SelBold = False
txt_msg.SelUnderline = False
End If
Case 5 'negrita-cursiva
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(6).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelItalic = True
Else
txt_msg.SelBold = False
txt_msg.SelItalic = False
End If
Case 6 'cursiva-subrayado
If Toolbar1.Buttons(6).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelItalic = True
txt_msg.SelUnderline = True
Else
txt_msg.SelItalic = False
txt_msg.SelUnderline = False
End If
Case 7 'negrita-italica-subryado
If Toolbar1.Buttons(5).Value = tbrPressed _
& Toolbar1.Buttons(6).Value = tbrPressed _
& Toolbar1.Buttons(7).Value = tbrPressed Then
txt_msg.SelBold = True
txt_msg.SelItalic = True
txt_msg.SelUnderline = True
Else
txt_msg.SelBold = False
txt_msg.SelItalic = False
txt_msg.SelUnderline = False
End If
End Select
End Function
El problema, es q la barra de herramientas no me deja combinar dos opciones a la vez. Es decir, como puedo escribir en negrita y cursiva.
Por favor, ayudadme.
Gracias
Valora esta pregunta


0