This site is developed to XHTML and CSS2 W3C standards.
If you see this paragraph, your browser does not support those standards and you
need to upgrade. Visit WaSP
for a variety of options.
Paste #695
Posted by:
Posted on: 2026-06-04 20:14:41
Age: 10 days ago
Views: 24
Private Sub AddLine(ByVal who As String, ByVal Text As String)
With rtbOutput
.SelStart = Len(.Text)
If who = "You" Then
.SelBold = True
.SelColor = RGB(0, 0, 255)
.SelText = "You: "
.SelBold = False
Else
.SelBold = True
.SelColor = RGB(200, 0, 0)
.SelText = "AI: "
.SelBold = False
End If
.SelColor = RGB(0, 0, 0)
.SelText = Text & vbCrLf
' Автопрокрутка вниз
.SelStart = Len(.Text)
.SelLength = 0
End With
End Sub
Download raw |
Create new paste