Right. How would you do this, using dwRefData?Josep Roca wrote:I make good use of the dwRefData parameter.
Code: Select all
#define GWL_USERDATA -21 ' missing in Windows.bi
Dim As Integer charcount=GetWindowLong(hWnd, GWL_USERDATA)
charcount+=1
SetWindowLong(hWnd, GWL_USERDATA, charcount)
Dim chars As zstring*100=Str(charcount)+" characters typed"
SendMessageA(hStatic, WM_SETTEXT, 0, @chars)