Virtual clavier

Télécharger le projet
Commenter

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!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (blackwizzard)