VBAでSetTextColorがうまくいかない

質問

EXCELのVBAでユーザーフォームを使ったグラフィック表示のプログラムを
作っているのですが、SetTextColorでテキスト色の設定をしようと
してもうまくいきません。何故か設定しようとする色の値が無視されて
「1304008」が設定されてしまいます。(GetTextColorで確認)
そしてそれ以降何を設定してもこの状態のままです。

何か考えられることがありますでしょうか。
下にそのプログラムを示します。

ちなみにSetBKColorやAngleArcなど他のグラフィック命令は問題なく
動いていてSetTextColorだけがうまくいってない状態です。

'-------------------------------------------------
' ユーザーフォーム用プログラム
'-------------------------------------------------
Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hwndParent As Long, _
ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As Long

Private Declare Function GetDC Lib "user32" ( _
ByVal hWnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hdc As Long) As Long

Private Declare Function SetTextColor Lib "gdi32" _
(ByVal hdc As Long, crColor As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc&, ByVal x&, _
ByVal y&, ByVal lpString$, ByVal nCount&) As Long

Dim hWnd As Long
Dim hdc As Long

Public Sub UserForm_Activate()
DoEvents
hWnd = FindWindowEx(GetActiveWindow, 0, "F3 Server 60000000", "")
hdc = GetDC(hWnd)
ret = SetTextColor(hdc, RGB(255, 0, 0))
ret = TextOut(hdc, 0, 0, "abc", 3)
Call ReleaseDC(hWnd, hdc)
End Sub
'-------------------------------------------------

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

crColorが値渡し(ByVal)になっていないのが原因だと思います。

Private Declare Function SetTextColor Lib "gdi32" _
(ByVal hdc As Long, crColor As Long) As Long

　　↓

Private Declare Function SetTextColor Lib "gdi32" _
(ByVal hdc As Long, ByVal crColor As Long) As Long

このようにAPI宣言を書き換えて試してみてください。

お礼

うおおおおおおおお！
回答を見た瞬間唸ってしまいました。
この一文はどこかからコピペってきたのですが、
それが間違えてるとは・・・さんざんプログラム(あくまで本文のみ)
を見直してあらゆることを試してもわからず１日潰してしまいました。
プログラマの「合ってるはずだ」は厳禁なのに、無意識にやって
しまってたんですね。

ありがとうございました！