ウインドウのタイトルバーを点滅させる
ウインドウのタイトルバーを点滅させるサンプルです。
サンプルの実行画面

ソースコード
[FlashWindow.frm]
'FlashWindow=>ウィンドウのキャプションバーを白黒表示(フラッシュ)させる '<引数> 'hWnd: ウィンドウのハンドル 'bInvert: 1の場合、FlashWindow を呼び出すたびにウィンドウがアクティブ、非アクティブになる ' 0の場合、ウィンドウは初期状態になる '@戻り値@ 'アクティブの時 : 1 'アクティブではない時 : 0 Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long 'GetTickCount =>システムが起動してからの経過時間を取得する '<引数> ' なし '@戻り値@ ' ミリ秒 Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Command1_Click() Dim ZZZ As Long Dim YYY As Long For i = 0 To 5 YYY = GetTickCount Do Until GetTickCount() > YYY + 200 Loop ZZZ = FlashWindow(Form1.hWnd, True) Next i End Sub
ソースコード一式のダウンロード
vbapi_flashwindow.zip 976 バイト (976 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | ウインドウを列挙する |
次の記事: | ウインドウアイテムの情報を取得する |
公開日:2015年03月06日
記事NO:00418
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte