Código de Visual Basic.NET - Múltiples textos en richtexbox (diferente color, bold, italic, etc)

<<>>
Imágen de perfil
Val: 23
Ha aumentado su posición en 327 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Múltiples textos en richtexbox (diferente color, bold, italic, etc)gráfica de visualizaciones


Visual Basic.NET

Publicado el 10 de Junio del 2021 por Avizor
267 visualizaciones desde el 10 de Junio del 2021
Buenas noches les aporto el siguiente código, el cual se encarga de usar el complemento RICHTEXBOX de vb.net para poder crear distintos textos, con distinta tipografía. Sería una especie de consola, configurable a gusto. Le pueden dar un muy buen uso. Les dejo una imagen para que vean como se ve:



Para utilizarlo como ejemplo:

1
2
3
4
Call AddConsole(txtMessage, "Nombre: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, "Lautaro", FontType.FONTTYPE_BODYAUTHOR, True)
Call AddConsole(txtMessage, "Email: ", FontType.FONTTYPE_PREDEFINED, False)
Call AddConsole(txtMessage, "[email protected].com", FontType.FONTTYPE_BODYAUTHOR, True)

Requerimientos

No requiere ninguna librería externa

1.0

Publicado el 10 de Junio del 2021gráfica de visualizaciones de la versión: 1.0
267 visualizaciones desde el 10 de Junio del 2021
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Module Console
    Public Const MAX_FONT As Byte = 7
 
    Public Enum FontType
        FONTTYPE_TITLE = 1
        FONTTYPE_AUTHOR = 2
        FONTTYPE_AUTHORGM = 3
        FONTTYPE_BODYAUTHOR = 4
        FONTTYPE_BODYGM = 5
 
        FONTTYPE_DONE = 6
        FONTTYPE_PREDEFINED = 7
    End Enum
 
    Public Structure Fonts
        Public Font As Font
        Public Color As Color
    End Structure
 
    Public FontTypeNames(MAX_FONT) As Fonts
 
    ' Cargamos las fuentes predeterminadas
    Public Sub Font_Load()
 
        ' Done
        With FontTypeNames(FontType.FONTTYPE_DONE)
            .Font = New Font("Tahoma", 12, FontStyle.Bold)
            .Color = Color.FromArgb(255, 50, 200, 20)
        End With
 
        ' Tittle
        With FontTypeNames(FontType.FONTTYPE_TITLE)
            .Font = New Font("Tahoma", 15, FontStyle.Bold)
            .Color = Color.FromArgb(255, 255, 255, 255)
        End With
 
        ' Author
        With FontTypeNames(FontType.FONTTYPE_AUTHOR)
            .Font = New Font("Tahoma", 12, FontStyle.Bold)
            .Color = Color.FromArgb(255, 222, 214, 203)
        End With
 
        ' Author GM
        With FontTypeNames(FontType.FONTTYPE_AUTHORGM)
            .Font = New Font("Tahoma", 12, FontStyle.Bold)
            .Color = Color.FromArgb(255, 222, 214, 203)
        End With
 
        ' Body Author
        With FontTypeNames(FontType.FONTTYPE_BODYAUTHOR)
            .Font = New Font("Tahoma", 12, FontStyle.Regular)
            .Color = Color.FromArgb(255, 103, 109, 108)
        End With
 
        ' Body GM
        With FontTypeNames(FontType.FONTTYPE_BODYGM)
            .Font = New Font("Tahoma", 12, FontStyle.Regular)
            .Color = Color.FromArgb(255, 140, 84, 84)
        End With
 
        ' Mensaje predefinido
        With FontTypeNames(FontType.FONTTYPE_PREDEFINED)
            .Font = New Font("Tahoma", 12, FontStyle.Bold)
            .Color = Color.FromArgb(255, 17, 150, 200)
        End With
    End Sub
 
    Public Sub AddConsole(ByVal Console As RichTextBox,
                           ByVal Text As String,
                           ByVal FontSelected As FontType,
                           Optional ByVal NewLine As Boolean = False,
                           Optional ByVal DoubleNewLine As Boolean = False)
 
        Console.SelectionStart = Console.TextLength
        Console.SelectionFont = FontTypeNames(FontSelected).Font
        Console.SelectionColor = FontTypeNames(FontSelected).Color
        Console.AppendText(Text + IIf(NewLine = True, vbCrLf, vbNullString) + IIf(DoubleNewLine = True, vbCrLf, vbNullString))
    End Sub
End Module



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s7088