[OSのVer]：WindowsXP SP2　　[VBのVer]：VB 2005
はじめまして。現在VB 2005 EXPRESSの勉強中です。

教えていただきたいことは、チェックボックスをＴＲＵＥにした場合に自動的にディスクトップ画面
の
キャプチャーをクリップボードへ保存することが可能かどうかです。

これが可能であればいちいち
ＶＢの実行画面　−＞　ディスクトップ表示　−＞　PrintScreen　−＞　ＶＢの実行画面とする必要
がなくなり手間が省けると思い質問いたしました。

宜しくお願いします。

細かい事ですが、ディスクトップ(disc-top)ではなく、デスクトップ(desktop)ですよね。

> 教えていただきたいことは、チェックボックスをＴＲＵＥにした場合に自動的にディスクトップ画面
> の
> キャプチャーをクリップボードへ保存することが可能かどうかです。

Dim ScreenSize As Size = Screen.PrimaryScreen.Bounds.Size
Using Bmp As New Bitmap(ScreenSize.Width, ScreenSize.Height)
  Using G As Graphics = Graphics.FromImage(Bmp)
    G.CopyFromScreen(0, 0, 0, 0, ScreenSize)
    Clipboard.SetImage(Bmp)
  End Using
End Using

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
魔界の仮面弁士さん。早速のレスありがとうございます。

> 細かい事ですが、ディスクトップ(disc-top)ではなく、デスクトップ(desktop)ですよね。
ご指摘ありがとうございます。勘違いしておりました。

>Dim ScreenSize As Size = Screen.PrimaryScreen.Bounds.Size
>Using Bmp As New Bitmap(ScreenSize.Width, ScreenSize.Height)
>  Using G As Graphics = Graphics.FromImage(Bmp)
>    G.CopyFromScreen(0, 0, 0, 0, ScreenSize)
>    Clipboard.SetImage(Bmp)
>  End Using
>End Using
早速コピペし実行してみましたが、デスクトップ画面ではなく現在表示されている画面のハードコピー
が
クリップボードに保存されてしまいました。Usingの使用方法が分かっていませんので勉強しますが、な
んとかチェックボックスをクリックした時に自動でデスクトップ画面をキャプチャーできないでしょう
か？

あぅ，書いている間に魔界の仮面弁士さんが同じことをお書きになられました...

魔界の仮面弁士さんと同じ内容なので必要ないのですが，ちょっと前に自分でもまとめましたので参考
にしてください。

hhttp://homepage1.nifty.com/yasunari/VB/VB2005/ScreenCapture.htm

ＹＡＳさん。レスありがとうございます。
> hhttp://homepage1.nifty.com/yasunari/VB/VB2005/ScreenCapture.htm
見させていただきました。
ここで書かれていますプライマリスクリーンとは現在ディスプレー上に表示されているもののことをさ
し
ているのでしょうか？やはりディスプレイ上に表示されていないデスクトップ画面のハードコピーはで
き
ないのでしょうか？
できないのであれば以下のようにはできませんか？
　　　１．ＶＢフォームからチェックボックスにチェック
　　　２．画面をデスクトップ画面に切替
　　　３．PRINTSCREEN
　　　４．ＶＢフォーム表示
な具合です。

> ているのでしょうか？やはりディスプレイ上に表示されていないデスクトップ画面のハードコピーは

申し訳ありませんが，「ディスプレイ上に表示されていないデスクトップ画面」の意味がわかりませ
ん。
「デスクトップ画面」というもののＰＯＤさんにとっての定義を詳しく説明して頂けますか？

分かりにくくて申し訳ありません。
デスクトップ画面＝ＰＣ起動後の初期画面
ディスプレイ上の画面＝現在、ディスプレイ上に表示されている状態（例えばOUTLOOKが全画面で表示さ
れている）。
です。

