[VB6] onderste deel textbox automatisch laten zien

[Verwijderd]

Yo

Ik zit ff met 'n probleempje: Ik heb een programma, die af en toe wat berichtjes naar een textbox schrijft (
txtSysMsg.MultiLine = True
txtSysMsg.ScrollBars = 2 '= Vertical
). Hoe krijg ik dat ding nou zover dat hij automatisch de ónderkant van dat tekstding laat zien? Als ik er nl. iets op wegschrijf, scrollt hij niet automatisch naar het einde.

[Verwijderd]

txtSysMsg.SelStart = Len(txtSysMsg.Text)

[Verwijderd]

keej, bedankt!
Dit moet je dus achter elke keer dat je de tekst wijzigt schrijven neem ik aan... Je kunt dus niet dit automatisch doen?

[Crazy D]

Op dinsdag 13 november 2001 23:54 schreef cheezo het volgende:
Dit moet je dus achter elke keer dat je de tekst wijzigt schrijven neem ik aan...

Yup.

Je kunt dus niet dit automatisch doen?

Ik heb nog nooit een control gezien die dat standaart deed. Naja wel op verschillende sites controls van bezoekers die dat doen, maar dus niet als standaart functionaliteit in standaart controls. Irc-style textboxjes of zo zijn denk ik wel te vinden, maar is misschien wat overdreven Functietje "VoegRegelToe" met een string als param, die dan meteen ff omlaag scrollt, is een stuk minder overkill denk ik

[Gerco]

Ik vind een listbox voor dat soort dingen veel handiger, dan doe je gewoon zoiets:

code:

List1.AddItem "bladiebla"
List1.TopIndex=List1.NewIndex

Ik gebruik dit altijd om mijn logfiles te volgen, in de listbox komt dan hetzelfde als in de application logfile.

[ArthurMorgan]

Op woensdag 14 november 2001 00:31 schreef Gerco het volgende:
Ik vind een listbox voor dat soort dingen veel handiger, dan doe je gewoon zoiets:

code:

List1.AddItem "bladiebla"
List1.TopIndex=List1.NewIndex

Ik gebruik dit altijd om mijn logfiles te volgen, in de listbox komt dan hetzelfde als in de application logfile.

hmmm
maar is dat niet vreselijk sloom, zo'n listbox?

[Verwijderd]

Als je het Change event gebruikt, gebeurd dit automatisch:

code:

Private Sub Text1_Change()
  Text1.SelStart = Len(Text1.Text)
End Sub

[johnwoo]

Op dinsdag 13 november 2001 23:54 schreef cheezo het volgende:
keej, bedankt!
Dit moet je dus achter elke keer dat je de tekst wijzigt schrijven neem ik aan... Je kunt dus niet dit automatisch doen?

Zet dit in je code:

code:

Private Sub txtSysMsg_Change()
  txtSysMsg.SelLength = 0
  txtSysMsg.SelStart = Len(txtSysMsg.Text)
End Sub

Daarmee scrollt ie telkens als jij de tekst verandert vanzelf naar onderen