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

收藏

在FP中能否自定义单元格类型，使COMBBOX不显示下拉箭头（vb.net 2005+fp6.0）

ZenosZeng · ZenosZeng

可以尝试使用下面的代码：

Public Class MyCombo
Inherits FarPoint.Win.Spread.CellType.ComboBoxCellType
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
Dim editor As FarPoint.Win.FpCombo = MyBase.GetEditorControl(parent, appearance, zoomFactor)
editor.ButtonStyle = FarPoint.Win.ButtonStyle.None
Return editor
End Function
End Class

复制代码

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mycmb As New MyCombo
mycmb.Items = New String() {"AA", "BB"}
FpSpread1.ActiveSheet.Columns(1).Editor = mycmb
End Sub

复制代码

jplzj · jplzj

Dim mycmb As New MyCombo
      mycmb.Items = New String() {"AA", "BB"}
      mycmb.ItemData = New String() {"A", "B"}
      mycmb.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
      FpSpread1.ActiveSheet.Columns(1).Editor = mycmb
使用上面的语句在选择后显示的是ItemData 的值，我想要显示Items，可以获得ItemData 值

ZenosZeng · ZenosZeng

jplzj 你好

如果需要使用ItemData，就无法隐藏ComboBox的按钮；两个功能不能通过现有的ComboBox同时实现，只能完全实现自己的CellType才可以。

jplzj · jplzj

如何实现，能否帮忙实现一下。

ZenosZeng · ZenosZeng

好的，我调试好之后发送给你。

jplzj · jplzj

谢谢，期待着！！！

ZenosZeng · ZenosZeng

jplzj 你好

附件中是一个自定义Combo的大概实现方法，主要是重写CellType的PaintCell、GetEditorControl、GetEditorValue和SetEditorValue方法

5789_ComboBox_VB.zip (12.69 KB, 下载次数: 273)

jplzj · jplzj

谢谢了，好好研究研究。

ZenosZeng · ZenosZeng

好的，有问题可继续联系我们。

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

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

25 个回复

活字格认证

微信认证勋章

圣诞拼拼乐

讲师达人

元老葡萄

悬赏达人