"Stefan Kristensen" <stefank@asg.com> wrote in message
news:41878b4a$0$33739$14726298@news.sunsite.dk...
> Hej NG.
>
> Jeg har en multiline textbox med en lodret scrollbar. Min applikation
> skriver til textboxen sådan her:
> txtStatus = txtStatus & newLine and vbCrLF
> Teksten står rigtigt i boxen, men hver gang jeg tilføjer en linie,
> scroller
> den til toppen. Kan man lave det sådan at den automatisk scroller til
> bunden? Eller endnu bedre: Scroller til bunden, hvis den nederste linie er
> synlig, ellers bliver den 'stående' hvor den er?
>
Text1 er en tekstboks, legg til referanse til Microsoft VBScript Regular
Expressions 5.5 og legg denne koden inn i en Click-event eller hvor du måtte
ønske;
Dim alletreff As MatchCollection
Dim o As New RegExp
'o.IgnoreCase = False (by default) - ignorerer store/små bokstaver -
ubetydlig her
'o.global=false (by default) - returnerer kun første treff
o.Pattern = "\w" 'angir patter for å søke etter bokstav
Set alletreff = o.Execute(StrReverse(Text1)) 'søker, legger treff i
matchcollectionet
If alletreff.Count > 0 Then 'teksten inneholder en bokstav
Text1.SelStart = Len(Text1) - alletreff.Item(0).FirstIndex 'angir hvor
blinkedingsen skal settes
Else 'teksten inneholder ikke en bokstav
Text1.SelStart = 0 'angir hvor blinkedingsen skal settes
End If
'rydde opp
Set o = Nothing
Sikkert andre måter å gjøre dette på, men det var første og beste jeg kom på
-Reidar