表头按钮的压下效果

现在在表头上加了很多按钮，之前问过说表头的按钮不能触发事件，只能通过CellClick捕捉，虽然想要的功能实现了，但是没有点击效果，请问能有办法实现点击效果吗？什么方法都可以，只要有压下那种感觉就行。类似于换一下颜色再换回来那种的（这个我试了，好像在事件结束前颜色都不会被反映到画面上）。

回复 1楼yangsq的帖子

请通过以下代码实现：

1. 
   
2. ButtonCellType bctype = new ButtonCellType();
   
3. 
   
4.         private void Form1_Load(object sender, EventArgs e)
   
5.         {
   
6.             bctype.ButtonColor2 = Color.Red;
   
7.             bctype.ButtonColor = Color.Yellow;
   
8. 
   
9.             this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
   
10. 
    
11.             bctype.Picture= Image.FromFile(@"E:\tx19 - 副本.png");
    
12.         }
    
13. 
    
14.         private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
    
15.         {
    
16.             if (e.Button== System.Windows.Forms.MouseButtons.Left)
    
17.             {
    
18.                 FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
    
19.                 if (ht.Type== FarPoint.Win.Spread.HitTestType.ColumnHeader)
    
20.                 {
    
21.                     bctype.Picture = Image.FromFile(@"E:\无标题.png");
    
22.                     this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;         
    
23.                 }
    
24.             }
    
25.         }
    
26. 
    
27.         private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
    
28.         {
    
29.             if (e.Button == System.Windows.Forms.MouseButtons.Left)
    
30.             {
    
31.                 FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
    
32.                 if (ht.Type == FarPoint.Win.Spread.HitTestType.ColumnHeader)
    
33.                 {
    
34.                     bctype.Picture = Image.FromFile(@"E:\tx19 - 副本.png");
    
35.                     this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
    
36.                 }
    
37.             }
    
38.         }
    

复制代码

为了给你提供更优质的服务，请对本次服务进行评分。我们会认真对待你提出的宝贵意见，谢谢

回复 2楼iceman的帖子

谢谢回答，通过捕捉鼠标点击事件确实是一个很好的思路，但是能不能不通过图片设置呢？客户这边追加图片文件什么的很麻烦。
还有不知道是我的版本问题还是什么原因（版本FarPoint.Win.SpreadJ7.0.2016.2008），当我点击时按钮会发生变化，但是在按钮范围内松开时，不会变回去，只有鼠标离开按钮范围才会变回去。

回复 3楼yangsq的帖子

Imports FarPoint.Win

Public Class Form2
    Dim bttncell As New FarPoint.Win.Spread.CellType.ButtonCellType()

    Dim flg As Boolean = False

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        bttncell.Text = "Click"
        bttncell.TextColor = Color.Black
        bttncell.WordWrap = True

        Me.FpSpread1.ActiveSheet.ColumnHeader.Columns(0).CellType = bttncell
    End Sub


    Private Sub FpSpread1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles FpSpread1.MouseDown
        If (e.Button = System.Windows.Forms.MouseButtons.Left) Then


            Dim ht As FarPoint.Win.Spread.HitTestInformation = Me.FpSpread1.HitTest(e.X, e.Y)


            If (ht.Type = FarPoint.Win.Spread.HitTestType.ColumnHeader) And flg = False Then

                bttncell.TextColor = Color.Gray

                Me.FpSpread1.ActiveSheet.ColumnHeader.Columns(0).CellType = bttncell
                flg = True

            End If
        End If

    End Sub

    Private Sub FpSpread1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles FpSpread1.MouseUp
        If (e.Button = System.Windows.Forms.MouseButtons.Left) Then

            Dim ht As FarPoint.Win.Spread.HitTestInformation = Me.FpSpread1.HitTest(e.X, e.Y)

            If flg = True Then
                bttncell.TextColor = Color.Black
                Me.FpSpread1.ActiveSheet.ColumnHeader.Columns(0).CellType = bttncell
                flg = False
            End If
        End If
    End Sub
End Class

我这样做大概能实现想要的效果，但是还是有我上面说的问题，另外就是在按钮上压下之后，去其他地方松开，按钮不会恢复，原因好像是按钮的效果没反映上去，切换下画面什么的再回来颜色就会恢复，这种问题有解决方案吗？

Dim ht As FarPoint.Win.Spread.HitTestInformation = Me.FpSpread1.HitTest(e.X, e.Y)
If (ht.Type = FarPoint.Win.Spread.HitTestType.ColumnHeader) And flg = False Then
End If
鼠标点下时取不到表头具体的位置吗？只判断是不是表头没有意义啊

回复 5楼yangsq的帖子

