Question

VB.net点击按钮后截图，截取被当前窗体挡住的图像作为窗体背景（窗体默认无边框样式）

求代码

Answer 1

    '没办法，需的把窗口隐藏一下，还的隐藏后延迟一下再截图。
    Dim WithEvents Timer1 As New Timer With {.Interval = 30, .Enabled = False}
    Dim Imgrect As Rectangle
    Dim img As Bitmap
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Imgrect = Me.RectangleToScreen(Me.ClientRectangle)
        img = New Bitmap(Imgrect.Width, Imgrect.Height)
        Me.Hide()
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Graphics.FromImage(img).CopyFromScreen(Imgrect.X, Imgrect.Y, 0, 0, Imgrect.Size)
        Me.BackgroundImage = img
        Me.Show()
    End Sub