| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何把这个图形放入 table 的单元格里? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90500) |
| -- 作者：ljh29206 -- 发布时间：2016/9/14 12:34:00 -- 如何把这个图形放入 table 的单元格里? Dim points(6) As Point points(0) = New Point(e.Width /2,0) points(1) = New Point(5, e.Height ) points(2) = New Point(e.Width -5 , 5) points(3) = New Point(5,5) points(4) = New Point(e.Width -5, e.Height ) points(5) = New Point(e.Width /2,0) e.Graphics.DrawLines(Pens.Green, points) 还是没搞好,请问单元格的 五角星 ,怎么连线才能连的出来
[此贴子已经被作者于2016/9/14 12:40:41编辑过]
|
| -- 作者：逛逛 -- 发布时间：2016/9/14 13:56:00 -- Dim xc As Single = e.X + e.Width/2 \'中心点 Dim yc As Single = e.Y + e.Height/2 Dim r As Single \'半径 If e.Height > e.Width Then r = e.Width/2 - 1 Else r = e.Height/2 - 1 End If Dim points(5) As PointF points(0) = New PointF(xc , yc - r) \'第一点 上 points(1) = New PointF(xc + r * Math.Cos(18) ,yc - r * Math.Sin(18) + 1) \'右上 points(2) = New PointF(xc + r * Math.Cos(54),yc + r * Math.Sin(54)) \'右下 points(3) = New PointF(xc - r * Math.Cos(54),yc + r * Math.Sin(54)) \'左下 points(4) = New PointF(xc - r *Math.Cos(18),yc - r * Math.Sin(18) + 1) \'左上 points(5) = New PointF(xc , yc - r) e.Graphics.DrawLines(Pens.Green, points) 还是找个图片吧，省事。
|
| -- 作者：ljh29206 -- 发布时间：2016/9/14 15:29:00 -- 版主的逻辑真好!,谢谢了 [此贴子已经被作者于2016/9/14 15:31:05编辑过]
|