VB6：星形点的颜色部分

Question

我找到了使用VB6绘制星星的API函数：我需要的是根据数据驱动的参数对星星的每个点的部分进行着色：因此，如果传递的参数是1，我想对所选星星的部分进行着色红点直至其长度的 1/10（从恒星围绕的圆的周长开始测量）；如果是 2、星点绿色的 2/10 等。

我找到了 API 函数 CreatePolygonRgn 因此我可以更改特定星点的整体颜色，但对如何仅使用一个 X 和 Y 参数定义多边形感到困惑：如果我更改 X 和对于给定的星点，我得到的结果似乎没有意义 TKIF 查尔斯·吉奇
硒

Answer 1

优秀的 vbAccelerator 提供了一些 VB6 代码。我自己没有测试过这个。请注意，points() 是一个数组，尽管它看起来好像您只传递了第一个元素，但实际上您是在向 API 调用授予对 >整个数组。 CreatePolygonRgn 的第一个参数不是单个参数点，而是点的数组。

我希望这可以帮助您了解正在发生的事情，并且您可以编写您的明星代码。

Type POINTAPI
  X As Long
  Y As Long
End Type
Declare Function CreatePolygonRgn Lib "gdi32" _
  (lpPoint As POINTAPI, ByVal nCount As Long, _
   ByVal nPolyFillMode As Long) As Long

Sub Test()
  Const ALTERNATE = 1 ' ALTERNATE and WINDING are '
  Const WINDING = 2   ' constants for FillMode. '

   Dim points(1 To 5) as POINTAPI
   ' fill in points .. '
   CreatePolygonRgn(points(1), 5, WINDING)
End Sub

Answer 2

我不想乱搞 API 调用，而是想建议一种替代方案。在我看来，您（最多）将拥有 11 个外观不同的星星（0 到 10）。如果这是我的项目，我会使用您选择的图形应用程序创建 11 个图像。然后，根据变量的值，有选择地显示您想要的图像。