Bonjour,
comment en VB2005, puis-je déplacer le curseur de la souris ?
Me.Cursor.Position.X = 10 ne fontionne pas
Erreur :"L'expression qualifiante ne sera pas évaluée"
L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur !
Private Sub MoveCursor()
' If the form's cursor is not the Default cursor,
' set the Current cursor, move the cursor's Position,
' and set its clipping rectangle to the form.
If Not Me.Cursor.Equals(Cursors.Default) Then
Me.Cursor = New Cursor(Cursor.Current.Handle)
Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y
- 50)
Cursor.Clip = New Rectangle(Me.Location, Me.Size)
End If
End Sub
Site : http://www.troxsa.info Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" a écrit dans le message de news:
Bonjour, comment en VB2005, puis-je déplacer le curseur de la souris ?
Me.Cursor.Position.X = 10 ne fontionne pas Erreur :"L'expression qualifiante ne sera pas évaluée"
L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur !
Private Sub MoveCursor() ' If the form's cursor is not the Default cursor, ' set the Current cursor, move the cursor's Position, ' and set its clipping rectangle to the form. If Not Me.Cursor.Equals(Cursors.Default) Then Me.Cursor = New Cursor(Cursor.Current.Handle) Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y - 50) Cursor.Clip = New Rectangle(Me.Location, Me.Size) End If End Sub
Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" <Bruno@discussions.microsoft.com> a écrit dans le message de news:
22A7D6A9-CFC0-460E-B007-BBF9FB5DEF65@microsoft.com...
Bonjour,
comment en VB2005, puis-je déplacer le curseur de la souris ?
Me.Cursor.Position.X = 10 ne fontionne pas
Erreur :"L'expression qualifiante ne sera pas évaluée"
L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur !
Private Sub MoveCursor()
' If the form's cursor is not the Default cursor,
' set the Current cursor, move the cursor's Position,
' and set its clipping rectangle to the form.
If Not Me.Cursor.Equals(Cursors.Default) Then
Me.Cursor = New Cursor(Cursor.Current.Handle)
Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y
- 50)
Cursor.Clip = New Rectangle(Me.Location, Me.Size)
End If
End Sub
Site : http://www.troxsa.info Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" a écrit dans le message de news:
Bonjour, comment en VB2005, puis-je déplacer le curseur de la souris ?
Me.Cursor.Position.X = 10 ne fontionne pas Erreur :"L'expression qualifiante ne sera pas évaluée"
L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur !
Private Sub MoveCursor() ' If the form's cursor is not the Default cursor, ' set the Current cursor, move the cursor's Position, ' and set its clipping rectangle to the form. If Not Me.Cursor.Equals(Cursors.Default) Then Me.Cursor = New Cursor(Cursor.Current.Handle) Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y - 50) Cursor.Clip = New Rectangle(Me.Location, Me.Size) End If End Sub
Merci d'avance pour votre aide !
Bruno
Bruno
Wow ! un grand merci ça marche super!
For i As Integer = 0 To 300 Application.DoEvents() Windows.Forms.Cursor.Position = New System.Drawing.Point(i, 32) System.Threading.Thread.Sleep(2) Next
Site : http://www.troxsa.info Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" a écrit dans le message de news:
> Bonjour, > comment en VB2005, puis-je déplacer le curseur de la souris ? > > Me.Cursor.Position.X = 10 ne fontionne pas > Erreur :"L'expression qualifiante ne sera pas évaluée" > > L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur ! > > Private Sub MoveCursor() > ' If the form's cursor is not the Default cursor, > ' set the Current cursor, move the cursor's Position, > ' and set its clipping rectangle to the form. > If Not Me.Cursor.Equals(Cursors.Default) Then > Me.Cursor = New Cursor(Cursor.Current.Handle) > Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y > - 50) > Cursor.Clip = New Rectangle(Me.Location, Me.Size) > End If > End Sub > > Merci d'avance pour votre aide ! > > Bruno > >
Wow !
un grand merci ça marche super!
For i As Integer = 0 To 300
Application.DoEvents()
Windows.Forms.Cursor.Position = New System.Drawing.Point(i, 32)
System.Threading.Thread.Sleep(2)
Next
Site : http://www.troxsa.info
Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" <Bruno@discussions.microsoft.com> a écrit dans le message de news:
22A7D6A9-CFC0-460E-B007-BBF9FB5DEF65@microsoft.com...
> Bonjour,
> comment en VB2005, puis-je déplacer le curseur de la souris ?
>
> Me.Cursor.Position.X = 10 ne fontionne pas
> Erreur :"L'expression qualifiante ne sera pas évaluée"
>
> L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur !
>
> Private Sub MoveCursor()
> ' If the form's cursor is not the Default cursor,
> ' set the Current cursor, move the cursor's Position,
> ' and set its clipping rectangle to the form.
> If Not Me.Cursor.Equals(Cursors.Default) Then
> Me.Cursor = New Cursor(Cursor.Current.Handle)
> Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y
> - 50)
> Cursor.Clip = New Rectangle(Me.Location, Me.Size)
> End If
> End Sub
>
> Merci d'avance pour votre aide !
>
> Bruno
>
>
For i As Integer = 0 To 300 Application.DoEvents() Windows.Forms.Cursor.Position = New System.Drawing.Point(i, 32) System.Threading.Thread.Sleep(2) Next
Site : http://www.troxsa.info Mail : http://cerbermail.com/?rIXgaw9Xsl
"Bruno" a écrit dans le message de news:
> Bonjour, > comment en VB2005, puis-je déplacer le curseur de la souris ? > > Me.Cursor.Position.X = 10 ne fontionne pas > Erreur :"L'expression qualifiante ne sera pas évaluée" > > L'exemple de l'aide ne fonctionne pas mieux et donne la même erreur ! > > Private Sub MoveCursor() > ' If the form's cursor is not the Default cursor, > ' set the Current cursor, move the cursor's Position, > ' and set its clipping rectangle to the form. > If Not Me.Cursor.Equals(Cursors.Default) Then > Me.Cursor = New Cursor(Cursor.Current.Handle) > Cursor.Position = New Point(Cursor.Position.X - 50, Cursor.Position.Y > - 50) > Cursor.Clip = New Rectangle(Me.Location, Me.Size) > End If > End Sub > > Merci d'avance pour votre aide ! > > Bruno > >
