ça pourrait, par exemple, aider des personnes handicapées qui ne peuvent pas utiliser un clavier physique mais seulement une souris ou tout autre équipement produisant le même effet.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub shiftadroite_Click() SendKeys "+{RIGHT}" Text1.SetFocus ' ===>>> important End Sub
Private Sub Bouton_Click(Index As Integer) If Index = 4 Then If Bouton(Index).Tag "+" Then Bouton(Index).Tag "" Else Bouton(Index).Tag = "+" Else SendKeys Bouton(4).Tag & "{" & Bouton(Index).Tag & "}" Text1.SetFocus End If End Sub '============================================================== 'tu peux faire tout ce qui suit en mode création ' et en donnant les captions et positions qui te plaisent ' je ne le fais ici dynamiquement que pour que tu comprennes Private Sub Form_Activate() Me.ScaleMode = vbTwips Text1.Move 0, 300, 2000, 2000 Bouton(0).Move 0, 0, 500, 300 Bouton(0).Caption = "H" Bouton(0).Tag = "UP" For i = 1 To 4 Load Bouton(i) With Bouton(i) Select Case i Case 1: .Caption "B": .Tag "DOWN" Case 2: .Caption "G": .Tag "LEFT" Case 3: .Caption "D": .Tag "RIGHT" Case 4: .Caption "Shift": .Tag "" End Select .Move Bouton(0).Width * i, 0 .Visible = True End With Next End Sub Private Sub Command1_Click() ' juste pour avoir un "terrain d'essai" For i = 1 To 100 Text1.Text = Text1.Text & "aaaaaaa " & i Next End Sub
Private Sub Command1_Click() Shell ("osk.exe") End Sub
On se fonde un club de papets?/code