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

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

.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

@#This call is required by the Win Form Designer.

InitializeComponent()

@#设置窗体没有标题栏

Me.BorderStyle = FormBorderStyle.None