Spread插入透明背景图片如何设置才能显示为透明的？

收藏

版主你好，

我的需求是在Spead表格中添加透明图片（比如印章），让其透明显示，请参考下图：

Spread透明图片.jpg (24.01 KB, 下载次数: 488)

gdrle · gdrle

版主，背景设置问题解决了：

Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
''设置背景及边线透明
rShape.BackColor = Color.Transparent
rShape.ShapeOutlineColor = Color.Transparent
rShape.Picture = image
rShape.Location = New Point(20, 60)
rShape.Name = "myRect1"
rShape.PictureTransparencyColor = Color.FromArgb(0, 255, 255, 255)
vass.ActiveSheet.RemoveShape("myRect1")
vass.ActiveSheet.AddShape(rShape)

复制代码

还有一个问题：
我如何设置这个图片的位置呢，如何将其放置在制定单元格内（比如 A列18行对应的表格为制表人，我要把这个印章放到A列18行位置），并且位置不可拖动？还请帮忙解决。

iceman · iceman

回复 2楼gdrle的帖子

抱歉让你久等了，2# 问题测试代码如下：

//添加Shape
FarPoint.Win.Spread.DrawingSpace.RectangleShape rShape = new FarPoint.Win.Spread.DrawingSpace.RectangleShape();
rShape.Name = "myRect1";
rShape.BackColor = Color.Blue;
//锁定 Shape
rShape.Locked = true;
//获取单元格位置及大小
Rectangle cellrec = this.fpSpread1.GetCellRectangle(0, 0, 17, 1);
rShape.Width = cellrec.Width;
rShape.Height = cellrec.Height;
rShape.Left = cellrec.Left-(int)this.fpSpread1.ActiveSheet.SheetCorner.Columns[0].Width;
rShape.Top = cellrec.Top - (int)this.fpSpread1.ActiveSheet.SheetCorner.Rows[0].Height;
this.fpSpread1.Sheets[0].AddShape(rShape);

复制代码

gdrle · gdrle

谢谢版主回复，现在还是有点问题，我用的是VS2010+VB.NET+SPREAD.NET 6,
使用你给的方法获取不到指定单元格的坐标，请参考下图：

GetCellRectangle.jpg (68.34 KB, 下载次数: 444)

gdrle · gdrle

取不到的值的问题解决了。

不要在shape处理的时候调用函数取值：

Dim p As Point = getSpreadCellRect(FpSpread1, FpSpread1.ActiveSheet.ActiveRowIndex, FpSpread1.ActiveSheet.ActiveColumnIndex)
Dim image As Bitmap = System.Drawing.Image.FromFile(Application.StartupPath & "\img\nb.gif")
Dim rShape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
rShape.BackColor = Color.Transparent
rShape.ShapeOutlineColor = Color.Transparent
rShape.Picture = image
rShape.Location = p
rShape.Name = "myRect1"
rShape.Locked = True
FpSpread1.ActiveSheet.RemoveShape("myRect1")
FpSpread1.ActiveSheet.AddShape(rShape)
MessageBox.Show("X:" & p.X & ",Y:" & p.Y)

复制代码

不过这样取的结果只能是可见单元格的坐标，如果取的单元格位于不可见区域（通过拖动滚动条选取）则取到的值跟我想要的不一样，看来是通过for循环累加行高和列宽吧，不知道版主有没有更好的方法。

iceman · iceman

回复 5楼gdrle的帖子

你好，
不可见区域，是需要通过 for循环累加行高和列宽来获取，注意要考虑边框的高度"1px"。

gdrle · gdrle

上传个Demo Mark一下，以备后用（VS 2010 + VB.NET +SPREAD.NET 6)：

SpreadSeal.zip (110.13 KB, 下载次数: 540)

iceman · iceman

回复 7楼gdrle的帖子

感谢上传demo，给您分发 500 金币。可以用于兑换论坛奖品。
金币规则：点击进入
礼品列表：点击进入

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

[已处理] Spread插入透明背景图片如何设置才能显示为透明的？