Character 对象属性

[从 Windows 7 开始,Microsoft 代理已弃用,可能在后续版本的 Windows 中不可用。]

Character 对象公开以下属性:

请注意,字符的 HeightLeftTopWidth 属性不同于控件放置的编程环境可能支持的属性。 Character 属性适用于字符的可见表示形式,而不是 Microsoft 代理控件的位置。

Character 对象方法一样,可以使用 Characters 集合访问字符的属性,也可以通过声明对象变量并将其设置为集合中的字符来简化语法。 在以下示例中,Test1 和 Test2 将设置为相同的值:

   Dim Genie 
   Dim MyRequest
   
   Sub window_Onload

   Agent.Characters.Load "Genie", "https://agent.microsoft.com/characters/v2/genie/genie.acf"

   Set Genie = Agent.Characters("Genie")

   Genie.MoveTo 15,15
   Set MyRequest = Genie.Show()

   End Sub

   Sub Agent_RequestComplete(ByVal Request)

   If Request = MyRequest Then 
      Test1 = Agent.Characters("Genie").Top
      Test2 = Genie.Top
      MsgBox "Test 1 is " + cstr(Test1) + "and Test 2 is " + cstr(Test2)
   End If

   End Sub

由于服务器以异步方式加载字符,因此请确保在查询其属性之前已加载该字符,例如,使用 RequestComplete 事件。 否则,属性可能会返回不正确的值。