Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Here's a kludge, but it works, perhaps a variation on the theme or someone else has a better idea:
ThisForm.status.Value=oldtext+newtext+chr(13)
ThisForm.status.refresh()
In status Refresh Method:
ThisForm.Status.Setfocus()
In status SetFocus Method:
Keyboard '{pgdn}'
:)
Rob
>I have an edit box with a vertical scroll bar on a form (VFP5 and VFP6). I use >the box to keep track of an ongoing process by adding additional text to its >value:
>ThisForm.status.Value=oldtext+newtext+chr(13)
>ThisForm.Refresh
>However, when the text length exceeds the box size I cannot see the new >additions unless I manually scroll. Is there a way to make the text box scroll >automatically so the newest text is always displayed?
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement