旧版本ButtonClicked事件的对应方法

求教，如何在Spread Win Form7 中处理旧版本的ButtonClicked事件？

新的ButtonClicked事件的响应范围以及事件消息类型都跟旧版本不同。
特别是ButtonDown这个事件属性，该如何获取？

以下是自定义事件的相关内容。

1. 
   
2. Public Shadows Event ButtonClicked(ByVal sender As Object, ByVal e As _DSpreadEvents_ButtonClickedEvent)
   
3. 
   
4. Private Sub MyBase_ButtonClicked(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles MyBase.ButtonClicked
   
5.         Dim buttonDown As Integer = 0
   
6.         '追加旧Spread的ButtonClicked事件参数ButtonDown
   
7. 
   
8.   '根据旧版本资料，Cell类型是复选框的时候，ButtonDown属性仅在复选框为选择或者灰色状态时为1
   
9.   ' Cell类型是按钮时，ButtonDown属性，仅在按钮被按下状态时，返回True。
   
10. 
    
11.         If checkButtonDown(e.Row, e.Column) = True Then
    
12.             buttonDown = 1
    
13.         End If
    
14.         Dim args = New _DSpreadEvents_ButtonClickedEvent(e.Column, e.Row, buttonDown)
    
15. 
    
16.         RaiseEvent ButtonClicked(sender, args)
    
17.     End Sub
    
18. 
    
19.     ' 增加判断函数，创建ButtonDown属性
    
20.     Private Function checkButtonDown(ByVal row As Integer, ByVal col As Integer) As Boolean
    
21.         If MyBase.ActiveSheet IsNot Nothing Then
    
22.             If TypeOf MyBase.ActiveSheet.Cells(row, col).CellType Is CellType.CheckBoxCellType Then
    
23. 
    
24.                 '复选框状态为选择，灰色的时候， ButtonDown = True
    
25.                 If MyBase.ActiveSheet.Cells(row, col).Value <> 0 Then
    
26.                     Return True
    
27.                 End If
    
28.             ElseIf TypeOf MyBase.ActiveSheet.Cells(row, col).CellType Is CellType.ButtonCellType Then
    
29.                 ' 问题： 如何获得按钮为按下状态？
    
30.                 Return True
    
31.             End If
    
32.         End If
    
33. 
    
34.         Return False
    
35.     End Function
    
36. 
    
37. ''' <summary>
    
38.     ''' 自定义消息类型ButtonClicked
    
39.     ''' </summary>
    
40.     ''' <remarks></remarks>
    
41.     Public Class _DSpreadEvents_ButtonClickedEvent
    
42.         '列
    
43.         Private _Col As Integer
    
44.         '行
    
45.         Private _Row As Integer
    
46.         '按钮
    
47.         Private _ButtonDown As Integer
    
48. 
    
49.         ''' <summary>
    
50.         ''' 构造函数
    
51.         ''' </summary>
    
52.         ''' <param name="col">列</param>
    
53.         ''' <param name="row">行</param>
    
54.         ''' <remarks></remarks>
    
55.         Public Sub New(ByVal col As Integer, ByVal row As Integer, ByVal button As Integer)
    
56.             Me._Col = col + 1
    
57.             Me._Row = row + 1
    
58.             Me._ButtonDown = button
    
59.         End Sub
    
60. 
    
61.         ''' <summary>
    
62.         ''' 列
    
63.         ''' </summary>
    
64.         ''' <value></value>
    
65.         ''' <returns></returns>
    
66.         ''' <remarks></remarks>
    
67.         Public Property Col() As Integer
    
68.             Get
    
69.                 Return _Col + 1
    
70.             End Get
    
71.             Set(value As Integer)
    
72.                 _Col = value
    
73.             End Set
    
74.         End Property
    
75. 
    
76.         ''' <summary>
    
77.         ''' 行
    
78.         ''' </summary>
    
79.         ''' <value></value>
    
80.         ''' <returns></returns>
    
81.         ''' <remarks></remarks>
    
82.         Public Property Row() As Integer
    
83.             Get
    
84.                 Return _Row + 1
    
85.             End Get
    
86.             Set(value As Integer)
    
87.                 _Row = value
    
88.             End Set
    
89.         End Property
    
90. 
    
91.         ''' <summary>
    
92.         ''' 按钮状态
    
93.         ''' </summary>
    
94.         ''' <value></value>
    
95.         ''' <returns></returns>
    
96.         ''' <remarks></remarks>
    
97.         Public Property ButtonDown() As Integer
    
98.             Get
    
99.                 Return _ButtonDown
    
100.             End Get
     
101.             Set(value As Integer)
     
102.                 _ButtonDown = value
     
103.             End Set
     
104.         End Property
     
105.     End Class

复制代码

请不吝赐教。

回复 1楼darkelf的帖子

darkelf 你好，
Spread Win Form7 中也同样有 ButtonClicked 事件：

1. 
   
2.   public Form2()
   
3.         {
   
4.             InitializeComponent();
   
5.             this.fpSpread1.Sheets[0].Cells[0, 0].CellType = new FarPoint.Win.Spread.CellType.ButtonCellType();
   
6.             this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
   
7.         }
   
8. 
   
9.         void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
   
10.         {
    
11.             throw new NotImplementedException();
    
12.         }

复制代码

iceman 您好

也就是说，利用您给出的方法，Spread Win Form7的BUttonClicked事件也可以获取到ButtonDown属性是吗？现在去测试一下。

回复 3楼darkelf的帖子

是的可以，测试结果如何？

结果还是不可以呀。

ButtonClicked的消息类型EditorNotifyEventArgs，获得不了ButtonDown的说。

可以具体说一下如何从最新的消息类型EditorNotifyEventArgs中取得旧版本Spread的ButtonDown属性的方法吗？

回复 5楼darkelf的帖子

darkelf 你好，
请问你之前使用的是什么版本？我理解 ButtonDown 是获取单元格中按钮点击事件。测试代码如下：

1. 
   
2. public Form1()
   
3.         {
   
4.             InitializeComponent();
   
5.             this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
   
6.             this.fpSpread1.Sheets[0].Columns[0].CellType = new FarPoint.Win.Spread.CellType.ButtonCellType();
   
7.         }
   
8. 
   
9.         void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
   
10.         {
    
11. 
    
12.         }
    

复制代码

具体版本不清楚。 只能说旧VB6程序中的ButtonClicked事件触发后，
在具体处理部分，有ButtonDown属性的判断分支流程。

2. Private Sub vaSpread2_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
4. If ButtonDown = 1 Then
5.     Process1
6. Else
7.     Proccess2
8. End IF

复制代码

然后在搜索关于ButtonClicked事件的时候，有得到这个事件的相关说明。
英文，ActiceX Spread8的说明，但是跟目前VB6实装的条件接近。我认为很可能就是这个。

http://www.gcpowertools.com/help/SpreadCOM/events14.html#510837

ButtonClicked事件
  在按钮单元格或者CheckBox单元格，按下时候触发事件。
  其中ButtonDown的类型为NUMBER。按钮按下时为True，其他时间为False； CheckBox的ThreeState状态为选择，备选的时候，ButtonDown为True，
非选择时候为False。

现在的情况是，按钮单元格和CheckBox单元格无论何时按下，都会触发事件，然后却无法获取ButtonDown属性。

在VB6的旧版中，只有ButtonDown为1（True）的时候；以及0（False）时，需要分别处理。所以在这里卡住了。

回复 7楼darkelf的帖子

ButtonCellType 也提供双态显示模式，可通过 FpButton 来判断当前状态：

1. 
   
2. public Form1()
   
3.         {
   
4.             InitializeComponent();
   
5.             this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
   
6. 
   
7.             FarPoint.Win.Spread.CellType.ButtonCellType bttncell = new FarPoint.Win.Spread.CellType.ButtonCellType();
   
8.             //设置 button 双模显示
   
9.             bttncell.TwoState = true;
   
10.             
    
11.             //未按下文本
    
12.             bttncell.Text = &quot;Click and hold...&quot;;
    
13.             //按下文本
    
14.             bttncell.TextDown = &quot;...you can see how words go to multiple lines. Now let go.&quot;;
    
15.             bttncell.TextColor = Color.Green;
    
16.             bttncell.WordWrap = true;
    
17.             fpSpread1.Sheets[0].Cells[3, 2].CellType = bttncell;
    
18.         }
    
19. 
    
20.         void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
    
21.         {
    
22.             FpButton fpbtn = e.EditingControl as FpButton;
    
23.             if (fpbtn.Value==1)
    
24.             {
    
25.                 MessageBox.Show(&quot;button已经按下&quot;);
    
26.             }
    
27.             else
    
28.             {
    
29.                 MessageBox.Show(&quot;button未按下&quot;);
    
30. 
    
31.             }
    
32.         }
    

复制代码

了解。非常感谢。
这样子就能完全获得需要的消息了。

完全正确的获取按钮消息了。
再次感恩。