Alguien me pudiera ayudar en como pudiera cambiar la imagen de fondo de mi from al hacer clip en el. Este es el código que tengo.
Saludos
Código (vbnet) [Seleccionar]
Public Class Form1
Dim MOVIENDO As Boolean = False
Dim IMAGEN As Image
Dim MIX As Integer
Dim MIY As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
IMAGEN = Me.BackgroundImage
PINTA() 'COMENTARIOS EN EL PROCEDIMIENTO
End Sub
Public Sub PINTA()
Me.Opacity = 0 'FORM TRANSPARENTE
Threading.Thread.Sleep(100) 'PARA ASEGURAR QUE SEA TRANSPARENTE
'CREA UNA IMAGEN DE LO QUE HAY DEBAJO DEL FORM COMO FONDO
Dim BMP As Bitmap = New Bitmap(IMAGEN.Width, IMAGEN.Height)
Dim DIBUJO As Graphics = Graphics.FromImage(BMP)
DIBUJO.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Screen.PrimaryScreen.Bounds.Size)
'AÑADE NUESTRA IMAGEN AL FONDO
DIBUJO.DrawImage(IMAGEN, 0, 0, BMP.Width, BMP.Height)
Me.BackgroundImage = BMP 'PONE EL MONTAJE COMO IMAGEN DEL FORM
Me.Opacity = 1 'DEVUELVE LA OPACIDAD NORMAL.
End Sub
Private Sub LabelMOVER_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
'MEMORIZA LA POSICION DE LA ETIQUETA
MIX = MousePosition.X - Me.Location.X
MIY = MousePosition.Y - Me.Location.Y
Me.BackgroundImage = IMAGEN 'ELIMINA EL FONDO DE LA IMAGEN
Me.Opacity = 0.1 'PARA QUE SE VEA MENOS EL RECTANGULO DEL FORM
MOVIENDO = True 'INICIA EL MOVIMIENTO
End Sub
Saludos