Danke für die Hilfe

Gruß Christian

Public Class frmOpacity
 
    Private Sub frmOpacity_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Opacity = 0.01
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.Size = New Size(100, 100)
        Me.Location = New Point(0, 0)
    End Sub
 
 
    Private Sub frmOpacity_MouseClick(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
 
        MsgBox("Das Formular ist von der Maus gebissen worden")
    End Sub
End Class

Zitat:

MsgBox("Das Formular ist von der Maus gebissen worden")

EALA FREYA FRESENA

Danke für die Hilfe

Gruß Christian

Danke für die Hilfe

Gruß Christian

EALA FREYA FRESENA

Public Class frmCopyScreen
 
    Dim WithEvents pb As New PictureBox With {.Parent = Me}
 
    Dim bmp As Bitmap
 
    Private Sub frmCopyScreen_Click(sender As Object, _
        e As System.EventArgs) Handles pb.Click
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.MaximizeBox = False
        pb.Location = New Point(0, 0)
        pb.Size = Me.ClientRectangle.Size
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_Move(sender As Object, _
        e As System.EventArgs) Handles Me.Move
        copyscreen()
    End Sub
 
    Private Sub frmCopyScreen_ResizeEnd(sender As Object, _
        e As System.EventArgs) Handles Me.ResizeEnd
        pb.Size = Me.ClientRectangle.Size
        copyscreen()
    End Sub
 
    Private Sub copyscreen()
 
        If bmp IsNot Nothing Then
            bmp.Dispose() : bmp = Nothing
        End If
        bmp = New Bitmap(pb.Width, pb.Height)
        Using G As Graphics = Graphics.FromImage(bmp)
            Me.Visible = False
            Threading.Thread.Sleep(100)
            G.CopyFromScreen _
            (PointToScreen(Me.ClientRectangle.Location), _
             New Point(0, 0), pb.Size)
            Me.Visible = True
            pb.Image = bmp
        End Using
    End Sub
End Class

Danke für die Hilfe

Gruß Christian

Danke für die Hilfe

Gruß Christian