Bestämma positionen på en scroll?

Överst i formuläret:

Private Declare Function SetScrollPos Lib "user32" (ByVal hwnd As Long, _
ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long
Private Const SB_VERT = 1

Anropa sedan:

SetScrollPos Text1.hwnd, SB_VERT, 100, True

På så sätt hamnar du längst ner (100=100%).

Vill du istället "minnas" en tidigare position så måste du först hämta den med: GetScrollPos.

Hmm, nu hamnar bara scrollen längst ner men den text som syns "tillhör" texten i början.

Jo, det ligger nog lite i det .. Får fundera lite. Finns säkert nåt lätt sätt.

Nu då?

Överst:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Any) As Long
Private Const WM_VSCROLL = &H115
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1
Private Const SB_PAGEUP = 2
Private Const SB_PAGEDOWN = 3
Private Const SB_ENDSCROLL = 8
Private Const SB_BOTTOM = 7

Anrop:

SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0

Nu fungerar det som det ska MEN jag vill ju hellst att den ska hamna där den var innan timern kördes. Vart anger man positionen för scrollen?

OK.

För att forcera scrollen till en viss position kan du skriva så här:

Private Const SB_THUMBPOSITION = 4
LngIndex = 100 ' Position=100 tex.
SendMessage Text1.hwnd, WM_VSCROLL, (CInt(LngIndex) * &H10000) _
    Or (SB_THUMBPOSITION And &HFFFF&), 0

För att sedan få fram den senaste manuella förflyttningen med musen (alltså inte kodmässiga) så måste man nog subklassa textboxen (annars får man rundgång). Men jag känner att jag inte riktigt orkar det just nu, tyvärr. :l

OK. Här är ett förslag som funkar "sådär" om det finns många rader i textboxen och man befinner sig långt ner. Att det fortfarande blir en förskjutning beror på att själva "scroll-boxen" hela tiden krymper och jag inte riktigt vet hur jag ska justera för det.

http://member.webforum.nu/3773/scrollbars.zip

Du kan ju försöka få rätt på det sista om du har lust, men det är mycket mer jobb än man tror.

Tack, ska kolla på filen. :)

När jag nu startar mitt program så stängs det av på en gång, varför?

Läste du "varningstexten"? Om du kör inne i studion så måste du avsluta med "krysset" så att Form_Unload körs. Annars kraschar studion och blir konstig tills du bootar om.

Om du kör det utanför studion så ska det inte avslutas direkt.

Jo, jag läste varningstexten. Men jag hinner ju inte ens köra programmet. Direkt när jag trycker på Start så stängs programmet av.

OK? Det låter konstigt. Det funkar hos mig (2000 sp3). Som sagt, det du beskriver händer om man råkar stänga via stop-knappen i studion. Då går det inte att köra i studion förrän man bootat om. Men du kan väl köra själva exe-filen utan att den stängs?

Jag kan köra andra forms i samma projekt utan problem.

Som sagt, den här koden är lite "farlig". Min tanke var nog att du först skulle kolla på en separat och sen eventuellt försiktigt flytta över den till ditt projekt. Om du börjar blanda in den i annan kod och har ett endaste litet syntax-fel eller fel namn på en textruta så blir detta resultatet. Tyvärr. Gör alltid en fullständig kompilering innan du försöker köra. Och boota om ifall det behövs.

När jag tar bort denna kod så stängs inte programmet på en gång.

Private Sub Form_Load()
    glPrevWndProc = fSubClass(txtLog)
End Sub

Ja, fast då försvinner poängen. Svårt att säga varför det inte funkar. Har du bytt ut Text1 mot txtLog på ALLA ställen (även bas-filen). Har du bytt ut "frmMain" mot namnet på ditt formulär? Har du kört en full compile utan errors? Har du bootat om? Kör du XP? (Jag har inte testat på XP, men det borde funka.)

niko skrev:

Har du bytt ut "frmMain" mot namnet på ditt formulär?

Det hade jag inte gjort. :r

Men nu fungerar det!

Tack för all hjälp! :bire