EDITEUR DE TEXTE AVEC CLAVIER VIRTUELLE INTÈGRÉ V4
Constant93
Messages postés38Date d'inscriptionsamedi 22 janvier 2005StatutMembreDernière intervention 4 août 2007
-
4 août 2007 à 17:17
LandTech
Messages postés73Date d'inscriptiondimanche 14 octobre 2007StatutMembreDernière intervention28 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.
LandTech
Messages postés73Date d'inscriptiondimanche 14 octobre 2007StatutMembreDernière intervention28 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és4Date d'inscriptionjeudi 2 septembre 2004StatutMembreDernière intervention29 novembre 2007 6 nov. 2007 à 19:06
RichTextBox1.Text & = IIf(CheckBox1.Checked, "A", "a")
ce qui épargnera plrs lignes de code
nicomilville
Messages postés3472Date d'inscriptionlundi 16 juillet 2007StatutMembreDernière intervention28 février 201436 10 août 2007 à 09:52
merci du conseil
anthonygego
Messages postés48Date d'inscriptionlundi 1 août 2005StatutMembreDernière intervention10 juillet 20081 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és3472Date d'inscriptionlundi 16 juillet 2007StatutMembreDernière intervention28 février 201436 5 août 2007 à 09:32
merci du conseil
cs_Bidou
Messages postés5487Date d'inscriptiondimanche 4 août 2002StatutMembreDernière intervention20 juin 201361 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és38Date d'inscriptionsamedi 22 janvier 2005StatutMembreDernière intervention 4 août 2007 4 août 2007 à 17:17
2 déc. 2007 à 17:07
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)
6 nov. 2007 à 19:06
ce qui épargnera plrs lignes de code
10 août 2007 à 09:52
9 août 2007 à 22:13
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.
5 août 2007 à 09:32
4 août 2007 à 23:03
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...
4 août 2007 à 17:17
Bonne idée.
C93