Have a sendmessage problem
Posted: Wed Mar 26, 2014 4:19 am
Code: Select all
txt$="Hello World!"
For i = 1 To Len(txt$)
SendMessage_(456321,#WM_CHAR,Mid(txt$,i),0)
Next
thanks

http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
txt$="Hello World!"
For i = 1 To Len(txt$)
SendMessage_(456321,#WM_CHAR,Mid(txt$,i),0)
Next
Code: Select all
OpenWindow(0,0,0,320,240,"", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(0,100,100,100,20,"")
txt$="Hello World!"
For i = 1 To Len(txt$)
SendMessage_(GadgetID(0),#WM_CHAR,Asc(Mid(txt$,i)),0)
Next
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow