预览桌面与截图程序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