实现方法比较粗暴，看能否解决你的问题：

1. 
   
2. ButtonCellType bctype = new ButtonCellType();
   
3.         bool flag = true;
   
4.         private void Form1_Load(object sender, EventArgs e)
   
5.         {
   
6.             bctype.ButtonColor2 = Color.Red;
   
7.             bctype.ButtonColor = Color.Yellow;
   
8. 
   
9.             this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
   
10. 
    
11.             bctype.Picture= Image.FromFile(@"E:\tx19 - 副本.png");
    
12.         }
    
13. 
    
14.         private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
    
15.         {
    
16.             if (e.Button== System.Windows.Forms.MouseButtons.Left)
    
17.             {
    
18.                 FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
    
19.                 if (ht.HeaderInfo!=null)
    
20.                 {
    
21.                     if (ht.HeaderInfo.Column==0 && ht.HeaderInfo.Row==0)
    
22.                     {
    
23.                         bctype.Picture = Image.FromFile(@"E:\无标题.png");
    
24.                         this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
    
25.                         flag = false;
    
26.                     }
    
27.                 }
    
28.             }
    
29.         }
    
30. 
    
31.         private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
    
32.         {
    
33.             if (e.Button == System.Windows.Forms.MouseButtons.Left && flag==false)
    
34.             {
    
35.                 bctype.Picture = Image.FromFile(@"E:\tx19 - 副本.png");
    
36.                 this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
    
37.                 flag = true;
    
38.             }
    
39.         }
    

复制代码

回复 6楼iceman的帖子

谢谢回答，位置判断没问题了
客户这边不让用图片实现点击效果，用我在4楼那种控制bttncell.TextColor 的方法的话，不知道能不能再现以下2个问题：
1，点击鼠标时按钮会发生变化，但是在按钮范围内松开鼠标时，不会变回去，只有鼠标离开按钮范围才会变回去。
2，在按钮上压下鼠标之后，去其他地方松开鼠标，按钮不会恢复（原因好像是按钮的效果没反映上去，切换下画面什么的再回来颜色就会恢复）

回复 7楼yangsq的帖子

请问 6# 代码尝试了吗？以下代码替换为 textcolor 也没问题。
另外，还是建议你用冻结行来模拟列头。不知道你这边没有采纳的顾虑是什么？

1. 
   
2. ButtonCellType bttncell = new ButtonCellType();
   
3.         bool flag = true;
   
4.         private void Form1_Load(object sender, EventArgs e)
   
5.         {
   
6.             bttncell.Text = "Click";
   
7.             bttncell.TextColor = Color.Red;
   
8.             bttncell.WordWrap = true;
   
9. 
   
10.             this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
    
11.         }
    
12. 
    
13.         private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
    
14.         {
    
15.             if (e.Button== System.Windows.Forms.MouseButtons.Left)
    
16.             {
    
17.                 FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
    
18.                 if (ht.HeaderInfo!=null)
    
19.                 {
    
20.                     if (ht.HeaderInfo.Column==0 && ht.HeaderInfo.Row==0)
    
21.                     {
    
22.                         bttncell.TextColor = Color.Gray;
    
23.                         this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
    
24.                         flag = false;
    
25.                     }
    
26.                 }
    
27.             }
    
28.         }
    
29. 
    
30.         private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
    
31.         {
    
32.             if (e.Button == System.Windows.Forms.MouseButtons.Left && flag==false)
    
33.             {
    
34.                 bttncell.TextColor = Color.Red;
    
35.                 this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
    
36.                 flag = true;
    
37.             }
    
38.         }
    

复制代码

回复 8楼iceman的帖子

代码试过了，还是有我说的那两个问题。
没有用模拟列头，是因为这次不是直接创建新的画面，是用Spread来替换Datagridview，用模拟列头的话考虑改修范围和量比较大，容易出bug，而且不是所有的画面都是有按钮的，考虑到画面样式统一性，最终确定不用模拟列头。
现在在CellClick事件中用了下面的代码来模拟点击效果，但这是没办法的办法了，如果上面那种方法的问题解决的话，还是希望能用上面的。
      Me.regulationFpSpread.Enabled = False
        System.Threading.Thread.Sleep(50)
        Me.regulationFpSpread.Enabled = True

回复 9楼yangsq的帖子

这两个问题我没有重现附件是重现录像。
mouseclick_spread.zip (178.15 KB, 下载次数: 649)

2015-1-16 10:34 上传

点击文件名下载附件

重现 Demo：VS2013 + Spread 8.0 + C# + .NET4.0
15365.zip (62.65 KB, 下载次数: 681)

2015-1-16 10:34 上传

点击文件名下载附件