[bb] TextAreaJumpToLine by Red [ 1+ years ago ]

[BlitzBot]

Title : TextAreaJumpToLine
Author : Red
Posted : 1+ years ago

Description : B+ v1.34

Userlibs : userlibs/user32.decls

Code: [Select]

.lib "user32.dll"
SendMessage%(hwnd, msg, wParam, mParam):"SendMessageA"

Example

Code: [Select]

numline=Rand(0,TextAreaLen(txt,2)-1)
TextAreaJumpToLine txt,numline


functions : [/i]

Code :

Code: BlitzBasic

1. [code]
2. Function TextAreaJumpToLine(txt,numline)       
3.         Local EM_LINESCROLL=$B6
4.         Local curY=TextAreaCursor( txt,2 )
5.         Local scrollY=numline-curY
6.         sendmessage(QueryObject(txt,1), EM_LINESCROLL,  0, scrollY)
7. End Function

[/code]

Comments : none...