LB Booster
Programming >> BASIC code examples >> Textbox Character Limit
http://lbb.conforums.com/index.cgi?board=code&action=display&num=1464970838
Textbox Character Limit
Post by Jack Kelly on Jun 3rd, 2016, 4:20pm

The following code snippet was posted by Chris Iverson on the LB forum, for those who haven't seen it there. I changed the function def to a sub. It works especially well for field values in a Cheetah dbf...
Code:
NoMainWin
textbox #m.tb, 10, 10, 100, 25
open "Textbox test" for window as #m
#m, "trapclose [quit]"
call SetTextLimit hwnd(#m.tb), 5
wait

[quit]
close #m
end

sub SetTextLimit TextBoxHwnd, Limit
    CallDll #user32, "SendMessageA",_
                     TextBoxHwnd as ulong,_
                     _EM_SETLIMITTEXT as long,_
                     Limit as long,_
                     0 as long,_
                     SetTextLimit as long
end sub