Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Pfeiltasten
Autor: asim_49
Datum: 20.10.04 21:22
Hallo Dieter Ich habe folgende Code und möchte ich im Sevdatagrid mit Pfeiltasten springen. Links und Rechtspfeiltaste funktioniert nicht richtig .Wird spontan eine Zelle aktiviert . Warum? ich benutze sevdatagrid 2 Private Sub sevGrid1_EditKeyDown(KeyCode As Integer, Shift As Integer) Dim nCol As Long Dim nRow As Long With sevGrid1 nRow = .Row: nCol = .Col Select Case KeyCode Case vbKeyUp If nRow > 1 Then .UpdateRow .DoEdit nRow - 1, nCol End If Case vbKeyDown If nRow < .Rows Then .UpdateRow .DoEdit nRow + 1, nCol End If Case vbKeyLeft If nCol > 1 Then ' .UpdateRow .DoEdit nCol - 1, nRow End If MsgBox .Row Case vbKeyRight If nCol < .Cols Then .UpdateRow .DoEdit nCol + 1, nRow End If End Select End With End Sub

Pfeiltasten	750	asim_49	20.10.04 21:22
Re: Pfeiltasten	644	Dieter	21.10.04 09:04
Re: Pfeiltasten	619	asim_49	21.10.04 13:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen