tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^5: クリップボードに自動保存
投稿日: 2006/03/22(Wed) 13:00
投稿者YAS
それならフォームを最小化して,タスクバーからも消して,それからキャプチャすればよいでしょう。
自分自身以外のアプリケーションをタスクバーから消すのは難儀なので,自分で閉じてください。

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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。