旧版本ButtonClicked事件的对应方法

收藏

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

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

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

Public Shadows Event ButtonClicked(ByVal sender As Object, ByVal e As _DSpreadEvents_ButtonClickedEvent)
Private Sub MyBase_ButtonClicked(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles MyBase.ButtonClicked
Dim buttonDown As Integer = 0
'追加旧Spread的ButtonClicked事件参数ButtonDown
'根据旧版本资料，Cell类型是复选框的时候，ButtonDown属性仅在复选框为选择或者灰色状态时为1
' Cell类型是按钮时，ButtonDown属性，仅在按钮被按下状态时，返回True。
If checkButtonDown(e.Row, e.Column) = True Then
buttonDown = 1
End If
Dim args = New _DSpreadEvents_ButtonClickedEvent(e.Column, e.Row, buttonDown)
RaiseEvent ButtonClicked(sender, args)
End Sub
' 增加判断函数，创建ButtonDown属性
Private Function checkButtonDown(ByVal row As Integer, ByVal col As Integer) As Boolean
If MyBase.ActiveSheet IsNot Nothing Then
If TypeOf MyBase.ActiveSheet.Cells(row, col).CellType Is CellType.CheckBoxCellType Then
'复选框状态为选择，灰色的时候， ButtonDown = True
If MyBase.ActiveSheet.Cells(row, col).Value <> 0 Then
Return True
End If
ElseIf TypeOf MyBase.ActiveSheet.Cells(row, col).CellType Is CellType.ButtonCellType Then
' 问题：如何获得按钮为按下状态？
Return True
End If
End If
Return False
End Function
''' <summary>
''' 自定义消息类型ButtonClicked
''' </summary>
''' <remarks></remarks>
Public Class _DSpreadEvents_ButtonClickedEvent
'列
Private _Col As Integer
'行
Private _Row As Integer
'按钮
Private _ButtonDown As Integer
''' <summary>
''' 构造函数
''' </summary>
''' <param name="col">列</param>
''' <param name="row">行</param>
''' <remarks></remarks>
Public Sub New(ByVal col As Integer, ByVal row As Integer, ByVal button As Integer)
Me._Col = col + 1
Me._Row = row + 1
Me._ButtonDown = button
End Sub
''' <summary>
''' 列
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Col() As Integer
Get
Return _Col + 1
End Get
Set(value As Integer)
_Col = value
End Set
End Property
''' <summary>
''' 行
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Row() As Integer
Get
Return _Row + 1
End Get
Set(value As Integer)
_Row = value
End Set
End Property
''' <summary>
''' 按钮状态
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property ButtonDown() As Integer
Get
Return _ButtonDown
End Get
Set(value As Integer)
_ButtonDown = value
End Set
End Property
End Class

复制代码

请不吝赐教。

iceman · iceman

回复 1楼darkelf的帖子

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

public Form2()
{
InitializeComponent();
this.fpSpread1.Sheets[0].Cells[0, 0].CellType = new FarPoint.Win.Spread.CellType.ButtonCellType();
this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
}
void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
{
throw new NotImplementedException();
}

复制代码

darkelf · darkelf

iceman 您好

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

iceman · iceman

回复 3楼darkelf的帖子

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

darkelf · darkelf

结果还是不可以呀。

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

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

iceman · iceman

回复 5楼darkelf的帖子

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

public Form1()
{
InitializeComponent();
this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
this.fpSpread1.Sheets[0].Columns[0].CellType = new FarPoint.Win.Spread.CellType.ButtonCellType();
}
void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
{
}

复制代码

darkelf · darkelf

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

Private Sub vaSpread2_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
If ButtonDown = 1 Then
Process1
Else
Proccess2
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）时，需要分别处理。所以在这里卡住了。

iceman · iceman

回复 7楼darkelf的帖子

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

public Form1()
{
InitializeComponent();
this.fpSpread1.ButtonClicked += new FarPoint.Win.Spread.EditorNotifyEventHandler(fpSpread1_ButtonClicked);
FarPoint.Win.Spread.CellType.ButtonCellType bttncell = new FarPoint.Win.Spread.CellType.ButtonCellType();
//设置 button 双模显示
bttncell.TwoState = true;
//未按下文本
bttncell.Text = "Click and hold...";
//按下文本
bttncell.TextDown = "...you can see how words go to multiple lines. Now let go.";
bttncell.TextColor = Color.Green;
bttncell.WordWrap = true;
fpSpread1.Sheets[0].Cells[3, 2].CellType = bttncell;
}
void fpSpread1_ButtonClicked(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
{
FpButton fpbtn = e.EditingControl as FpButton;
if (fpbtn.Value==1)
{
MessageBox.Show("button已经按下");
}
else
{
MessageBox.Show("button未按下");
}
}

复制代码

darkelf · darkelf

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

darkelf · darkelf

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

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

[已处理] 旧版本ButtonClicked事件的对应方法

10 个回复

活字格认证

微信认证勋章

元老葡萄