title image


Smiley Re: Fehlermeldung bei WheelMouse (up)-Scrollen in DataGrid
Henry,

gesendete Änderung bring Fehler.

Hier ist mal mein akt. Code:

Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)

' WheelMouse?

With MSHFlexGrid1

If (KeyCode = vbKeyUp Or KeyCode = vbKeyDown) And (Shift = 4) Then

Select Case KeyCode

Case vbKeyUp

' nach oben scrollen

KeyCode = 0

If .TopRow > 1 Then .TopRow = .TopRow - 1

Case vbKeyDown

' nach unten scrollen

KeyCode = 0

If .TopRow < .Rows - 3 Then .TopRow = .TopRow + 3

End Select

End If

End With

End Sub



Anhang zeigt 3 feste Zeilen ---> grau
Mit freundlichen Grüßen aus der Residenz des Recht's und des KSC's

geschrieben von

Anhang
Bild 32846 zu Artikel 1422245

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: