【急求】Spread快捷键

Spread中有很多列，每个列的类型不同，文字列按F3，F4会进入编辑模式，
现在想禁掉加了如下代码：
Dim whenAncestorOfFocused As InputMap = _
        FpSpread1.GetInputMap(InputMapMode.WhenAncestorOfFocused)
Dim whenFocused As InputMap = _
        FpSpread1.GetInputMap(InputMapMode.WhenFocused)

whenAncestorOfFocused.Put(New Keystroke(Keys.F3, Keys.None), SpreadActions.None)
whenFocused.Put(New Keystroke(Keys.F3, Keys.None), SpreadActions.None)
whenAncestorOfFocused.Put(New Keystroke(Keys.F4, Keys.None), SpreadActions.None)
whenFocused.Put(New Keystroke(Keys.F4, Keys.None), SpreadActions.None)

可是这样就把日期列的快捷键F3，F4也给屏蔽了，
这个要怎么做呢？屏蔽到非日期列的快捷键。

回复 1楼miyaminn的帖子

可以通过自定义快捷键动作实现：

1. 
   
2. Public Class Form1
   
3. 
   
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
5.         Dim dt As New FarPoint.Win.Spread.CellType.DateTimeCellType
   
6.         FpSpread1.ActiveSheet.Columns(0).CellType = dt
   
7. 
   
8.         Dim txt As New FarPoint.Win.Spread.CellType.TextCellType()
   
9.         txt.CharacterCasing = CharacterCasing.Upper
   
10.         txt.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Ascii
    
11.         txt.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show
    
12.         txt.MaxLength = 40
    
13.         txt.Multiline = True
    
14.         txt.PasswordChar = "*"
    
15.         txt.ScrollBars = ScrollBars.Vertical
    
16.         txt.Static = True
    
17.         FpSpread1.Sheets(0).Columns(1).CellType = txt
    
18.         FpSpread1.Sheets(0).Cells(0, 1).Text = "This is a text cell.  It can provide a wide range of" & _
    
19.         " functionality for handling a large amount of data that a user might want to include" & _
    
20.         " in a single cell."
    
21. 
    
22.         Dim im As New InputMap
    
23.         im = FpSpread1.GetInputMap(InputMapMode.WhenFocused)
    
24.         Dim am As ActionMap
    
25.         am = FpSpread1.GetActionMap()
    
26. 
    
27.         im.Put(New Keystroke(Keys.F3, Keys.None), "NewControlHomeAction")
    
28.         am.Put("NewControlHomeAction", New NewControlHomeAction())
    
29.         im.Put(New Keystroke(Keys.F4, Keys.None), "NewControlHomeAction")
    
30.         am.Put("NewControlHomeAction", New NewControlHomeAction())
    
31. 
    
32.     End Sub
    
33. End Class
    
34. 
    
35. Public Class NewControlHomeAction
    
36.     Inherits FarPoint.Win.Spread.Action
    
37.     Public Overrides Sub PerformAction(source As Object)
    
38.         If TypeOf source Is SpreadView Then
    
39.             Dim spread As SpreadView = DirectCast(source, SpreadView)
    
40.             If TypeOf spread.Sheets(spread.ActiveSheetIndex).ActiveColumn.CellType Is FarPoint.Win.Spread.CellType.DateTimeCellType Then
    
41.                 spread.EditMode = True
    
42.             Else
    
43.                 spread.EditMode = False
    
44.             End If
    
45.         End If
    
46.     End Sub
    
47. End Class
    

复制代码