February 21st, 2002, 08:09 AM
Unicode in Form Titles
Does someone know how i can get Unicode Character Strings into a Titlebar from a Form?
The Unicode-String is successfully loaded from a SQL-Database, but when i try to set the Caption of that Form like
me.caption = somestring
i receive only some "???".
I also tried to use a API-Function called "SetWindowTextW" but i only get the same result.
Would be nice if someone helps out or has an idea to try.
public Declare Function SetWindowTextW Lib "user32" (byval hwnd as Long, byval lpString as string) as Long
public Sub SetWindowText(hwnd as Long, VarStr as string)
Dim varbyte() as Byte
Dim cch as Long
If VarStr = "" then Exit Sub
cch = LenB(VarStr) + 2
ReDim varbyte(0 to cch)
CopyMemory varbyte(0), byval StrPtr(VarStr), cch
SetWindowTextW hwnd, VarPtr(varbyte(0))
Click Here to Expand Forum to Full Width