掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ピクチャボックスコントロールのＭＯＶＥメソッドで正確に移動するには？ (ID：82392)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
クリップボードを使わずにアクティブウィンドウをキャプチャしたいのですが、 下記の様にすればウマクいきます。 しかし、Screen.TwipsPerPixelX * 4とScreen.TwipsPerPixelY * 4を 増分してピクチャボックスを移動しないと、少し小さめの画像しかキャプチャ 出来ないのです。原因がわかりません。又、この方法で正しいのでしょうか？ Call GetWindowRect(g_lng_WH, g_udt_RECT) If SetForegroundWindow(g_lngWH) = 1 Then '最前面表示成功なら If IsIconic(g_lng_WH) = 0 Then '非アイコン表示なら Picture1.Move _ g_udt_RECT.Left * Screen.TwipsPerPixelX, _ g_udt_RECT.Top * Screen.TwipsPerPixelY, _ (g_udt_RECT.Right - g_udt_RECT.Left) * Screen.TwipsPerPixelX + Screen.TwipsPerPixelX * 4, _ (g_udt_RECT.Bottom - g_udt_RECT.Top) * Screen.TwipsPerPixelY + Screen.TwipsPerPixelY * 4 BitBlt Picture1.hDC, _ 0, _ 0, _ (g_udt_RECT.Right - g_udt_RECT.Left), _ (g_udt_RECT.Bottom - g_udt_RECT.Top), _ GetWindowDC(g_lngWH), _ 0, _ 0, vbSrcCopy Picture1.Refresh '強制更新 End If End If
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.