-
February 21st, 2002, 09:09 AM
#1
Unicode in Form Titles
Hello!
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))
Erase varbyte
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|