- Код: Выделить всё
'В модуле
Public MAIN_OUTPUT_OBJ_FONT_COLOR As Integer
Public MAIN_OUTPUT_OBJ_FONT_SIZE As Byte
Public MAIN_OUTPUT_OBJ_BOLD As Boolean
Public MAIN_OUTPUT_MES_FONT_COLOR As Integer
Public MAIN_OUTPUT_MES_FONT_SIZE As Byte
Public MAIN_OUTPUT_MES_BOLD As Boolean
Public MAIN_OUTPUT_PREFIX As String
Public MAIN_OUTPUT_PREFIX_COLOR As Integer
Public MAIN_OUTPUT_PREFIX_BOLD As Boolean
Public Sub Sub_Set_Default_Settings()
MAIN_OUTPUT_OBJ_FONT_COLOR = vbRed
MAIN_OUTPUT_OBJ_FONT_SIZE = 12
MAIN_OUTPUT_OBJ_BOLD = True
MAIN_OUTPUT_MES_FONT_COLOR = vbBlack
MAIN_OUTPUT_MES_FONT_SIZE = 10
MAIN_OUTPUT_MES_BOLD = True
MAIN_OUTPUT_PREFIX = " : "
MAIN_OUTPUT_PREFIX_COLOR = vbRed
MAIN_OUTPUT_PREFIX_BOLD = True
End Sub
Public Sub Sub_Data_Arrival()
On Error Resume Next
Dim DATA_ARRIVAL_ARRAY() As String
Dim DATA_SORT_ARRAY() As String
DATA_ARRIVAL_ARRAY = Split(DATA_ARRIVAL, vbCrLf)
For i = 0 To UBound(DATA_ARRIVAL_ARRAY)
DATA_SORT_ARRAY = Split(DATA_ARRIVAL_ARRAY(i), ":", 3)
With Main_Form.Main_Output
.Text = .Text + DATA_SORT_ARRAY(1)
.SelStart = Len(.Text) - Len(DATA_SORT_ARRAY(1))
.SelLength = Len(DATA_SORT_ARRAY(1))
.SelBold = MAIN_OUTPUT_OBJ_BOLD
.SelFontSize = MAIN_OUTPUT_OBJ_FONT_SIZE
.SelColor = MAIN_OUTPUT_OBJ_FONT_COLOR
.Text = .Text + MAIN_OUTPUT_PREFIX
.SelStart = Len(.Text) - Len(MAIN_OUTPUT_PREFIX)
.SelLength = Len(MAIN_OUTPUT_PREFIX)
.SelBold = MAIN_OUTPUT_PREFIX_BOLD
.Text = .Text + DATA_SORT_ARRAY(2)
.SelStart = Len(.Text) - Len(DATA_SORT_ARRAY(2))
.SelLength = Len(DATA_SORT_ARRAY(2))
.SelBold = MAIN_OUTPUT_MES_BOLD
.SelFontSize = MAIN_OUTPUT_MES_FONT_SIZE
.SelColor = MAIN_OUTPUT_MES_FONT_COLOR
.Text = .Text + vbCrLf
End With
Next i
End Sub
'В форме
Private Sub Form_Initialize()
Sub_Set_Default_Settings
End Sub
Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Sock.GetData DATA_ARRIVAL
Sub_Data_Arrival
End Sub
Ну вот примерно такого рода. Почему у меня весь текст одинакого крассный, одинакого 12-ого размера ?
И ещё, выдаёт ошибку, когд я в переменный цвет пытаюсь указать в 16-иричном.
Просто заколебался уже... Прастите...
Заранее благодарен.
