找回密码
 立即注册

QQ登录

只需一步,快速开始

deppp

论坛元老

43

主题

123

帖子

4662

积分

论坛元老

积分
4662

活字格认证

deppp
论坛元老   /  发表于:2012-12-11 17:16  /   查看:5955  /  回复:6
不好意思又来问了。

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

6 个回复

倒序浏览
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-12-11 18:49:00
沙发
可以设置Editor,而不要设置CellType:
  1. fpSpread1.Sheets[0].Columns[0].Editor = new FarPoint.Win.Spread.CellType.ComboBoxCellType();
复制代码
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-12-12 10:30:00
板凳
还可以这样,谢谢。
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-12-12 14:52:00
地板
还有两个个问题:
1.现在设置了items和itemData后,发现无法用cells.value取出itemData的值

代码如下
  1.         Dim tempEditor As New FarPoint.Win.Spread.CellType.ComboBoxCellType

  2.         Dim txtList(0) As String
  3.         Dim dataList(0) As String
  4.         txtList(0) = ""
  5.         dataList(0) = ""

  6.         For jCount = 0 To 4
  7.             ReDim Preserve txtList(jCount)
  8.             ReDim Preserve dataList(jCount)
  9.             txtList(jCount) = jCount.ToString & "aaa"
  10.             dataList(jCount) = jCount.ToString & "000"

  11.         Next jCount

  12.         tempEditor.Items = txtList
  13.         tempEditor.ItemData = dataList

  14.         tempEditor.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.String


  15.         FpSpread1.ActiveSheet.Columns(1).Editor = tempEditor
复制代码


2.现在是鼠标单击则自动打开下拉列表,如何能让单击的时候是选择单元格,双击的时候才打开下拉列表呢?
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-12-12 17:08:00
5#
:yun dof呢
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2012-12-12 17:24:00
6#
回复 4楼deppp的帖子

以下代码和你的需求最接近,不过还是会在单击单元格时显示下拉框:
  1. Public Class Form1

  2.     Dim txtList As New List(Of String)
  3.     Dim dataList As New List(Of String)

  4.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  5.         Dim tempEditor As New FarPoint.Win.Spread.CellType.ComboBoxCellType


  6.         For jCount = 0 To 4

  7.             txtList.Add(jCount.ToString & "aaa")
  8.             dataList.Add(jCount.ToString & "000")

  9.         Next jCount

  10.         tempEditor.Items = txtList.ToArray()
  11.         tempEditor.ItemData = dataList.ToArray()
  12.         tempEditor.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
  13.         FpSpread1.ButtonDrawMode = FarPoint.Win.Spread.ButtonDrawModes.CurrentCell
  14.         FpSpread1.ActiveSheet.Columns(1).CellType = tempEditor
  15.     End Sub

  16.     Private Sub 取值ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 取值ToolStripMenuItem.Click
  17.         MsgBox(FpSpread1.ActiveSheet.ActiveCell.Text)
  18.     End Sub

  19.     Private Sub 取ValueToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 取ValueToolStripMenuItem.Click
  20.         MsgBox(FpSpread1.ActiveSheet.ActiveCell.Value)
  21.     End Sub
  22. End Class
复制代码
回复 使用道具 举报
deppp
论坛元老   /  发表于:2012-12-12 18:14:00
7#
谢谢。
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部