ＶＢ．ＮＥＴのフォーム画面をJpgファイルで保存するには？ (ID:89239)

名前

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

本文 もう質問者も見ていないと思いますが、気になったので確認してみました。 誤差が出ていた件、極めて簡単なことでした。 先ずWidth方向ですが、(ClientSize.Width-Size.Width)/2で 左側のFormの淵からClientSizeの淵までの長さが出ます。（実際はマイナス値) 縦方向は、ClientSize.Heigh-Size.Heightでタスクバー＋２倍の淵までの長さが出ます。 従ってその値から淵までの長さを引くとタスクバーと淵までの長さが出ます。 この２つの数値で縦横のオフセットをかけます。 最終的なコードは 一番初めのコードの BitBlt(Hdc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, Hdc1, 0, 0, SRCCOPY) を次のように書き換えます。 Dim h, w As Integer w = (Me.ClientSize.Width - Me.Size.Width) / 2 h = Me.ClientSize.Height - Me.Height - w BitBlt(Hdc2, 0, 0, Me.Size.Width, Me.Size.Height, Hdc1, w, h, SRCCOPY)