Editeur de texte avec clavier virtuelle intègré v4

Soyez le premier à donner votre avis sur cette source.

Vue 13 591 fois - Téléchargée 41 475 fois

Description

Mon code sert de clavier virtuelle avec un éditeur de texte. C'est mon premier code ne soyez pas trop dur svp. Vous pouvez enregistrer et ouvrir du texte au formats : RTF, TXT et DOC seulement. Vous pouvez insérer des images, vous pouvez changer la couleur du texte selectionné, vous pouvez changer la police du texte et la taille du texte, vous pouvez modifier la couleur de font d'écran, etc...

Conclusion :


Il n'y a aucun bug connu pour l'instant.
Pour tout commentaire (Bug,Conseil,etc...) merci de m'envoyer un message en pv.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

LandTech
Messages postés
74
Date d'inscription
dimanche 14 octobre 2007
Statut
Membre
Dernière intervention
28 février 2011
-
Non, pour inséré un texte il suffit simplement de le coller.
Exemple :
dim app as string = My.Computer.Clipboard.GetText
My.Computer.Clipboard.SetText("texte", TextDataFormat.Text)
Me.RichTextBox1.Paste()
My.Computer.Clipboard.SetText(app, TextDataFormat.Text)

' et voila
(le dim app as string = My.Computer.Clipboard.GetText, le My.Computer.Clipboard.SetText("texte", TextDataFormat.Text) et le My.Computer.Clipboard.SetText(app, TextDataFormat.Text) ça sert pour ne pas effacer l'ancien presse-papier)
cs_hbd
Messages postés
4
Date d'inscription
jeudi 2 septembre 2004
Statut
Membre
Dernière intervention
29 novembre 2007
-
RichTextBox1.Text & = IIf(CheckBox1.Checked, "A", "a")
ce qui épargnera plrs lignes de code
nicomilville
Messages postés
3498
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
28 février 2014
22 -
merci du conseil
anthonygego
Messages postés
54
Date d'inscription
lundi 1 août 2005
Statut
Membre
Dernière intervention
10 juillet 2008
-
Un petit conseil, faudrait changer la méthode RichTextBox1.Text += "lettre" car cela affiche la lettre tout à la fin du texte, il faut remplacer cette méthode par la fonction RichTextBox1.Text.Insert. Je m'explique :
Remplacer :

RichTextBox1.Text += "a"

Par :

Dim pos As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Insert(pos, "a")
RichTextBox1.SelectionStart = pos + 1

Ce qui permettrait d'afficher la lettre à la position du curseur et puis de l'avancer d'un caractère.
nicomilville
Messages postés
3498
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
28 février 2014
22 -
merci du conseil

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.