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

收藏

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

iceman · iceman

回复 1楼xaj21的帖子

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

xaj21 · xaj21

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

iceman · iceman

回复 3楼xaj21的帖子

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

private void 添加ComboCellTypeToolStripMenuItem_Click(object sender, EventArgs e)
{
FarPoint.Win.Spread.CellType.ComboBoxCellType cmbocell = new FarPoint.Win.Spread.CellType.ComboBoxCellType();
cmbocell.Items = (new String[] { "January", "February", "March", "April", "May", "June" });
cmbocell.AcceptsArrowKeys = FarPoint.Win.SuperEdit.AcceptsArrowKeys.AllArrows;
cmbocell.AutoSearch = FarPoint.Win.AutoSearch.SingleCharacter;
cmbocell.Editable = true;
cmbocell.ListAlignment = FarPoint.Win.ListAlignment.Left;
cmbocell.ListOffset = 20;
cmbocell.ListWidth = 0;
cmbocell.MaxDrop = 4;
fpSpread1.Sheets[0].Cells[2, 2].CellType = cmbocell;
this.fpSpread1.EditModeOn += fpSpread1_EditModeOn;
}
void fpSpread1_EditModeOn(object sender, EventArgs e)
{
var fb = this.fpSpread1.EditingControl as FarPoint.Win.FpCombo;
fb.KeyDown += fb_KeyDown;
}
void fb_KeyDown(object sender, KeyEventArgs e)
{
}

复制代码

xaj21 · xaj21

封装的部分代码，通过这种方式实现的
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

xaj21 · xaj21

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

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
Dim ctl As FarPoint.Win.FpCombo = Me.EditingControl
If keyData = Keys.Left Then
If ctl.SelectedIndex > 0 Then
ctl.SelectedIndex = ctl.SelectedIndex - 1
End If
Return True
ElseIf keyData = Keys.Right Then
If ctl.SelectedIndex < ctl.ItemData.Count - 1 Then
ctl.SelectedIndex = ctl.SelectedIndex + 1
End If
Return True
End If
End If

复制代码

iceman · iceman

回复 6楼xaj21的帖子

请问现在问题解决了吧？

xaj21 · xaj21

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

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

iceman · iceman

回复 8楼xaj21的帖子

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

xaj21 · xaj21

附件是demo

WindowsApplication10.rar (88.64 KB, 下载次数: 2638)

		自动登录	找回密码
密码			立即注册

[已处理] 关于ComboBoxCell数值变化后文本全选状态

20 个回复

活字格认证

微信认证勋章

元老葡萄