Forums Neueste Beiträge
 

Beim Commandlink der Notetext wird falsch dargestellt.

15/10/2009 - 12:52 von George Löwer | Report spam
Hi ihr,

ich habe folgendes Problem.

ich erstelle einen Button mit dem Style BS_Commandlink. So weit so gut, das
klappt, wird richtig angezeigt.

Nun möchte ich über BCM_SetNote den Notetext des Buttons setzen, aber dieser
Notetext wird immer nur in wahrscheinlich Chinesischen Schriftzeichen
dargestellt.
Was làuft hier falsch. Bitte um Hilfe.



Private Declare Function SendMessageString Lib "user32" Alias
"SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As
Long, _
ByVal wParam As Long, ByVal lParam As
String) As Long

Private Const BCM_FIRST As Long = &H1600
Private Const BCM_SetNote As Long = BCM_FIRST + &H9

Dim StrNote As String
dim lStil as long
StrNote = "Note"
lStil = WS_CHILD Or WS_VISIBLE Or BS_COMMANDLINK

button = CreateWindowEx(0, BUTTON_CLASS, "TESTBUTTON", lStil, Left, Top,
Width, Height, UserControl.hWnd, 0, App.hInstance, ByVal 0)

SendMessageString button.hwnd, BCM_SetNote, 0, Note


Gruß George Löwer
 

Lesen sie die antworten

#1 Timo Kunze
16/10/2009 - 19:00 | Warnen spam
George Löwer schrieb:
Nun möchte ich über BCM_SetNote den Notetext des Buttons setzen, aber
dieser Notetext wird immer nur in wahrscheinlich Chinesischen
Schriftzeichen dargestellt.
Was làuft hier falsch. Bitte um Hilfe.


Microsoft setzt bei der Erweiterung des Win32-API voll auf Unicode. Du
musst SendMessageW verwenden und einen Unicode-String senden oder am
einfachsten StrPtr("Dein Text").

Timo
www.TimoSoft-Software.de - Unicode controls for VB6
"Those who sacrifice freedom for safety deserve neither."
"Demokratie ist per Definition unsicher. Ihr Schutz entsteht aus der
Überzeugung, dass die demokratischen Kràfte überwiegen und sich – auf
demokratischem Wege – durchsetzen."

Ähnliche fragen