ピクチャボックスを点滅(VB)

説明:

ピクチャボックスに描画されているイメージを点滅させる。

キーワード:

InvertRect, PostMessage, Sleep

サンプルコード:

Private Sub Command1_Click()

    Dim r As RECT
    Dim I As Long
    
    Picture1.ScaleMode = vbPixels
    
    r.left = 0
    r.top = 0
    r.right = Picture1.Width
    r.bottom = Picture1.Height
    
    For I = 1 To 6
        InvertRect Picture1.hDC, r
        GdiFlush
        
        Sleep 100
    Next

End Sub

(original text:1999/06/14 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。