form1.frm

本人用VB 6.0和ACCESS编写的图书管理系统

VERSION 5.00
Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0"; "agentctl.dll"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin AgentObjectsCtl.Agent MsAgent 
      Left            =   2400
      Top             =   1440
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim OFFCAT As IAgentCtlCharacter
Dim OFFCATRequest1, OFFCATRequest2 As IAgentCtlRequest

Private Sub Form_Load()
    Dim AppName As String
    AppName = App.Path & "\Agent\saeko.ACS"
    '装入动画人物数据,其中第一个参数为CharacterID
    MsAgent.Characters.Load "OFFCAT", AppName
    '获取与CharacterID相对应的IAgentCtlCharacter变量
    Set OFFCAT = MsAgent.Characters("OFFCAT")
    '显示/隐藏动画角色
    OFFCAT.Show
    OFFCAT.Speak "欢迎您进入——宁夏职工科技学院图书管理系统！"
    OFFCAT.Play "wave"
    OFFCAT.Play "congratulate"
End Sub