Opaidad.

[REHome]

Hola:

Teniendo un Form1, tengo la opacidad de la ficha al 100% (Normal, el que viene predeterminado).

Al coger la ficha con el ratón y desplazarla, quiero que se ponga de opacidad con una transparecia del 75%.

Al soltar el ratón, que recupere el 100%




Se que se hace con eventos, pero no cual de ellos.


Espero vuestra ayuda.

[[nightynvid]]

pues por lo general seria usando los eventos mouseup, mousedown y move del formulario pero ya entrados en tema tambien puede ser de esta manera.

Public Class Form1
    Dim bStartDrag As Boolean= False

    Private Sub Form1_MouseCaptureChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseCaptureChanged
        bStartDrag = Not bStartDrag
        If Not bStartDrag Then Me.Opacity = 1
    End Sub

    Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
        If bStartDrag Then Me.Opacity = 0.5
    End Sub
End Class

no me regañen por ponerlo en vb, pero es que en mi trabajo no tengo un delphi a la mano

[REHome]

No pasa nada, yo lo quería en Visual C#.


Voy a intentarlo sacar.

Gracias.

[[nightynvid]]

para los que quieran conocer al hermanito mayor de vb

    public partial class Form1 : Form
    {
        bool bStartDrag = false;
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_MouseCaptureChanged(object sender, EventArgs e)
        {
            bStartDrag = !bStartDrag;
            if(!bStartDrag) this.Opacity=1;
            
        }

        private void Form1_LocationChanged(object sender, EventArgs e)
        {
            if(bStartDrag) this.Opacity=0.5;
        }
    }