Virtual clavier

Soyez le premier à donner votre avis sur cette source.

Vue 5 050 fois - Téléchargée 358 fois

Description

je n'ai droit à l'ordi qu'une fois par semaine, donc, pas de clavier les autres jours...
j'ai reussit à negossier pour garder la souris, "histoire d'avoir de la musique" (car j'ai pas de hi-fi)
si la meme chose vous arrive, voici un programme tres simple (8 ligne) mais qui est tres utile car il remplace le clavier!

Source / Exemple :


Private Sub c_Click(Index As Integer)
If Index <> 286 Then
rt.Text = rt.Text & c(Index).Caption
Else
rt.Text = rt.Text & vbCrLf
End If
End Sub

Private Sub Form_Load()
Dim i
Dim j
For i = 97 To 124
c(i - 97).Caption = Chr(i)
Next i
For i = 0 To 255
c(i + 30).Caption = Chr(i)
Next i
End Sub

'c'est tout!
'apres, il y a les 286 boutton et le richtextbox...
'je vous conseil donc de telecharger le zip car sinon, vous avez du boulot pour replacer les 286 bouttons!

Conclusion :


allez, vous pouvez mettre 1, c'est tout ce que ça merite!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de DiJiTooL

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.