Beim Commandlink der Notetext wird falsch dargestellt

Betreff	Beim Commandlink der Notetext wird falsch dargestellt.
Von	=?iso-8859-1?Q?George_L=F6wer?=
Datum	15.10.2009 12:52:21

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

Betreff	Re: Beim Commandlink der Notetext wird falsch dargestellt.
Von	Timo Kunze
Datum	16.10.2009 19:00:28

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."

Betreff	Re: Beim Commandlink der Notetext wird falsch dargestellt.
Von	=?utf-8?Q?George_L=C3=B6wer?=
Datum	19.10.2009 16:15:49

Danke Timo, hat wunderbar geklappt.

Gruß George Löwer

"Timo Kunze" schrieb im Newsbeitrag
news:#6cEtIoTKHA.504@TK2MSFTNGP06.phx.gbl...
> 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."