VB-Helper：坚守脚本

领测软件测试网

      As Segment) Handles MyPicture.CreatedSegment
      seg.ForeColor = Color.FromArgb(&HFF000000 + _
         QBColor(m_Random.Next(0, 16)))
   End Sub
End Module

该代码以一些 Imports 语句开始。清单 3 中的代码为引擎提供它所需的引用，以对这些语句进行处理。该脚本定义了几个提供有关摆线各点坐标的函数，然后创建一个全局模块的 Random 对象。

Main 子例程定义一些变量，然后调用 ThePicture.Clear。在调用时，返回到清单 3 顶部附近的 AddObject。第一次调用将向名为 ThePicture 的站点对象添加对程序变量 g_Picture 的引用。现在，在脚本调用 ThePicture.Clear 时，引擎调用站点对象的 GetGlobalInstance 函数获取对 g_Picture 的引用，并调用该对象的 Clear 方法。

然后，脚本在摆线的一系列点中进行循环，调用 ThePicture.MakeSegment 将分段添加到图片中。MakeSegment 函数返回新的 Segment 对象，因此，程序可以保存对该对象的引用并对其进行操作。例如，它可能更改新的 Segment 坐标、宽度或颜色。

文章来源于领测软件测试网 https://www.ltesting.net/