走近VB.Net(九) AxAgent动画窗体的实现

页面导航:首页 > 软件编程 > vb.net > 走近VB.Net(九) AxAgent动画窗体的实现

走近VB.Net(九) AxAgent动画窗体的实现

来源: 作者: 时间:2016-02-05 12:32 【

走近VB.Net(九) AxAgent动画窗体的实现 前几天看到一些网友讨论msagent的贴子,其实在VB.Net中实现也很容易却总是没有人肯动手一试。现在我就介绍一下这个很简单的方法,希望激励更多

走近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

Tags:

相关文章

    文章评论

    
    <