Post routine

Posted On 2008-03-03 by FortyPoundHead
Keywords:
Tags: VB6 Miscellaneous Tutorial Windows
Views: 2275


Makes a multi-line textbox into a scrolling textbox, chat-style.

USAGE: post frmLogging.text1, "Text to Post"
SIDE EFFECTS: Constant MAXCHARS must be declared at the top of the module. Do not exceed 50000 for MAXCHARS.


Const MAXCHARS = 5000
Public Sub Post(tbxEditBox As TextBox, sNewText As String)
  sNewText = sNewText & vbCrLf
  With tbxEditBox
    If Len(sNewText) + Len(.Text) > MAXCHARS Then
      ''Scroll some text off the top to make more room
      .Text = Mid$(.Text, InStr(100 + Len(sNewText), .Text, vbCrLf) + 2)
    End If
    .SelStart = Len(.Text)
    .SelText = sNewText
  End With
  DoEvents
End Sub


About the Author

has posted a total of 1974 articles.


Comments On This Post

No comments on this post yet!


Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.


Your IP address is:54.166.160.105

Before you can post, you need to prove you are human. If you log in, this test goes away.


Code Links