スプレット内でTabキーで上下に移動するには？

解決

岳飛 2005-06-23 19:33:13 No: 90646

スプレット内でTabキーで上下に移動させたいのですが、うまくいきません。
.ProcessTab = True を使ってみましたが、セルが左から右に移動するだけで、上下に行きません。
一応下記のようなソースを作成しましたが、Tabキー押下時に下にセルが移動しますが、Shiftキー＋Tabキー押下時に上に移動してくれません。

Private Sub sprBikou_KeyDownEvent(ByVal sender As Object, ByVal e As AxFPSpread._DSpreadEvents_KeyDownEvent) Handles sprBikou.KeyDownEvent

            sprBikou.Col = 1
            sprBikou.Row = 1
            sprBikou.Text = e.keyCode & " , "

            If e.keyCode = 9 Then
                With sprBikou
                    .ReDraw = False

                    If .ActiveCol = 1 AndAlso .ActiveRow = 10 Then
                        .Col = 2
                        .Row = 1
                    Else
                        .Col = .ActiveCol
                        .Row = .ActiveRow + 1
                    End If

'.Position = FPSpread.PositionConstants.PositionUpperLeft
.Action = FPSpread.ActionConstants.ActionActiveCell 'SS_ACTION_GOTO_CELL()

                    .ReDraw = True
                End With
            End If

End Sub

ちなみに１列目の１０行目まで移動移動したら隣の列の１行目セルに動くようなソースです。

よろしくお願いします。

いな 2005-06-23 21:00:22 No: 90647

>スプレット

と呼ばれるものはいろいろあります。
製品名を正確に書かないとわからないです。

むっきー 2005-06-23 21:15:49 No: 90648

ま、みるところVB.NETを使用しているのは分かる
だが、SPREADのバージョンは分からない

んで目的のことはShift+Tab時の動作だが、
VB.NET+SPREAD6で試したところ下記のようにして検証できた

Select Case e.keyCode
    Case Keys.Tab
        If e.shift And VB6.ShiftConstants.ShiftMask = VB6.ShiftConstants.ShiftMask Then
            MsgBox("Shift+Tab だごるぁ")
        Else
            MsgBox("Tab だごるぁ")
        End If
    Case Else
End Select

岳飛 2005-06-23 22:29:18 No: 90649

いなさん・むっきー、早速のレスポンスありがとうございました。