AnimateWindowって…。 (ID:75088)

名前

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

本文 っていうか、戻り値が0だと失敗なのでは・・・。 ヘッダーよりもMSDNを見ましょう。 ちなみに、Win98,NT5.0以上ですがそれはクリアしてますよね？ サンプルという程のコードではありませんが 動作確認に利用したコードを書いておきます。 実行結果はフラグを変えて色々試してみてください。 Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean Private Const AW_ACTIVATE = &H20000 Private Const AW_HOR_POSITIVE = &H1 Private Sub Form_Load() Me.Caption = AnimateWindow(Me.hwnd, 2000, AW_ACTIVATE Or AW_HOR_POSITIVE) End Sub