🚀 go-pugleaf

Hi, Bernie

You can test some code like this:

'Declarations section
Public Const EM_LINESCROLL = &H406
Declare Function SendMessage& Lib "user" (ByVal hWd%, ByVal wMsg%,
ByVal wParam%, ByVal lParam&)

'If you want to scroll one line at a time (embedded in your code) ...

>Private Sub cmdAdd_Click()
>Dim stUID As String
 Dim ret%
>stUID = "(UserName)"
>rtb1.Text = rtb1.Text + vbNewLine + stUID + ":>" + rtbAdd.Text
>
ret% = SendMessage(txtCtrl.hWnd, EM_LINESCROLL, 0, 1)
>
>End Sub


Hope this helps...


On Mon, 17 Aug 1998 00:04:51 -0400, "bernie" <deforest@mkl.com> wrote:

>i am building a small chat program. it looks like AOL's imstand messanger.
>it uses to rich text boxes and  the bottom one sends text to the top one
>using the code below to send the text to the box on the next line. the top
>box everyone see's EX>
>
>Private Sub cmdAdd_Click()
>Dim stUID As String
>stUID = "(UserName)"
>rtb1.Text = rtb1.Text + vbNewLine + stUID + ":>" + rtbAdd.Text
>
>
>End Sub
>
>it works correctly but i when there is too many lines the new text can't be
>seen i have the scroll bar and you can scroll by hand but i want itto
>automaticly scroll to that last line of text.
>
>if anyone can help me with this or anything doing with building an chat
>program please post or email me at deforest@mkl.com
>
>

.
..
...
____________________________________
 H a B e e � R o d B a l l
  rodball (arroba) ctv.es
X i x � n � A S T U R I E S