預覽桌面與截圖程序VB.net

Question

我只是想知道。我該如何調整我的代碼

 Dim Size As Rectangle 
    Dim Capt As System.Drawing.Bitmap 
    Dim Pic As Graphics 

    Do While 1 
     Size = Form2.Bounds 
     Capt = New System.Drawing.Bitmap(Size.Width, Size.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb) 
     Pic = Graphics.FromImage(Capt) 
     Pic.CopyFromScreen(Size.X, Size.Y, 0, 0, Size.Size, CopyPixelOperation.MergeCopy) 
     PictureBox1.Image = Capt 
    Loop 

要從表單看到的圖片顯示。 一個更清晰的理解是 http://i.stack.imgur.com/euJmM.png

我有兩種形式，一種具有圖片框，另一種是透明的形式，我想在圖片框中顯示的是第二種形式所看到的，通過它的透明部分（燦只是整個表單邊界和所有）。然後繼續將它保存到一個文件中，我認爲我的代碼會自動更新到第二個窗體已經在屏幕上顯示的位置，並自動填充圖片框，但顯然不是。

Answer 1

這是您的一個可能的解決方案，如果我正確地理解了您的話，這會達到您想要的效果。

，如果您有任何疑問，請隨時問：

Public Class Form2 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Me.BackColor = Color.Magenta 
     Me.TransparencyKey = Color.Magenta 
    End Sub 
End Class 

Imports System.Threading 

Public Class Form1 
    Private ScreenShot As Thread 
    Dim F2 As Form2 
    Private Sub Capt_Click(sender As Object, e As EventArgs) Handles Capt.Click 
     CheckForIllegalCrossThreadCalls = False 
     F2 = New Form2 
     F2.Show() 
     ScreenShot = New Thread(AddressOf RefreshView) 
     ScreenShot.IsBackground = True 
     ScreenShot.Start() 
    End Sub 

    Private Sub RefreshView() 
     Dim Size As Rectangle 
     Dim Capt As System.Drawing.Bitmap 
     Dim Pic As Graphics 
     Do While 1 
      Size = F2.RectangleToScreen(F2.ClientRectangle) 
      Capt = New System.Drawing.Bitmap(Size.Width, Size.Height, System.Drawing.Imaging.PixelFormat.Format24bppRgb) 
      Pic = Graphics.FromImage(Capt) 
      Dim boundsLeft = Size.X 
      Dim boundsTop = Size.Y 
      Pic.CopyFromScreen(boundsLeft, boundsTop, 0, 0, Size.Size, CopyPixelOperation.MergeCopy) 
      pictureBox1.Image = Capt 
     Loop 
    End Sub 
End Class