EDITEUR DE TEXTE AVEC CLAVIER VIRTUELLE INTÈGRÉ V4

Constant93 Messages postés 38 Date d'inscription samedi 22 janvier 2005 Statut Membre Dernière intervention 4 août 2007 - 4 août 2007 à 17:17
LandTech Messages postés 73 Date d'inscription dimanche 14 octobre 2007 Statut Membre Dernière intervention 28 février 2011 - 2 déc. 2007 à 17:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43661-editeur-de-texte-avec-clavier-virtuelle-integre-v4

LandTech Messages postés 73 Date d'inscription dimanche 14 octobre 2007 Statut Membre Dernière intervention 28 février 2011
2 déc. 2007 à 17:07
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
6 nov. 2007 à 19:06
RichTextBox1.Text & = IIf(CheckBox1.Checked, "A", "a")
ce qui épargnera plrs lignes de code
nicomilville Messages postés 3472 Date d'inscription lundi 16 juillet 2007 Statut Membre Dernière intervention 28 février 2014 36
10 août 2007 à 09:52
merci du conseil
anthonygego Messages postés 48 Date d'inscription lundi 1 août 2005 Statut Membre Dernière intervention 10 juillet 2008 1
9 août 2007 à 22:13
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 3472 Date d'inscription lundi 16 juillet 2007 Statut Membre Dernière intervention 28 février 2014 36
5 août 2007 à 09:32
merci du conseil
cs_Bidou Messages postés 5486 Date d'inscription dimanche 4 août 2002 Statut Membre Dernière intervention 20 juin 2013 61
4 août 2007 à 23:03
Mouais, c'est vraimemt très très léger comme code...
Mettre un handler par bouton, ca me paraît également super lourd pour pas dire inutilisable.

En ce qui me concerne, la source n'est pas "suffisante".
Bonne continuation...
Constant93 Messages postés 38 Date d'inscription samedi 22 janvier 2005 Statut Membre Dernière intervention 4 août 2007
4 août 2007 à 17:17
Un screenshot serait intéressant.

Bonne idée.

C93
Rejoignez-nous