یه سری آموزش های فوق العاده جالب برای دوستان عزیز

[parsiyan_mohsen]

کار با Agent های ویندوز :
از منوی Project گزینه Componentرا انتخاب کنید.
از لیست باز شدهMicrosoft Agent Control2.0 را تيک بزنید.
حال یک Agent و یک ListBoxرا به فرم اضافه کنید.
اگه زحمتی نیست اینا رو هم اضافه کنید.

Dim Merlin As IAgentCtlCharacterEx

Dim nName As String



Private Sub Form_Load()

With List1

.AddItem "Surprised"

.AddItem "Greet"

.AddItem "Explain"

.AddItem "Announce"

.AddItem "Pleased"

.AddItem "DoMagic1"

.AddItem "DoMagic2"

.AddItem "Suggest"

.AddItem "Read"

.AddItem "Write"

.AddItem "Wave"

.AddItem "Acknowledge"

.AddItem "Alert"

.AddItem "Blink"

.AddItem "Confused"

.AddItem "DontRecognize"

.AddItem "Sad"

.AddItem "Think"

.AddItem "Uncertain"

.AddItem "Search"

.AddItem "Process"

.AddItem "MoveLeft"

.AddItem "MoveDown"

.AddItem "MoveUp"

.AddItem "MoveRight"

.AddItem "LookUp"

.AddItem "LookDown"

.AddItem "LookRight"

.AddItem "LookLeft"

.AddItem "Idle1_1"

.AddItem "Idle1_2"

.AddItem "Idle2_1"

.AddItem "Idle2_2"

.AddItem "Idle3_1"

.AddItem "Idle3_2"

.AddItem "Decline"

.AddItem "Congratulate"

.AddItem "GetAttention"

.AddItem "GestureUp"

.AddItem "GestureDown"

.AddItem "GestureLeft"

.AddItem "GestureRight"

End With

nName = "merlin"

Agent1.Characters.Load nName

Set Merlin = Agent1.Characters(nName)

Merlin.Show

End Sub



Private Sub List1_Click()

Merlin.Play List1.Text

Merlin.Play "Restpose"

End Sub