透明なウィンドウを作る

実行画面

＜スクリーンキャプチャの応用＞

宣 言

(Private) Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

※Privateは必要に応じて削除またはPublicに変更

引 数 説 明

KeyNumber	Byte	仮想キーコード
bScan	Byte	KeyNumberのOEMスキャンコード（今回は１）

サ ン プ ル プ ロ グ ラ ム

まずフォームの「BorderStyle」プロパティを「０−なし」に指定します。そしてフォームにテキストボックス及びピクチャーボックスを配置し、コードを張りつけて実行します。すると、テキストボックスだけが表示されます。

動作確認：Visual Basic 5.0,Windows98

備 考

これはクリップボードを通じてスクリーンキャプチャを行っているので、一回フォームを消去してからでないと後ろのものがキャプチャできないので不便です。またアクティブウィンドウが変化すると変になります。そこで、「CreateDC+BitBlt」で定期的に同様の動作をさせると便利です。