VB-Helper：坚守脚本

领测软件测试网

演示脚本

对于幕后的所有“丑陋”代码，现在是获得一些乐趣的时候。清单 4 演示了 ScriptDraw 示例程序的一个脚本。您将很快就会发现它是 VB.NET 代码，而不是 VBScript 代码。这是对脚本控件的一个相当大的改进，至少对喜欢 VB.NET 的开发人员是这样。（当然，如果您不喜欢，您就不会长途跋涉地从清单 2 一直阅读到清单 3。）

清单 4. 该脚本绘制一个摆线。 

Imports System
Imports System.Math
Imports System.Drawing
Imports ScriptDrawObjects
Module Script
   Private Function X(ByVal t As Single) As Integer
      Return CInt(35 * (2 * Cos(t) + Cos(17 * t)))
   End Function
   Private Function Y(ByVal t As Single) As Integer
      Return CInt(35 * (2 * Sin(t) - Sin(17 * t)))
   End Function
   Private m_Random As New Random
   Public Sub Main()

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