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.

[REHome]

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


Voy a intentarlo sacar.

Gracias.

[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 ;)

[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;
}
}