Spread5 关于combox按钮

不好意思又来问了。

关于Combox的按钮能否设置成当只有当cell获得焦点的时候才显示，平常是不显示的呢？

可以设置Editor，而不要设置CellType：

1. fpSpread1.Sheets[0].Columns[0].Editor = new FarPoint.Win.Spread.CellType.ComboBoxCellType();

复制代码

还可以这样，谢谢。

还有两个个问题：
1.现在设置了items和itemData后，发现无法用cells.value取出itemData的值

代码如下

1.         Dim tempEditor As New FarPoint.Win.Spread.CellType.ComboBoxCellType
   
2. 
   
3.         Dim txtList(0) As String
   
4.         Dim dataList(0) As String
   
5.         txtList(0) = ""
   
6.         dataList(0) = ""
   
7. 
   
8.         For jCount = 0 To 4
   
9.             ReDim Preserve txtList(jCount)
   
10.             ReDim Preserve dataList(jCount)
    
11.             txtList(jCount) = jCount.ToString & "aaa"
    
12.             dataList(jCount) = jCount.ToString & "000"
    
13. 
    
14.         Next jCount
    
15. 
    
16.         tempEditor.Items = txtList
    
17.         tempEditor.ItemData = dataList
    
18. 
    
19.         tempEditor.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.String
    
20. 
    
21. 
    
22.         FpSpread1.ActiveSheet.Columns(1).Editor = tempEditor

复制代码

2.现在是鼠标单击则自动打开下拉列表，如何能让单击的时候是选择单元格，双击的时候才打开下拉列表呢？

:yun dof呢

回复 4楼deppp的帖子

以下代码和你的需求最接近，不过还是会在单击单元格时显示下拉框：

1. Public Class Form1
   
2. 
   
3.     Dim txtList As New List(Of String)
   
4.     Dim dataList As New List(Of String)
   
5. 
   
6.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         Dim tempEditor As New FarPoint.Win.Spread.CellType.ComboBoxCellType
   
8. 
   
9. 
   
10.         For jCount = 0 To 4
    
11. 
    
12.             txtList.Add(jCount.ToString & "aaa")
    
13.             dataList.Add(jCount.ToString & "000")
    
14. 
    
15.         Next jCount
    
16. 
    
17.         tempEditor.Items = txtList.ToArray()
    
18.         tempEditor.ItemData = dataList.ToArray()
    
19.         tempEditor.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
    
20.         FpSpread1.ButtonDrawMode = FarPoint.Win.Spread.ButtonDrawModes.CurrentCell
    
21.         FpSpread1.ActiveSheet.Columns(1).CellType = tempEditor
    
22.     End Sub
    
23. 
    
24.     Private Sub 取值ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 取值ToolStripMenuItem.Click
    
25.         MsgBox(FpSpread1.ActiveSheet.ActiveCell.Text)
    
26.     End Sub
    
27. 
    
28.     Private Sub 取ValueToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 取ValueToolStripMenuItem.Click
    
29.         MsgBox(FpSpread1.ActiveSheet.ActiveCell.Value)
    
30.     End Sub
    
31. End Class

复制代码

谢谢。