Na ja, "konkret" ist aber schon was anderes.
Was soll man mit diesem Codefragment anfangen?
Um wessen KeyDown-Ereignis handelt es sich hier?
Was bedeutet " 'später"?
Naja das von meinem Control, also von der Klasse, abgeleitet von ScrollableControl bzw. Panel (im Grunde wurscht, weil beide Male funktioniert es identisch bzw. produziert den selben Fehler, und von welchem von beiden ich ableiten soll/will, bin ich mir irgendwie
unsicher. Auch Recherchen dazu fördern komplett unterschiedliche Meinungen/Empfehlungen zutage)
Auch hier veranstaltest Du wieder reines Rätselraten.
Wie soll man
Max(0, Min(MaxYStart, ActualY))
interpretieren?
Was sind das für Werte, die darin enthalten sind?
Woher kommen sie?
Max/Min sind eigene kleine Funktionen (Maximum/Minimum zweier Werte halt). MaxYStart ist der maximale Y-Offset fürs Scrollen, ActualY eben der aktuelle (im idealfall erhöhte) Y Wert des Clipping-Ausschnittes. Es ist halt eine Sichtfläche, die
ein Teil einer größere Fläche is, und die ich scrollen will, abhängig von Tastatureingaben bzw. Werteveränderungen in einer Art Cursor.
Ob das wirklich so ist oder zumindest sein sollte, lässt sich
an dem, was Du hier zeigst beim besten Willen nicht erkennen.
Naja, nimm irgendein Control, das Scrollbars hat. Machs so klein, dass auch wirklich Scrollbars angezeigt werden, und verändere durch den Code den Scrollbar.Value-Wert. Dann sollte man doch annehmen, dass dann das Ding auch beginnt zu scrollen an die neue
Position, heißt: Bildinhalt neuzeichnen (teilweise oder ganz, je nachdem wohin man scrollt) und die Scrollbar selbst wird auch neu gezeichnet, weil der Balken ja woanders ist. Oder nicht? Das Problem is irgendwie auch, dass das ScrollableControl mir
nur sehr wenige Zugriffsmöglichkeiten auf den Scrollbalken gibt. Eigentlich an relevanten Dingen nur den Wert, SmallChange, LargeChange. Und das Scroll.Ereignis, was ich abfange bzw. erbe und darin auch den Ausschnitt neu zeichne. Das ist aber alles im
Lot. Wie oben beschrieben ist beim manuellen (maus-gesteuerten) Scrollen ja alles prima.
Um diese Änderung am Bildschirm sichtbar zu machen
muss Windows auch Gelegenheit bekommen, das Neuzeichnen
des betr. Bildschirmbereiches auch wirklich auszuführen.
Ohne zu Wissen, was Dein Code wirklich macht (irgendwelche
Schleifen, sonstige recheninstensive Abläufe usw.), kann
man das von hier aus nicht beurteilen.
Also ich habe keine langwierigen Berechnungen oder Schleifen drin. Die einzige Schleife ist vergleichsweise rasend schnell. Auch keine weiteren Rechenabläufe. Geschwindigkeit ist nicht das Problem. Ich setze ja nur eine Art Grafikcursor an eine neue Position
und will den Inhalt dementsprechend scrollen.
Auch ist beide Male das Offset verändert, also der Clipbereich
des Controls wirklich echt verschoben worden.
Wie, womit stellst Du das fest?
Naja, durch ausgeben halt. :-) Ich lass mir die Werte an mehreren Stellen anzeigen. Da sieht alles richtig aus, der Überlauf wird erkannt, die Position des Cursors wird verändert. Ich raff nicht, wieso er einfach bei den selben Ausgangswerten einmal
den Scrollwert ändert und einmal nicht.
Wie schon erwähnt kann man mit dem was Du hier als
"konkreten Code" anbietest, nicht auf ein mögliches
Problem schliessen.
Naja, da kann ich theoretisch gleich meine ganze Klasse schicken ... :-(
Hoffe es ist jetzt etwas klarer was ich meine ...
Nein, eigentlich kein bisschen.
Verdammt. :-D
Also gut, hier einmal meine komplette Sub zum Cursor versetzen ... auf die Gefahr hin, dass danach alles noch unklarer ist. :-)
Function CursorZeile(ByVal N As Integer) As Boolean
Dim OK As Boolean = True
Dim FL As Integer = FirstShownLine()
Dim NosL As Integer = NumberOfShownLines()
frmMain.TextBox1.Text = ""
If (MyCursor.Y + N) >= 0 And (MyCursor.Y + N) <= MyText.Zeilen.Count - 1 Then
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MyC.Y vor allem: " & Str(MyCursor.Y) & vbCrLf
MyCursor.Y = MyCursor.Y + N
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "FL / NosL / VScrV vorher: " & Str(FL) & " / " & Str(NosL) & " / " & Str(Me.VerticalScroll.Value) & vbCrLf
If MyCursor.X > MyText.Zeile(MyCursor.Y).Text.Length Then
MyCursor.X = MyText.Zeile(MyCursor.Y).Text.Length
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "Cursor X wird korrigiert" & vbCrLf
End If
'If Me.VerticalScroll.Enabled Then
'MsgBox(Str(TextEnde.Left) & Str(TextEnde.Top))
'MyCursor.Y*ZeilenHoehe ' <--TopY der aktuellen Zeile
'0' <--- Absolut Y-Minimum des Ausschnitts
'Mytext.zeilen.count-Nosl*Zeilenhoehe'<---- max TopY des Abschnitts
'
'
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MyC.Y nach Step 1: " & Str(MyCursor.Y) & vbCrLf
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "FL / NosL / VScrV nach Step1: " & Str(FirstShownLine) & " / " & Str(NumberOfShownLines) & " / " & Str(Me.VerticalScroll.Value) & vbCrLf
If MyCursor.Y > FL + NosL - 1 Then
Dim MaxYStart As Integer = (MyText.Zeilen.Count - NosL) * ZeilenHoehe()
Dim ActualY As Integer = (MyCursor.Y - NosL + 1) * ZeilenHoehe()
'MyBase.RaisePaintEvent(Me, New PaintEventArgs(MyBase.CreateGraphics, MyBase.ClientRectangle))
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "Werte aus Step1: " & Str(0) & " < " & Str(ActualY) & " < " & Str(MaxYStart) & " ?" & vbCrLf
Me.VerticalScroll.Value = Max(0, Min(MaxYStart, ActualY))
'Me.Update()
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MYCursor Y größer als FL+NosL-1" & vbCrLf
End If
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MyC.Y nach Step 2: " & Str(MyCursor.Y) & vbCrLf
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "FL / NosL / VScrV nach Step2: " & Str(FirstShownLine) & " / " & Str(NumberOfShownLines) & " / " & Str(Me.VerticalScroll.Value) & vbCrLf
If MyCursor.Y < FL Then
Dim MaxYStart As Integer = (MyText.Zeilen.Count - NosL) * ZeilenHoehe()
Dim ActualY As Integer = MyCursor.Y * ZeilenHoehe()
'MyBase.RaisePaintEvent(Me, New PaintEventArgs(MyBase.CreateGraphics, MyBase.ClientRectangle))
Me.VerticalScroll.Value = Max(0, Min(MaxYStart, ActualY))
'Me.Update()
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MYCursor Y kleiner FL" & vbCrLf
End If
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "MyC.Y nach allem: " & Str(MyCursor.Y) & vbCrLf
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "FL / NosL / VScrV nach allem: " & Str(FirstShownLine) & " / " & Str(NumberOfShownLines) & " / " & Str(Me.VerticalScroll.Value) & vbCrLf
'End If
Else
OK = False
frmMain.TextBox1.Text = frmMain.TextBox1.Text & "OK False" & vbCrLf
End If
Return OK
End Function
Mitsamt aller ausgaben (frmMain.Textbox ist halt eine TB zum Ausgeben der ganzen relevanten Variablen ...). Die Auskommentierten Zeilen warn Versuche irgendwas zu verbessern, aber das half alles nix. Genausowenig wie irgend ein refresh, oder invalidating
... grml.
Hilft das dir mein Problem zu verstehen? Langsam glaub ich mein VB will mich veräppeln. ;-)
LG, Dennis.
