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

        ''''设置窗体的色彩

        Me.BackColor = Color.Beige

        ''''TODO: Add any initialization after the InitializeComponent() call

        Me.Height = 100 : button2.Top = 20 : button1.Top = 20 : button2.Text = "退出程序" : button1.Text = "少儿不宜"

        ''''装载动画

        axAgent1.Characters.Load("MERLIN", DATAPATH)

        Genie = axAgent1.Characters("MERLIN")

        Genie.LanguageID = &H409S

    End Sub

    ''''Form overrides dispose to clean up the component list.

    Public Overrides Sub Dispose()

        MyBase.Dispose() ''''调用父类的dispose过程

        genie = Nothing ''''释放资源

        components.Dispose()

    End Sub

#Region " Windows Form Designer generated code "

    ''''Required by the Windows Form Designer

    Private components As System.ComponentModel.Container

    Private WithEvents Button2 As System.WinForms.Button

    Private WithEvents Button1 As System.WinForms.Button

    Private WithEvents AxAgent1 As AxAgentObjects.AxAgent

    Dim WithEvents Form1 As System.WinForms.Form

    ''''NOTE: The following procedure is required by the Windows Form Designer

    ''''It can be modified using the Windows Form Designer. 

    ''''Do not modify it using the code editor.

    Private Sub InitializeComponent()

        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))

        Me.components = New System.ComponentModel.Container()

     &n

[1] [2] [3]  下一页