[VB]#Posizione del mouse nello schermo per...

[programmarefree]

Salve a tutti,

io ho un programma in visual basic senza bordi di windows ne bottoni "chiudi" "minimizza" "ingrandisci"!

In questo progetto ho inserito in alto una barra disegnata tramite il comando SHAPE + LABEL, sò che esiste un codice che al clic sulla barra o sulla label, io trascino il mio programma in una posizione dello schermo.

Ad esempio il mouse si trova in cordinate
X: 5px
Y: 5px
dal bordo del monitor e il mio progetto si distanzia di 5 pixel dal bordo destro e 5 pixel da quello sinistro.

Grazie 1000 in anticipo a TUTTI !!!

[programmarefree]

Se non mi sbagli dovrebbe esistere un cosa del tipo drag and drop o roba del genere...
CMQ ANCORA GRAZIE A TUTTI !!!

[xegallo]

Dim xx, yy as Integer
Public Sub Form_MouseDown(Button as integer, Shift as integer, X as single, Y as single)
    xx = X
    yy = Y
End Sub

Public Sub Form_MouseMove(Button as integer, Shift as integer, X as single, Y as single)
    If Button = 1 Then
        form1.Left = X + (form1.left - xx)
        form1.top = x + (form1.top - yy)
    End If
End Sub

[programmarefree]

Ho provato il tuo codice ma appena muovo il mouse verso il basso, il programma precipita sotto il menu avvio !!!
BOOOO !!!
CMQ GRAZIE !!!

[programmarefree]

TI ho corretto il codice... aveviscritto X al posto di Y:

-----------------
Public Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = Y
End Sub

Public Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dvx__Autoplay.Left = X + (Dvx__Autoplay.Left - xx)
Dvx__Autoplay.Top = Y + (Dvx__Autoplay.Top - yy)
End If
End Sub
-----------------
OK ???

[xegallo]

si hai cambiato una lettera in definitiva avevo sbagliato a digitare perdono non lo farò +