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