それならフォームを最小化して，タスクバーからも消して，それからキャプチャすればよいでしょう。
自分自身以外のアプリケーションをタスクバーから消すのは難儀なので，自分で閉じてください。

Option Strict On
Public Class Form1

    Private Sub Form1_KeyDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Control = True And e.KeyCode = Keys.C Then
            Dim WndState As FormWindowState = Me.WindowState
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
            Using Image As Image = New Bitmap(Screen.PrimaryScreen.Bounds.Width, _
                                              Screen.PrimaryScreen.Bounds.Height)
                Using Graph As Graphics = Graphics.FromImage(Image)
                    Graph.CopyFromScreen(New Point(0, 0), New Point(0, 0), _
                                         Screen.PrimaryScreen.Bounds.Size)
                End Using
                Clipboard.SetImage(Image)
                Me.WindowState = WndState
                Me.ShowInTaskbar = True
                Me.BackgroundImage = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
                Using Graph As Graphics = Graphics.FromImage(Me.BackgroundImage)
                    Graph.InterpolationMode = _
                        Drawing2D.InterpolationMode.HighQualityBicubic
                    Graph.DrawImage(Image, New Rectangle(New Point(0, 0), _
                                    Me.BackgroundImage.Size))
                End Using
            End Using
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

End Class

後は自分自身以外のアプリケーションタスクを最小化するだけですね。
がんばってやってみます。

ありがとうございました。

> 後は自分自身以外のアプリケーションタスクを最小化するだけですね。
> がんばってやってみます。

私が「自分自身以外のアプリケーションをタスクバーから消すのは難儀なので，自分で閉じてくださ
い。」と書いたのは「自分で考えろ」という意味ではなくて，手動でマウスなりキーボードなりを操作
して最小化した方が速いのでは？と言う意味ですよ。

もちろん，挑戦なさると言うのを止めはしませんが，プログラムにするのはかなり面倒だと思います。

