Pbl d'affichage d'une date dans RichTextBoxRésolu

Question

Hello, 

J'ai un bouton de commande nommé cmdDate qui affiche la date au click J'utilise la fonction "Today" pour l'afficher.
La date s'affiche dans une RichTextBox.

Lorsque par la suite j'insere du texte sous la date et que je clique de nouveau sur le bouton de commande date, mon texte s'efface intégralement.
Même lorsque je sauvegarde ma RichTextBox en utilisant "Savefile" 

Est ce du à une propriété liée à la RichTextBox, qu'il faudrait modifier ?

Nono78220
Merci d'avance pour vos réponses.

jrivet · Accepted Answer

SAlut,

Ton text s'efface intégralement car tu dois faire un truc du genre NOmRTextBox.Text = Date or il faudrait  faire  

NOmRTextBox.Text = NOmRTextBox.Text & Date  'Si tu veux mettre la date à la fin
NOmRTextBox.Text = Date & NOmRTextBox.Text  'Si tu veux mettre la date au tout début

J'espere que ca t'aide (sinon donne nous le bout de code qui pose problème)

@+: Ju£i?n
Pensez: Réponse acceptée

nono78220 · Answer

Hello,

Effectivement j'écris "NOmRTextBox.Text = Date".
Je pense que ta proposition fonctionnera. Pourquoi n'y ai-je pas pensé alors que je l'ai déjà codée dans un précédent prog !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  C'est rageant !!!!!!!!!!!!!!!!!!!!!!!!

De souvenir mon, code est le suivant:

private sub cmdDate_click

dim today as integer
Today = Format$(Date, "dddd d mmmm yyyy")

RichTextBox.rtfText = today & vbnewline

end sub

PAr ailleurs comment coder le curseur afin qu'il se positionne sous la date en début de ligne
vbnewline me permet de retournezr àla ligne mais le curseur n'est pas visible. J'utilise SelStart 
mais cela ne me satisfait pas.

Enfin vaut-il mieux coder 
RichTextBox.rtfText ou RichTextBox.Text  ?
Merci d'avance pour tes propositions.

Nono78220

jmfmarques · Answer

Le caret (c'est son nom dans une textbox.... pas curseur) sera visible si tu donnes le focus à ta RichTextBox...

cs_casy · Answer

private sub cmdDate_click

dim today as integer


Today = Format$(Date, "dddd d mmmm yyyy")

RichTextBox.rtfText = 

RichTextBox.rtfText
 & today & vbnewline
RichTextBox.SelStart = Len(RichTextBox.Text)

end sub

















---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

nono78220 · Answer

ok merci à tous les 2

Pbl d'affichage d'une date dans RichTextBox

5 réponses

Votre réponse

Discussions similaires