Textbox with scroll bar problem

When you get new data, execute this code:

   TextBox.SelStart = Len(TextBox.Text)
   Call SendMessage(TextBox.hWnd, EM_SCROLLCARET, byval &h0&, byval &h0&)

Here, EM_SCROLLCARET = &hB7&.  The declaration for SendMessage should be in the API viewer.

Cheers.

Hi, thanks for the replies, i am a beginner to vb and still learning a lot of things which some would consider very easy.

JMoon5FTM: Do i place EM_SCROLLCARET = &hB7& in the general declarations section of the form?

Below is how i am getting the arrived data:

Private Sub wsChat_DataArrival(ByVal bytesTotal As Long)
Dim incoming As String

wsChat.GetData incoming

txtIn.Text = txtIn.Text & incoming & vbCrLf
End Sub

i am very fuzzy on how i should execute the code can you please explain in a little more detail how i can get around this? thanks

I'd use SendMessage with WM_VSCROLL as message:

SendMessage txtLog.hWnd, WM_VSCROLL, SB_BOTTOM, byval 0&

This should work ok as I use it in a regular basis with no problems (VB5 though).

i dont understand where to use this code????

as webJose said, use SendMessage with WM_VSCROLL
your code will look something like this, everytime after u append text to the textbox, u send a message to tell the vscroll to scroll to the botton of the text

'general declaration
Private Const WM_VSCROLL = &H115
Private Const SB_BOTTOM = 7
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

'sub function
Private Sub wsChat_DataArrival(ByVal bytesTotal As Long)
Dim incoming As String
wsChat.GetData incoming
txtIn.Text = txtIn.Text & incoming & vbCrLf
SendMessage txtIn.hWnd, WM_VSCROLL, SB_BOTTOM, byval 0&
End Sub

Hi evakv, thanks but it still fails to scroll down,  webJose  stated that he is using vb5, im using vb6 if this has any effect?

thanks in advance for any help.

It is incredibly strange that it doesn't work.  The processing of WM_VSCROLL is a must for a scrollable window.  I just can't imagine why it does not work.  Have you tried the specialized message EM_SCROLLCARET?

Other than what you have seen above, I just can't think of anything else.

Hi webjose, i have tried the EM_SCROLLCARET message aswel but still no luck, i have no clue in why it fails to work.

did the scroll just not move down at all? or it didnt go down to the very bottom?

try this

Private Const SB_BOTTOM = 7
Private Const EM_LINESCROLL = &HB6

SendMessage txtIn.hWnd, EM_LINESCROLL, byval 0&, SB_BOTTOM

i think you could set the txtIn.hWnd to NULL, but it doesnt really matter.

ooops...dont look at my last sentence.

sorry i meant code