YASさんいろいろ調べてみた結果、CreateObject("Shell.Application").ToggleDesktop()とい
う１文でデ
スクトップ画面の表示ができるようです。但し、完全にデスクトップが表示される前にコピーがとられ
る
ようで毎回タイミングによりクリップボードにコピーされる画像が違ってしまいます。CreateObject
("Shell.Application").ToggleDesktop()の後にウェイトをかませる。もしくは完全にデスク
トップが表
示されるまで後の処理を行わないようにできればいいのですが......
なにぶんあまり経験がありませんのでこのようにしたらプログラミングがもっとすっきりする等のアド
バ
イスがあればお願いします。


    Private Sub CheckBox5_MouseClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles CheckBox5.MouseClick

        If CheckBox5.Checked = True Then

            Dim WndState As FormWindowState = Me.WindowState
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False

            CreateObject("Shell.Application").ToggleDesktop()

            Dim ScreenSize As Size = Screen.PrimaryScreen.Bounds.Size
            Using Bmp As New Bitmap(ScreenSize.Width, ScreenSize.Height)
                Using G As Graphics = Graphics.FromImage(Bmp)
                    G.CopyFromScreen(0, 0, 0, 0, ScreenSize)
                    Clipboard.SetImage(Bmp)
                End Using
            End Using

            Dim iData As IDataObject = Clipboard.GetDataObject()
            'クリップボードにBMPファイルがあれば
            'WorkCopyPath="C:\WINDOWS\TEMP\DiskTop.jpeg"に保存
            If iData.GetDataPresent(DataFormats.Bitmap) Then
                Dim img As System.Drawing.Image = iData.GetData(DataFormats.Bitmap, True)
                'Jpeg 形式で保存
                img.Save(WorkCopyPath, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If

            Me.WindowState = WndState
            Me.ShowInTaskbar = True

        End If

    End Sub

ツリーが長くなってきたので見やすくなるよう，初めの投稿に返信しました。

> ここで書かれていますプライマリスクリーンとは現在ディスプレー上に表示されているもののことを

プライマリディスプレイというのは，例えばデュアルディスプレイ（２台のディスプレイを同時に使
う）のときに，「主」になる方のディスプレイのことです。Print-Screenキーだとプライマリディス
プレイとセカンダリディスプレイが合体した画像がクリップボードにコピーされます。

>２．画面をデスクトップ画面に切替

フォームを最小化するという意味でしょうか？

> > ここで書かれていますプライマリスクリーンとは現在ディスプレー上に表示されているものの
ことを
>
> プライマリディスプレイというのは，例えばデュアルディスプレイ（２台のディスプレイを同時に
使
> う）のときに，「主」になる方のディスプレイのことです。Print-Screenキーだとプライマリディ
ス
> プレイとセカンダリディスプレイが合体した画像がクリップボードにコピーされます。
シングルディスプレイです。

>
> >２．画面をデスクトップ画面に切替
>
> フォームを最小化するという意味でしょうか？
クイックランチャーの”デスクトップの表示”ボタンを押した状態にすることです。

うまく説明できなくて申し訳ありませんが宜しくお願いします。

ツリーが長くなってきたので，見やすくなるよう，最初の投稿に返信をします。

>CreateObject("Shell.Application").ToggleDesktop()

おぉ！すばらしい。いいやり方を見つけになりましたね。私は知りませんでした。
ただ，CreateObjectということはこれはCOMオブジェクトだと思いますし，Option Strict On
にすると遅延バインディングが禁止になりますので，次のようにするとよいと思います。

            Dim Obj As Object = Nothing
            Try
                Obj = CreateObject("Shell.Application")
                Obj.GetType.InvokeMember("ToggleDesktop", _
                    Reflection.BindingFlags.InvokeMethod, Nothing, Obj, Nothing)
            Catch ex As Exception
                If Obj IsNot Nothing Then Marshal.ReleaseComObject(Obj)
            End Try

これでCOMオブジェクトが解放され，かつOption Strict Onでもエラーになりません。

あとは，ウィンドウが全部最小化されたことを判断すればよいのでしょうが，申し訳ありませんが，
私にはわかりません。
下のような非常に長めのウエイトをかませる位しか思いつきません。

System.Threading.Thread.Sleep(3000)

>Dim iData As IDataObject = Clipboard.GetDataObject()
>'クリップボードにBMPファイルがあれば
>'WorkCopyPath="C:\WINDOWS\TEMP\DiskTop.jpeg"に保存
>If iData.GetDataPresent(DataFormats.Bitmap) Then
>Dim img As System.Drawing.Image = iData.GetData(DataFormats.Bitmap, True)
>'Jpeg 形式で保存
>img.Save(WorkCopyPath, System.Drawing.Imaging.ImageFormat.Jpeg)

ここの部分の意味がよくわかりませんが，ファイルに保存するだけならクリップボードに
コピーなどせず，キャプチャした直後にImageオブジェクトから直接保存したらよいのでは？

> ただ，CreateObjectということはこれはCOMオブジェクトだと思いますし，Option Strict On
> にすると遅延バインディングが禁止になりますので，次のようにするとよいと思います。

Type 経由でも良いですが、VB.NET の場合は、CallByName を使った方が楽かも。

魔界の仮面弁士さん，ご助言ありがとうございます。

> Type 経由でも良いですが、VB.NET の場合は、CallByName を使った方が楽かも。

前に，遅延バインディング，Type.InvokeMemberメソッド，CallByName関数の３つの処理スピードを
簡単に計測したところ，微妙な差でしたが，

１ Type.InvokeMemberメソッド
２ 遅延バインディング
３ CallByName関数

の順でしたので，Type.InvokeMemberメソッドを好んで使っておりました。
しかし，確かにCallByName関数の方が手軽ですね。

YASさん、魔界の仮面弁士さんありがとうございます。
現在はＦＯＲ〜ＮＥＸＴを使用しウェイトを設定しておりますが、CallByName関数について調べて使用
し
てみたいと思います。いろいろとありがとうございました。又、何か分からないことがありましたら宜
し
くお願いします。

> 現在はＦＯＲ〜ＮＥＸＴを使用しウェイトを設定しておりますが、CallByName関数について調べて
使

ループの中身にもよりますが，For-Nextでは処理能力の違う機械で実行したときに待ち時間が変わって
しまって期待した動作にならなくなりませんか？

たびたびありがとうございます。
> ループの中身にもよりますが，For-Nextでは処理能力の違う機械で実行したときに待ち時間が変わ
って
> しまって期待した動作にならなくなりませんか？
確かにそのとうりでした。

今、Visual Studio 2005のHELPでCallByName 関数を見ているのですがいまいち分かりません。
相変わらずマイクロソフトのHELPは初心者には分かりにくいようで.....

> 今、Visual Studio 2005のHELPでCallByName 関数を見ているのですがいまいち分かりません。
> 相変わらずマイクロソフトのHELPは初心者には分かりにくいようで.....

Dim Obj As Object = CreateObject("Shell.Application")

とあったときに，

遅延バインディング：Obj.ToggleDesktop()

CallByName関数：CallByName(Obj, "ToggleDesktop", CallType.Method, Nothing)

Type.InvokeMemberメソッド：Obj.GetType.InvokeMember("ToggleDesktop", _
                           Reflection.BindingFlags.InvokeMethod, Nothing, Obj, Nothing)

の３つが結果だけをみればほぼ等価に機能します。

もちろん，ObjはCOMオブジェクトなので使い終わったら解放する必要があります。
        
        Dim Obj As Object = Nothing
        Try
            Obj = CreateObject("Shell.Application")
            CallByName(Obj, "ToggleDesktop", CallType.Method, Nothing)
        Catch ex As Exception
            If Obj IsNot Nothing Then Marshal.ReleaseComObject(Obj)
        End Try

３種類全て試してみましたが、完全にデスクトップ画面が表示される前にハードコピーがされてしまいま
す。私のＰＣの処理能力が遅い為、複数のアプリケーションが立ち上がっている状態で実行すると処理
が
追いつかないようですので”System.Threading.Thread.Sleep(3000)”で対応したいと思います。

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　
> ３種類全て試してみましたが、完全にデスクトップ画面が表示される前にハードコピーがされてしま
いま
> す。私のＰＣの処理能力が遅い為、複数のアプリケーションが立ち上がっている状態で実行すると処
理
> が
> 追いつかないようですので”System.Threading.Thread.Sleep(3000)”で対応したいと思います。

？
CallByNameは同期をとる関数ではなくて，単にメソッドを名前で指定して実行する関数ですよ。
「Option Strict Onで動作するようなコードにするにはどうしたらよいか」ということを説明したの
です。

デスクトップのウィンドウが全部最小化したかどうか調べるには，見えているウィンドウを列挙して
そのウィンドウの状態を調べる必要があります。（デスクトップそのものやIMEを除いて）
しかも，最小化中なのか最小化が完了したのかなどの判別も必要なので，やはり簡単にはできないと
思います。

>CallByNameは同期をとる関数ではなくて，単にメソッドを名前で指定して実行する関数ですよ。
>「Option Strict Onで動作するようなコードにするにはどうしたらよいか」ということを説明した
の
>です。
そのようですね。

>デスクトップのウィンドウが全部最小化したかどうか調べるには，見えているウィンドウを列挙し
て
>そのウィンドウの状態を調べる必要があります。（デスクトップそのものやIMEを除いて）
>しかも，最小化中なのか最小化が完了したのかなどの判別も必要なので，やはり簡単にはできない
と
>思います。
やはりむずかしそうですね。十分、ウェイト時間をとって対応します。

重ね重ねありがとうございました。