VB-Helper：坚守脚本

领测软件测试网

   Dim reference_item As IVsaReferenceItem
   reference_item = CType(items.CreateItem_
      ("system.dll", VsaItemType.Reference, _
      VsaItemFlag.None), IVsaReferenceItem)
   reference_item.AssemblyName = "system.dll"
   reference_item = CType(items.CreateItem_
      ("mscorlib.dll", VsaItemType.Reference, _
      VsaItemFlag.None), IVsaReferenceItem)
   reference_item.AssemblyName = "mscorlib.dll"
   reference_item = CType(items.CreateItem_
      ("system.drawing.dll", VsaItemType.Reference, _
      VsaItemFlag.None), IVsaReferenceItem)
   reference_item.AssemblyName = "system.drawing.dll"
   Dim assembly_name As String = [Assembly]._
      GetAssembly(GetType(Picture)).Location
   reference_item = CType(items.CreateItem_
      (assembly_name, VsaItemType.Reference, _
      VsaItemFlag.None), IVsaReferenceItem)
   reference_item.AssemblyName = assembly_name
   Dim global_item As IVsaGlobalItem
   global_item = CType(items.CreateItem("ThePicture",_

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