画特殊的五角星

dongdonggege

请问，这个特殊的五角星怎么画？或者连阴影效果一起做出来，不要插入的那种。

dongdonggege

原来我以为，Word论坛高手如云，现在感觉太冷清了。
下面是我画的两种五角星，和我要求的还太远。

1. Sub drawstar()
   
2.     Dim p(5, 1) As Integer
   
3.     pi = 3.1415926: r = 80: m = 126
   
4.     For i = 0 To 5
   
5.         p(i, 0) = r * Cos((m + i * 144) / 180 * pi)
   
6.         p(i, 1) = r * Sin((m + i * 144) / 180 * pi)
   
7.     Next
   
8.     For j = 0 To 4
   
9.         Set shp = ActiveDocument.Shapes.AddLine(p(j, 0) + 360, p(j, 1) + 270, p(j + 1, 0) + 360, p(j + 1, 1) + 270)
   
10.     Next
    
11. End Sub

复制代码

1. Sub drawstar2()
   
2.     Dim p(5, 1) As Integer
   
3.     Dim p1(5, 1) As Integer
   
4.     pi = 3.1415926
   
5.     For i = 0 To 5
   
6.         p(i, 0) = 81 * Cos((54 + i * 144) / 180 * pi)
   
7.         p(i, 1) = 81 * Sin((54 + i * 144) / 180 * pi)
   
8.         p1(i, 0) = 31 * Cos((15 + i * 144) / 180 * pi)
   
9.         p1(i, 1) = 31 * Sin((15 + i * 144) / 180 * pi)
   
10.     Next
    
11.     For i = 1 To 5
    
12.         Set shp = ActiveDocument.Shapes.AddLine(p(i, 0) + 360, p(i, 1) + 270, p1(i, 0) + 360, p1(i, 1) + 270)
    
13.     Next
    
14.     For i = 1 To 4
    
15.         Set shp = ActiveDocument.Shapes.AddLine(p(i + 1, 0) + 360, p(i + 1, 1) + 270, p1(i - 1, 0) + 360, p1(i - 1, 1) + 270)
    
16.     Next
    
17.     Set shp = ActiveDocument.Shapes.AddLine(p(1, 0) + 360, p(1, 1) + 270, p1(4, 0) + 360, p1(4, 1) + 270)
    
18. End Sub

复制代码

这个效果见图，一个空心，一个不是，顺序可能前后不一致。

dongdonggege

求助论坛的高手

vbee

依葫芦画瓢

dongdonggege

vbee 发表于 2023-9-20 12:38
依葫芦画瓢

能画出来，很好，能分享你的程序吗？

vbee

特殊的五角星怎么画

dongdonggege

vbee 发表于 2023-9-20 14:46
特殊的五角星怎么画

请问，填颜色这块，你怎么处理？

lss001

见楼下代码……

dongdonggege

lss001 发表于 2023-9-20 16:30
使用GDI在窗体上绘制渐变色填充五角星
请参考一下附件代码

感谢老师，很牛，感觉那个渐变色，做的很好。

dongdonggege

vbee 发表于 2023-9-20 14:46
特殊的五角星怎么画

1. Sub drawstar5()
   
2.     Dim ARR(1 To 4, 1 To 2) As Single
   
3.     pi = 3.1415926
   
4.     ActiveDocument.Shapes.SelectAll
   
5.     Selection.Delete
   
6.     A = 300: B = 200
   
7.     ARR(1, 1) = A: ARR(1, 2) = B
   
8.     ARR(4, 1) = ARR(1, 1): ARR(4, 2) = ARR(1, 2)
   
9.    
   
10.     l = 150
    
11.     For i = 0 To 9
    
12.         ARR(2, 1) = A + l * Cos((36 * i + 36 + 18) * pi / 180)
    
13.         ARR(2, 2) = B - l * Sin((36 * i + 36 + 18) * pi / 180)
    
14.         ARR(3, 1) = A + l * 0.5 * Cos((36 * i + 36 + 18) * pi / 180)
    
15.         ARR(3, 2) = B - l * 0.5 * Sin((36 * i + 36 + 18) * pi / 180)
    
16.         If i Mod 2 = 1 Then
    
17.             ARR(2, 1) = x: ARR(2, 2) = Y
    
18.             ARR(3, 1) = A + l * Cos((36 * i + 36 + 18) * pi / 180)
    
19.             ARR(3, 2) = B - l * Sin((36 * i + 36 + 18) * pi / 180)
    
20.         End If
    
21.         ActiveDocument.Shapes.AddPolyline ARR
    
22.         x = ARR(3, 1): Y = ARR(3, 2)
    
23.     Next
    
24. End Sub

复制代码

老师，你好，我按照你的程序，得到的图形怎么不全啊？
我的程序哪里错了？