vb如何画出打开的扇子，就是以打开扇子那种形式画出圆形或者扇形？

发布网友 发布时间：2022-04-28 13:05

我来回答

共3个回答

热心网友 时间：2023-10-09 18:38

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim JdL As Double
Dim Jd As Double
Jd = 10
JdL = 5

Me.FillStyle = vbFSSolid

Randomize
For i = 1 To 32
Me.FillColor = QBColor(Int(16 * Rnd))
Me.Circle (4000, 4000), 3000, , -Jd / 180 * 3.1415, -(Jd + JdL) / 180 * 3.1415
Jd = Jd + JdL
Next i

End Sub

热心网友 时间：2023-10-09 18:38

在PHOTOSHOP 中可以实现，但在WORD、EXECL中无法实现。

热心网友 时间：2023-10-09 18:39

严格地说孕期最好远离化妆品.化妆品成分复杂良莠不齐问题很多防不胜防.

热心网友 时间：2023-10-09 18:38

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim JdL As Double
Dim Jd As Double
Jd = 10
JdL = 5

Me.FillStyle = vbFSSolid

Randomize
For i = 1 To 32
Me.FillColor = QBColor(Int(16 * Rnd))
Me.Circle (4000, 4000), 3000, , -Jd / 180 * 3.1415, -(Jd + JdL) / 180 * 3.1415
Jd = Jd + JdL
Next i

End Sub

热心网友 时间：2023-10-09 18:38

在PHOTOSHOP 中可以实现，但在WORD、EXECL中无法实现。

热心网友 时间：2023-10-09 18:39

严格地说孕期最好远离化妆品.化妆品成分复杂良莠不齐问题很多防不胜防.