|
走近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
''''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] 下一页 | 
