表头按钮的压下效果

收藏

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

iceman · iceman

回复 1楼yangsq的帖子

请通过以下代码实现：

ButtonCellType bctype = new ButtonCellType();
private void Form1_Load(object sender, EventArgs e)
{
bctype.ButtonColor2 = Color.Red;
bctype.ButtonColor = Color.Yellow;
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
bctype.Picture= Image.FromFile(@"E:\tx19 - 副本.png");
}
private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button== System.Windows.Forms.MouseButtons.Left)
{
FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
if (ht.Type== FarPoint.Win.Spread.HitTestType.ColumnHeader)
{
bctype.Picture = Image.FromFile(@"E:\无标题.png");
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
}
}
}
private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
{
if (e.Button == System.Windows.Forms.MouseButtons.Left)
{
FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
if (ht.Type == FarPoint.Win.Spread.HitTestType.ColumnHeader)
{
bctype.Picture = Image.FromFile(@"E:\tx19 - 副本.png");
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
}
}
}

复制代码

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

yangsq · yangsq

回复 2楼iceman的帖子

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

yangsq · yangsq

回复 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

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

yangsq · yangsq

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
鼠标点下时取不到表头具体的位置吗？只判断是不是表头没有意义啊

iceman · iceman

回复 5楼yangsq的帖子

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

ButtonCellType bctype = new ButtonCellType();
bool flag = true;
private void Form1_Load(object sender, EventArgs e)
{
bctype.ButtonColor2 = Color.Red;
bctype.ButtonColor = Color.Yellow;
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
bctype.Picture= Image.FromFile(@"E:\tx19 - 副本.png");
}
private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button== System.Windows.Forms.MouseButtons.Left)
{
FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
if (ht.HeaderInfo!=null)
{
if (ht.HeaderInfo.Column==0 && ht.HeaderInfo.Row==0)
{
bctype.Picture = Image.FromFile(@"E:\无标题.png");
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
flag = false;
}
}
}
}
private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
{
if (e.Button == System.Windows.Forms.MouseButtons.Left && flag==false)
{
bctype.Picture = Image.FromFile(@"E:\tx19 - 副本.png");
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bctype;
flag = true;
}
}

复制代码

yangsq · yangsq

回复 6楼iceman的帖子

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

iceman · iceman

回复 7楼yangsq的帖子

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

ButtonCellType bttncell = new ButtonCellType();
bool flag = true;
private void Form1_Load(object sender, EventArgs e)
{
bttncell.Text = "Click";
bttncell.TextColor = Color.Red;
bttncell.WordWrap = true;
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
}
private void fpSpread1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button== System.Windows.Forms.MouseButtons.Left)
{
FarPoint.Win.Spread.HitTestInformation ht = this.fpSpread1.HitTest(e.X, e.Y);
if (ht.HeaderInfo!=null)
{
if (ht.HeaderInfo.Column==0 && ht.HeaderInfo.Row==0)
{
bttncell.TextColor = Color.Gray;
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
flag = false;
}
}
}
}
private void fpSpread1_MouseUp(object sender, MouseEventArgs e)
{
if (e.Button == System.Windows.Forms.MouseButtons.Left && flag==false)
{
bttncell.TextColor = Color.Red;
this.fpSpread1.ActiveSheet.ColumnHeader.Columns[0].CellType = bttncell;
flag = true;
}
}

复制代码

yangsq · yangsq

回复 8楼iceman的帖子

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

iceman · iceman

回复 9楼yangsq的帖子

这两个问题我没有重现附件是重现录像。

mouseclick_spread.zip (178.15 KB, 下载次数: 649)

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

[已处理] 表头按钮的压下效果

11 个回复

评分

活字格认证

微信认证勋章

元老葡萄