Hallo Leute!
Bitte um Hilfe zu nachstehendem Code. Ich weiß nicht, wie ich die VScrollBar durch eine andere ersetzen kann.
In der VScrollBar habe ich keinen Zugriff auf Maximum/Minimum und weiß auch nicht, welches Ereignis ich
abfragen kann; daß Scroll-Ereignis funktioniert bei mir nicht.
Problem ist nach dem Programmcode genau erklärt.
Vielen Dank
Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim index As Double 'Integer = gleiches Ergebnis
Dim Zeile As String
For index = 1 To 77778
Zeile = "Dies ist Zeile " & index & " | "
ListBox1.Items.Add(Zeile)
Next
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
End Sub
'For Index 1 bis 65577: Bildlaufleiste funktioniert.
' Diese Zahl ist veränderlich und abhängig von der Größe Listbox und Schriftart.
' In diesem Beispiel: Size.Width = 900, Size.Height = 592, Schriftart = Courier New,
' Schriftschnitt = Standard, Schriftgröße = 8
' 65579: Bildlaufleiste springt beim Ziehen an das Ende wieder nach oben
' auf Zeile 2. = 65579 minus 65577
' 77778: Bildlaufleiste springt beim Ziehen an das Ende wieder nach oben
' auf Zeile 12201. = 77778 minus 65577
'Bei Rechtsklick in die Bildlaufleiste und Auswahl "Unterer Rand" funktioniert
'es in allen Fällen so wie es sein sollte
Bitte um Hilfe zu nachstehendem Code. Ich weiß nicht, wie ich die VScrollBar durch eine andere ersetzen kann.
In der VScrollBar habe ich keinen Zugriff auf Maximum/Minimum und weiß auch nicht, welches Ereignis ich
abfragen kann; daß Scroll-Ereignis funktioniert bei mir nicht.
Problem ist nach dem Programmcode genau erklärt.
Vielen Dank
Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim index As Double 'Integer = gleiches Ergebnis
Dim Zeile As String
For index = 1 To 77778
Zeile = "Dies ist Zeile " & index & " | "
ListBox1.Items.Add(Zeile)
Next
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
End Sub
'For Index 1 bis 65577: Bildlaufleiste funktioniert.
' Diese Zahl ist veränderlich und abhängig von der Größe Listbox und Schriftart.
' In diesem Beispiel: Size.Width = 900, Size.Height = 592, Schriftart = Courier New,
' Schriftschnitt = Standard, Schriftgröße = 8
' 65579: Bildlaufleiste springt beim Ziehen an das Ende wieder nach oben
' auf Zeile 2. = 65579 minus 65577
' 77778: Bildlaufleiste springt beim Ziehen an das Ende wieder nach oben
' auf Zeile 12201. = 77778 minus 65577
'Bei Rechtsklick in die Bildlaufleiste und Auswahl "Unterer Rand" funktioniert
'es in allen Fällen so wie es sein sollte