Gruss,

Zardoz

Gruss,

Zardoz

 
        Dim bmp_in As New Bitmap("C:\Hintergrund\....")  'Bilddatei-Pfad
        Dim bmp As New Bitmap(Me.Width, Me.Height, _
        Imaging.PixelFormat.Format24bppRgb)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.DrawImage(bmp_in, 0, 0, Me.Width, Me.Height)
        g.Dispose()
        Me.BackgroundImage = bmp

Public Class Form1
 
    Dim x, y As Integer
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        x = MousePosition.X - Me.Location.X
        y = MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location = New Point(MousePosition.X - x, MousePosition.Y - y)
        End If
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
          Dim path As New System.Drawing.Drawing2D.GraphicsPath
        path.AddEllipse(New Rectangle(0, 0, 205, 205))
        Me.Region = New Region(path)
    End Sub
 
End Class

Zitat:

Dann sag doch gleich dass Du sowas machen willst. Eine Möglichkeit: Man kopiert den aktuellen Bildschirm, lädt ein Formular und lädt das Bild dort hinein. Dann malst Du Deinen Ladebildschirm darüber.