bj33
Messages postés145Date d'inscriptionvendredi 13 juin 2003StatutMembreDernière intervention 1 mai 2012 9 nov. 2012 à 23:37
Un petit complèment
'Dim varx As Integer
'Dim vary As Integer
'varx = Cursor.Position.X
'vary = Cursor.Position.Y
'Me.TSSL_Position.Text = "X : " & Windows.Forms.Cursor.Position.X.ToString() & " Y : " & Windows.Forms.Cursor.Position.Y.ToString()
'Me.TSSL_Position.Text = "X : " & Control.MousePosition.X.ToString() & " Y : " & Control.MousePosition.Y.ToString()
' Pour resteindre l'action de la souris à un controle. Action et position relative à ce controle, ici, un panel.
Dim Positions As Point
Positions = Me.Panel.PointToClient(Cursor.Position)
Me.TSSL_Position.Text = "X : " & Positions.X.ToString() & " Y : " & Positions.Y.ToString()
bj33
Messages postés145Date d'inscriptionvendredi 13 juin 2003StatutMembreDernière intervention 1 mai 2012 9 nov. 2012 à 22:20
Ce bout de code apparait dans les trois premiers résultats des moteurs avec souris et position alors, même si il est très vieux, je l'actualise pour .NET
Private Sub AffichePosition(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
'Dim varx As Integer
'Dim vary As Integer
'varx = Cursor.Position.X
'vary = Cursor.Position.Y
Me.LBL_Position.Text = "X : " & Cursor.Position.X.ToString() & " Y : " & Cursor.Position.Y.ToString()
End Sub
Tout est là : Cursor.Position.X ou Y
albert232
Messages postés4Date d'inscriptionmercredi 13 décembre 2000StatutMembreDernière intervention17 janvier 2012 13 nov. 2011 à 00:20
Excellent code pour l'emploi de PictureBox comme graphe
ploki122
Messages postés48Date d'inscriptionmercredi 21 septembre 2005StatutMembreDernière intervention20 décembre 2005 29 nov. 2005 à 00:25
c'est excellent et pour la position sur tout le screen mettez le form en plein écran (pas tjr pratique mais bon...)
inuyasha51
Messages postés8Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention22 août 2005 6 mai 2003 à 20:55
C'est pas tellement clair pour moi ... ca serait sympa de mettre un exemple un peu plus concret ! Mais c'est cool quand meme de partager ses connaissances. Merci.
9 nov. 2012 à 23:37
'Dim varx As Integer
'Dim vary As Integer
'varx = Cursor.Position.X
'vary = Cursor.Position.Y
'Me.TSSL_Position.Text = "X : " & Windows.Forms.Cursor.Position.X.ToString() & " Y : " & Windows.Forms.Cursor.Position.Y.ToString()
'Me.TSSL_Position.Text = "X : " & Control.MousePosition.X.ToString() & " Y : " & Control.MousePosition.Y.ToString()
' Pour resteindre l'action de la souris à un controle. Action et position relative à ce controle, ici, un panel.
Dim Positions As Point
Positions = Me.Panel.PointToClient(Cursor.Position)
Me.TSSL_Position.Text = "X : " & Positions.X.ToString() & " Y : " & Positions.Y.ToString()
9 nov. 2012 à 22:20
Private Sub AffichePosition(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
'Dim varx As Integer
'Dim vary As Integer
'varx = Cursor.Position.X
'vary = Cursor.Position.Y
Me.LBL_Position.Text = "X : " & Cursor.Position.X.ToString() & " Y : " & Cursor.Position.Y.ToString()
End Sub
Tout est là : Cursor.Position.X ou Y
13 nov. 2011 à 00:20
29 nov. 2005 à 00:25
6 mai 2003 à 20:55
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.