DÉPLACER LA SOURIS PAR CLAVIER

Commentaire de etiennexxx9 le 01/10/2006 22:55:08

Salut,
Je vois pas l'intérêt de cette source, puisque Windows XP intègre une option similaire (Touches Souris, dans Options d'Accessibilités). Je sais pas si win 9x/me intègrent cette option...(si non, ca pourait etre utile...)
Ah un intérêt: apprendre à contrôler la souris.

Bonne prog,
Etienne

Commentaire de FREMYCOMPANY le 02/10/2006 16:24:40

' Version Améliorée
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "

    Public Sub New()
        MyBase.New()

        'Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

    End Sub

    'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Requis par le Concepteur Windows Form
    Private components As System.ComponentModel.IContainer

    'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
    'Elle peut être modifiée en utilisant le Concepteur Windows Form.  
    'Ne la modifiez pas en utilisant l'éditeur de code.
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        '
        'Timer1
        '
        Me.Timer1.Interval = 1
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(120, 120)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "Form1"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Form1"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

#End Region

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Right Then
            X = 1
        End If
        If e.KeyCode = Keys.Left Then
            X = -1
        End If
        If e.KeyCode = Keys.Down Then
            Y = 1
        End If
        If e.KeyCode = Keys.Up Then
            Y = -1
        End If
        If e.KeyCode <> Keys.Right And e.KeyCode <> Keys.Left And e.KeyCode <> Keys.Down And e.KeyCode <> Keys.Up Or e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub
    Private X, Y As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim NewX, NewY As Integer
        NewX = Cursor.Position.X + X
        NewY = Cursor.Position.Y + Y
        If NewX < 0 Then NewX = 0
        If NewX > Screen.PrimaryScreen.Bounds.Right Then NewX = Screen.PrimaryScreen.Bounds.Right
        If NewY < 0 Then NewY = 0
        If NewY > Screen.PrimaryScreen.Bounds.Bottom Then NewY = Screen.PrimaryScreen.Bounds.Bottom
        Cursor.Position = New Point(NewX, NewY)
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim X As Integer = 1
        'Me.Opacity = X / 100
        MessageBox.Show("Pour déplacer tapez sur les flèches du clavier et pour fermer appuyer sur échap ou sur la souris.")
        Timer1.Enabled = True
    End Sub
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Me.Close()
    End Sub

    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        X = 0 : Y = 0
    End Sub
End Class

Commentaire de FREMYCOMPANY le 03/10/2006 18:26:15

Ma technique ne bloque pas l'utilisation "normale" de la souris ;)
Par contre, en effet, il faudrait detecter les touches du clavier autrement que par Form.OnKeyDown, mais ca se trouve ;)

Commentaire de FREMYCOMPANY le 04/10/2006 13:40:34

Oui, bien sur ;)
N'empeche que c'est une solution simple pour par exemple mettre la souris sur le controle de ton choix...
Ou encore empecher la souris de sortir d'un bouton
...