Visual Basic.NET - ALTEXTBOX QUE ESTA EN NEGRITA AGREGARLE KURSISVA O SUBRAYAD SIN QUE SE PIERDA NEGRITA

   
Vista:
Imágen de perfil de francis jesus

ALTEXTBOX QUE ESTA EN NEGRITA AGREGARLE KURSISVA O SUBRAYAD SIN QUE SE PIERDA NEGRITA

Publicado por francis jesus (1 intervención) el 10/12/2017 16:15:17
PRACTICA-N3

PROBLEMAS CON EL CHECKBOX:
AL MOMENTO DE EJECUTAR, ESCRIBO EN EL TEXTBOX Y SELECIONO NEGRITA EL TEXTO SE PONE EN NEGRITA PEO CUANDO SELECCIONO EN KURSIVA O SUBRAYADO SE PONE EN ESTOS PERO SE PIERDE EN NEGRITA.
COMO HARIA PARA QUE TENGA LOS FORMATOS.

HAY UNA FORMA O COMO SE CODIFICA , PLEASE
.
ESTE ES EL CODIGO:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Public Class Practica3_TextoEditor
 
    Private Sub CheckBoxNegrita_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxNegrita.CheckedChanged
        If CheckBoxNegrita.Checked = True Then
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Bold)
        Else
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Regular)
        End If
    End Sub
 
    Private Sub CheckBoxKursiva_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxKursiva.CheckedChanged
        If CheckBoxKursiva.Checked = True Then
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Italic)
        Else
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Regular)
        End If
    End Sub
 
    Private Sub CheckBoxSubraydo_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxSubraydo.CheckedChanged
        If CheckBoxSubraydo.Checked = True Then
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Underline)
        Else
            TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Regular)
        End If
    End Sub
 
Private Sub RadRojo_CheckedChanged(sender As Object, e As EventArgs) Handles RadRojo.CheckedChanged
        If RadRojo.Checked = True Then
            TxtTexto.ForeColor = Color.Red
        End If
    End Sub
 
    Private Sub RadVerde_CheckedChanged(sender As Object, e As EventArgs) Handles RadVerde.CheckedChanged
        If RadVerde.Checked = True Then
            TxtTexto.ForeColor = Color.Green
        End If
    End Sub
 
    Private Sub RadAzul_CheckedChanged(sender As Object, e As EventArgs) Handles RadAzul.CheckedChanged
        If RadAzul.Checked = True Then
            TxtTexto.ForeColor = Color.Blue
        End If
    End Sub
 
    Private Sub CBFuente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CBFuente.SelectedIndexChanged
        If CBFuente.SelectedItem = "Monotype Cursiva" Then
            TxtTexto.Font = New System.Drawing.Font("Monotype Cursiva", "10")
 
        ElseIf CBFuente.SelectedItem = "Matura MT Script Capitals" Then
            TxtTexto.Font = New System.Drawing.Font("Matura MT Script Capitals", "10")
 
        ElseIf CBFuente.SelectedItem = "Century Gothic" Then
            TxtTexto.Font = New System.Drawing.Font("Century Gothic", "10")
 
        ElseIf CBFuente.SelectedItem = "Comic Sans MS" Then
            TxtTexto.Font = New System.Drawing.Font("Comic Sans MS", "10")
 
        ElseIf CBFuente.SelectedItem = "Kristen ITC" Then
            TxtTexto.Font = New System.Drawing.Font("Kristen ITC", "10")
 
        End If
    End Sub
End Class


ADJUNTO: MI PRACTICA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de kingk

ALTEXTBOX QUE ESTA EN NEGRITA AGREGARLE KURSISVA O SUBRAYAD SIN QUE SE PIERDA NEGRITA

Publicado por kingk (68 intervenciones) el 10/12/2017 21:59:48
Hola, supongo que loque quieres es que se mantenga el estilo de fuente que le aplicaste cuando selecciones otro estilo. La solución seria asignar los estilos de forma similar a una operación aritmatica. Este seria el código:
1
2
3
4
5
6
7
Private Sub CheckBoxNegrita_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxNegrita.CheckedChanged
    If CheckBoxNegrita.Checked = True Then
        TxtTexto.Font = New Font(TxtTexto.Font, FontStyle.Bold + TxtTexto.Font.Style)
    Else
        TxtTexto.Font = New Font(TxtTexto.Font, TxtTexto.Font.Style - FontStyle.BOLD)
    End If
End Sub


Cuando se activa el CheckBox se le suma el estilo Negrita al que ya tiene, y si se quita la selección se le resta el estilo Negrita.

Podrías aplicar lo mismo en los otros.
Espero haberte ayudado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad