教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

弹出【自定义工具箱】对话框，选择其中的【COM组件】页面中，在【名称】栏中选择【Microsoft Agent Control 2.0】，具体如图02所示：

图02：Visual Basic .Net操作MsAgent的【添加引用】对话框

　　单击【确定】按钮，则在【工具箱】的【Windows组件】组件栏最后中，新增了一个MsAgent组件，具体如图03所示：

图03：成功引入MsAgent组件

　　8、 切换到【Form1.vb [设计]】窗口，并从【工具箱】中的【Windows窗体组件】中往窗体中拖入下列组件，并执行相应操作：

　　一个ComboBox组件，用以让读者选择要出现的精灵名称。

　　一个TextBox组件，用以输入精灵朗读的文字，由于程序中设定的精灵朗诵的语言为英语，所以这里输入的是英文单词。

　　一个MsAgent组件

　　二个Label组件

　　四个Button组件，名称分别是Button1、Button2、Button3和Button4，用以实现和MsAgent组件相关的一些功能。并在这些组件加入到窗体后，分别在【Form1.vb [设计]】窗口中双击这四个组件，这样Visual Basic .Net集成开发环境会自动产生这四个组件的Click&&事件对应的处理代码。

　9、 把Visual Basic .Net集成开发环境的当前窗口切换到Form1.vb的代码编辑窗口，并在Form1.vb代码中的InitializeComponent过程之前加入下列代码：

Dim PlayChar As AgentObjects.IAgentCtlCharacterEx

　　10. 并用下列的代码替换Form1.vb中的由系统自动产生的InitializeComponent过程的代码，下列代码的功能是初始化上述组件：

　　界面设计和功能实现的前期准备工作就完成了，具体如图04所示：

图04：Visual Basic .Net操作MsAgent程序的设计界面

　　10. Visual Basic .Net中实现装入精灵。

　　当程序中装入精灵后，精灵就会显示在Windows的状态栏中，具体思路是把各个精灵先强制转换成一个Object的对象，精灵对应的扩展名是"acs"，然后调用MsAgent组件的"Load"方法把对象加入就可以了，并根据装入的精灵类型来初始化上面定义的一个AgentObjects.IagentCtlCharacterEx&&接口的实例，后面对精灵的操作就是通过这个实例中方法来实现的。具体实现方法是用下列的代码替换Form1.vb中的Button1的Click&&事件的处理代码：

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) 　　Handles Button1.Click '根据使用者的不同选择，装入不同的精灵类型 　Select Case ComboBox1.Text 　　Case "Genie" 　　　Dim myObject As Object = CType ( "genie.acs" , Object ) 　　　'装入吉利 　　　AxAgent1.Characters.Load ( "genie" , myObject ) 　　　PlayChar = AxAgent1.Characters ( "genie" ) 　　Case "MerLin" 　　　Dim myObject As Object = CType ( "merlin.acs" , Object ) 　　　'装入莫林 　　　AxAgent1.Characters.Load ( "merlin" , myObject ) 　　　PlayChar = AxAgent1.Characters ( "merlin" ) 　　Case "Robby" 　　　Dim myObject As Object = CType ( "robby.acs" , Object ) 　　　'装入罗比 　　　AxAgent1.Characters.Load ( "robby" , myObject ) 　　　PlayChar = AxAgent1.Characters ( "robby" ) 　　Case "Peedy" 　　　Dim myObject As Object = CType ( "peedy.acs" , Object ) 　　　'装入彼得 　　　AxAgent1.Characters.Load ( "peedy" , myObject ) 　　　PlayChar = AxAgent1.Characters ( "peedy" ) 　End Select 　Button1.Enabled = False 　Button2.Enabled = True 　Button3.Enabled = True　 　Button4.Enabled = True End Sub