スタイルの最新 NEWS A.S.Manhattaner's

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【2026/02/10 22:20 】 |

スタイルでいってみよう

InStyle [US] September 2010 (単号)

価格： 440円　レビュー評価：レビュー数：

．．．さらに詳しい情報はコチラ

VB2008に関して質問です。現在、フォームの中身を透過させて、その中身をキャプチャするというソフトを作っています。で、他のアクティブなウィンドウの大きさと位置を取得して、その透過部分をそのアクティブウィンドウの位置と大きさに合わせたいのですが、自分の作っているフォームの中にはステータスバーとメニューバーがあるため、 Dim hWnd As IntPtr Dim winRect As RECT hWnd = GetForegroundWindow() winRect = New RECT GetWindowRect(hWnd, winRect) Me.SetDesktopBounds(winRect.left, winRect.top, winRect.right - winRect.left, (winRect.bottom) - winRect.top)以上のようにすると、ステータスバーとメニューバーに一部が被さってしまいます。上記のSetDesuktopBoudsの値に、+50とかいう風に数字を調整すれば自分のWin7環境ではちょうどいいのですが、たとえばクラシックスタイルにしていたり、Windows XPだったりすると、ずれてしまいます。フォームの、ステータスバーとメニューバーを除いた範囲だけを取得できる方法はないのでしょうか。どこをどう調べても、ステータスバーやメニューバーなどを勘案したサンプルや説明はありませんでした。おわかりの方がいらっしゃいましたらアドバイスいただければと思います。

＜補足を受けて＞例えば、Me.Top - PointToScreen(Panel1.Location).Yとかが、求めたい＋値になりませんか？細かい領域の違いなどの考慮が足りないかもしれませんが、方針としては大丈夫かと思うのですが、いかがでしょう。。。。フォームに（ステータスバーとメニューバー設置後）、Dock状態で、Panelなどを置いてみてはいかがでしょうか。フォームの透過をTransparencyKeyで設定していた場合、その色が（空の）Panelの背景色といっしょならそのまま透過されますよね。で、そのPanelのクライアント座標を元に、必要ならPointToScreenを使うなどして必要な座標を計算できませんか。上下左右になにがあっても、これなら、必要な四角形の座標が簡単に取れると思うのですが、いかがでしょうか。

Webサービス by Yahoo! JAPAN

ドイツ車のイメージ。
ドイツ車のイメージ。次の、ドイツのメーカーの車に対してどのようなイメージをお持ちですか? ・ベンツ・BMW ・アウディ教えて下さい。

ビクター、「2Way 装着スタイル」採用の密閉型インナーイヤー ...
ファッションや好みに合わせ、装着方法を選べる“2Way 装着スタイル”の採用と、スポーティでポップな10カラーバリエーションにより、コーディネートの楽しみを広げる密閉型インナーイヤーヘッドホン「HAｰFX16」を11月上旬に発売する。 ...