关于ComboBoxCell数值变化后文本全选状态

由于是移行项目，通过代码封装实现了在ComboBoxCell上按左右键进行列表值的变化，但是变化后的文本不是全选蓝色背景的全选状态，有什么办法能够将选择了的值的文本设为全选状态？

回复 1楼xaj21的帖子

ComboBoxCellType 本身没有提供这个功能，您那边能否获取这个变化事件？如果能，可以通过 fpSpread1.ActiveSheet.GetEditor 方法获取这个 Editor 进而选择文本。

Editor可以取到，调用StartEditing方法，没效果，能说的更仔细一点吗？

回复 3楼xaj21的帖子

不知道您指的封装都做了哪些操作，是否方便共享以便跟踪问题？
以下是我获取编辑器的代码：

1. 
   
2.         private void 添加ComboCellTypeToolStripMenuItem_Click(object sender, EventArgs e)
   
3.         {
   
4.             FarPoint.Win.Spread.CellType.ComboBoxCellType cmbocell = new FarPoint.Win.Spread.CellType.ComboBoxCellType();
   
5.             cmbocell.Items = (new String[] { "January", "February", "March", "April", "May", "June" });
   
6.             cmbocell.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.AllArrows;
   
7.             cmbocell.AutoSearch = FarPoint.Win.AutoSearch.SingleCharacter;
   
8.             cmbocell.Editable = true;
   
9.             cmbocell.ListAlignment = FarPoint.Win.ListAlignment.Left;
   
10.             cmbocell.ListOffset = 20;
    
11.             cmbocell.ListWidth = 0;
    
12.             cmbocell.MaxDrop = 4;
    
13.             fpSpread1.Sheets[0].Cells[2, 2].CellType = cmbocell;
    
14. 
    
15.             this.fpSpread1.EditModeOn += fpSpread1_EditModeOn;
    
16.         }
    
17. 
    
18.         void fpSpread1_EditModeOn(object sender, EventArgs e)
    
19.         {
    
20.             var fb = this.fpSpread1.EditingControl as FarPoint.Win.FpCombo;
    
21.             fb.KeyDown += fb_KeyDown;
    
22.         }
    
23. 
    
24.         void fb_KeyDown(object sender, KeyEventArgs e)
    
25.         {
    
26.         }
    

复制代码

封装的部分代码，通过这种方式实现的
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
            Dim isCommbox As Boolean = False
            If Me.ActiveSheet.ActiveCell IsNot Nothing AndAlso (TypeOf (Me.ActiveSheet.ActiveCell.CellType) Is CellType.ComboBoxCellType OrElse TypeOf (Me.ActiveSheet.ActiveColumn.CellType) Is CellType.ComboBoxCellType) Then
                isCommbox = True
                If keyData = Keys.Left Then
                    Dim comobBoxCellType As ComboBoxCellType = Me.ActiveSheet.ActiveColumn.CellType
                    Dim index As Integer = -1
                    For Each item As String In comobBoxCellType.Items
                        index = index + 1
                        If item.Equals(MyBase.ActiveSheet.ActiveCell.Value) Then Exit For
                    Next
                    If index = -1 Or index = 0 Then Return True
                    MyBase.ActiveSheet.ActiveCell.Value = comobBoxCellType.Items(index - 1)
                    Return True
                ElseIf keyData = Keys.Right Then
                    Dim comobBoxCellType As ComboBoxCellType = Me.ActiveSheet.ActiveColumn.CellType
                    Dim index As Integer = -1
                    For Each item As String In comobBoxCellType.Items
                        index = index + 1
                        If item.Equals(MyBase.ActiveSheet.ActiveCell.Value) Then Exit For
                    Next
                    If index = comobBoxCellType.Items.Count - 1 Then Return True
                    MyBase.ActiveSheet.ActiveCell.Value = comobBoxCellType.Items(index + 1)
                    Return True
                End If
            End If
End Function

根据你前面的代码做了一下修正

1. Dim isCommbox As Boolean = False
   
2.             If Me.ActiveSheet.ActiveCell IsNot Nothing AndAlso (TypeOf (Me.ActiveSheet.ActiveCell.CellType) Is CellType.ComboBoxCellType OrElse TypeOf (Me.ActiveSheet.ActiveColumn.CellType) Is CellType.ComboBoxCellType) Then
   
3.                                 isCommbox = True
   
4.                                 Dim ctl As FarPoint.Win.FpCombo = Me.EditingControl
   
5.                                 If keyData = Keys.Left Then
   
6.                                         If ctl.SelectedIndex > 0 Then
   
7.                                                 ctl.SelectedIndex = ctl.SelectedIndex - 1
   
8.                                         End If
   
9.                                         Return True
   
10.                                 ElseIf keyData = Keys.Right Then
    
11.                                         If ctl.SelectedIndex < ctl.ItemData.Count - 1 Then
    
12.                                                 ctl.SelectedIndex = ctl.SelectedIndex + 1
    
13.                                         End If
    
14.                                         Return True
    
15.                                 End If
    
16.                         End If

复制代码

回复 6楼xaj21的帖子

请问现在问题解决了吧？

还没有解决，不知道如何将选中的文本背景色变成蓝色背景全选状态。
刚才那些代码只是实现了按左右键能选中的文本。

右边图片就是按下左右键的效果（右边图片）

回复 8楼xaj21的帖子

我通过 Spread 提供了 ComboCellType 可能无法解决您这个问题，能否把你的 Demo 发上来继续调查？

附件是demo
WindowsApplication10.rar (88.64 KB, 下载次数: 2642)

2014-4-24 18:09 上传

点击文件名下载附件