GDIでの円 (ID:101194)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

後は、DrawText(Ex) などという API もありますね。

> 文字が長方形で塗りつぶされてしまいます。

SetBkMode で、フォントの背景を透過させていますか?

'---------
Option Explicit

Private Const OPAQUE As Long = 2
Private Const TRANSPARENT As Long = 1

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

Private Declare Function SetBkColor Lib "gdi32" _
   (ByVal hdc As OLE_HANDLE, _
    ByVal crColor As OLE_COLOR) As Long

Private Declare Function TextOutW Lib "gdi32" _
   (ByVal hdc As OLE_HANDLE, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal lpString As Long, _
    ByVal nCount As Long) As Long

Private Sub Command1_Click()
    Set Picture1.Picture = LoadPicture("01.bmp")

Dim s As String
    s = ChrW(&H4F60) & ChrW(&H597D)

Picture1.ForeColor = vbRed
    Picture1.Font.Size = 32
    
    If Check1.Value = vbChecked Then
        SetBkMode Picture1.hdc, OPAQUE
        'SetBkColor Picture1.hdc, vbGreen
    Else
        SetBkMode Picture1.hdc, TRANSPARENT
    End If
    TextOutW Picture1.hdc, 0, 0, StrPtr(s), Len(s)
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る