走近VB.Net（九） AxAgent动画窗体的实现

走近VB.Net（九） AxAgent动画窗体的实现

     前几天看到一些网友讨论msagent的贴子，其实在VB.Net中实现也很容易却总是没有人肯动手一试。现在我就介绍一下这个很简单的方法，希望激励更多的同道加入我们的队伍，以能相互间促进（这次最好比“洋人”早一步）。
     首先添加控件（不知道谁说VB.Net不使用控件，真是越传越玄）




 第二步将控件在窗体上画出来（这也是运行时不可见的，不过他会出现在窗体上，而不是象timer控件出现在下面。
             源代码如下：
             



Imports System.ComponentModel 

Imports System.Drawing 

Imports System.WinForms 

  

  

Public Class Form1 

    Inherits System.WinForms.Form 

    

    指定要使用的动画数据，这里的merlin.acs是一个圣诞老人的造型 

    Dim Genie As AgentObjects.IAgentCtlCharacterEx 

    Const DATAPATH As String = "MERLIN.ACS" 

    与VB6不同的是你不需要下载每一个都有2M多的动画数据，在控件中已内置了所有的动画文件 

    

    Public Sub New() 

        MyBase.New() 调用父类的new过程 

        Form1 = Me 

补充：软件开发 , Vb ,

上一个：走近VB.Net(十) 播放声音文件
下一个：走近VB.Net（八） 常用语法