کار با Agent ویندوز در وِیژوال بیسیک
کار با 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
.
- مطالب مرتبط:
- آموزش برنامه نویسی (قسمت اول)
- مرورى بر تاریخچه و نحوه نصب جدید ترین نسخه ویژوال بیسیك
- آموزش برنامه نویسی (قسمت دوم) و مفهوم برنامه نویسی شیگرا
- برنامه نویسی ویژوال بیسیک پیشرفته
- چگونه با استفاده از ویژوال بیسیک کلید چپ و راست ماوس را تغییر دهیم
- ------------
- آموزش رایت کردن اطلاعات بر روی CD یا DVD توسط خود ویندوز (سطح: مبتدی)
- روش رفع یک باگ در ویندوز 7: پنجره ها در حالت ماکسیمایز، پشت تسکبار قرار میگیرند
- ایجاد و یا تغییر اندازه پارتیشنها با ویندوز XP، ویستا و 7 - جایگزینی برای Partition Magic
- چگونه تصویر بندانگشتی (پیشنمایش) از فایل فتوشاپی (PSD) در ویندوز ببینیم
- نکاتی در مورد کار با فایل ها در ویژوال بیسیک
ارسال سؤال یا نظر