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

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

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

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

复制代码

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

复制代码

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 值

jplzj 你好

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

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

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

谢谢，期待着！！！

jplzj 你好

附件中是一个自定义Combo的大概实现方法，主要是重写CellType的PaintCell、GetEditorControl、GetEditorValue和SetEditorValue方法
5789_ComboBox_VB.zip (12.69 KB, 下载次数: 273)

2012-8-27 20:00 上传

点击文件名下载附件

谢谢了，好好研究研究。

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