在FP中能否自定义单元格类型，使COMBBOX不显示下拉箭头

jplzj · jplzj

还有个问题，如何不让下拉列表显示呢?

ZenosZeng · ZenosZeng

不显示下拉列表，就无法修改单元格的值了啊。
如果不需要显示下拉列表，返回的Editor就可以直接使用TextBox就可以。

jplzj · jplzj

我使用自定义的其它方法给它赋值

jplzj · jplzj

老大能不显示吗？

ZenosZeng · ZenosZeng

回复 14楼jplzj的帖子

稍微修改一下自定义的CellType类型：

Public Class MyComboCellType
Inherits FarPoint.Win.Spread.CellType.GeneralCellType
Dim editor As FarPoint.Win.FpCombo
Dim ItemSource As Dictionary(Of String, String)
Public Sub New(ByVal data As Dictionary(Of String, String))
ItemSource = data
Dim l_Items As New List(Of String)
Dim l_Itemdata As New List(Of String)
For Each key As String In data.Keys
l_Items.Add(data(key))
l_Itemdata.Add(key)
Next
editor = New FarPoint.Win.FpCombo()
editor.Editable = True
editor.BorderStyle = BorderStyle.None
editor.BackgroundColor = Color.White
editor.List.AddRange(l_Items.ToArray())
editor.ItemData.AddRange(l_Itemdata.ToArray())
End Sub
Public Overrides Sub PaintCell(ByVal g As System.Drawing.Graphics, ByVal r As System.Drawing.Rectangle, ByVal appearance As FarPoint.Win.Spread.Appearance, ByVal value As Object, ByVal isSelected As Boolean, ByVal isLocked As Boolean, ByVal zoomFactor As Single)
If Not value Is Nothing Then
value = ItemSource(value.ToString())
End If
MyBase.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor)
End Sub
Public Overrides Function GetEditorControl(ByVal parent As System.Windows.Forms.Control, ByVal appearance As FarPoint.Win.Spread.Appearance, ByVal zoomFactor As Single) As System.Windows.Forms.Control
Return editor
End Function
Public Overrides Function GetEditorValue() As Object
If editor.SelectedIndex = -1 Then
Return Nothing
End If
For Each key As String In ItemSource.Keys
If ItemSource(key).Equals(editor.SelectedItem.ToString()) Then
Return key
End If
Next
Return Nothing
End Function
Public Overrides Sub SetEditorValue(ByVal value As Object)
Dim index As Integer = -1
If value Is Nothing Then
editor.Text = ""
editor.SelectedIndex = index
Return
End If
For Each key As String In ItemSource.Keys
index = index + 1
If key.Equals(value.ToString()) Then
editor.SelectedIndex = index
Return
End If
Next
End Sub
End Class

复制代码

jplzj · jplzj

老大没休息呀，我还想着明天才能回复呢

ZenosZeng · ZenosZeng

每周二是我们的【客户日】，除了解决用户问题外，还会集中讨论客户反馈的信息。

jplzj · jplzj

原来如此呀，辛苦辛苦！

jplzj · jplzj

还有一个问题，上面这个类如何实现序列化和反序列化，我想对单元格进行复制和粘贴。

iceman · iceman

回复 19楼jplzj的帖子

自定义单元格类型无法针对您自定义部分进行序列号和反序列化。
需要您这边自主实现，重载 Serialize 和 Deserialize 方法去自定义。

复制和粘帖是在同一个实例中进行的吗？可以把单元格类型设置为全局变量，操作快捷键即可。

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

在FP中能否自定义单元格类型，使COMBBOX不显示下拉箭头

活字格认证

微信认证勋章

圣诞拼拼乐

讲师达人

元老葡萄

悬赏达人