ab.com コミュニティ

ありがとうございます。
本当に勉強になります。
・・・なんか、デバイスコンテキスト3でまたスレッドを立てそうな気がしますが･･･
そのときはまたよろしく御願いします。

SetBkModeとSetBkColorで背景色の設定を変えることが出来ます。

＃aaaはString型なので、TextOut第4引数はStrPtrを通したほうがいい気がします。第五引数はlstrlenではなくLenを使いましょう。

Dim hDC As HDC
Dim aaa As String
aaa="test!"

hDC=GetDC(hMainWnd)

SetTextColor(hDC,RGB(255,0,0))

TextOut(hDC,30,50,aaa,lstrlen(aaa))

DeleteDC(hDC)

同じような内容での投稿すみません。

最近、やっとデバイスコンテキストが理解でき始めました。
････まだまだ分からないことだらけですが･･･

今回、以下のようなプログラムを書いてみたのですが･･･

[code]
Dim hDC As HDC
Dim aaa As String
aaa="test!"

hDC=GetDC(hMainWnd)

SetTextColor(hDC,RGB(255,0,0))

TextOut(hDC,30,50,aaa,lstrlen(aaa))

DeleteDC(hDC)
[/code]

文字色はちゃんと赤色になるのですが、背景が真っ白になってしまいます。
どうすれば修正できるのでしょうか。

すみませんが、ご教授願います････