این کد تو ویژوال بیسیک کار میکنه اما تو اکسس نمشکل کجاست؟

[azadich]

با سلام این فرم و قتی تو ویژوال بیسیک هیت با باز شدن یک آدمک میاد مثل آدمک جستجوی ویندوز اما همان کدها را وارد اکسس کردم کار نکرد نگاه کنید مشکل از کجاست تو این کد خطا می گیره ممنون مسشم نمونه را اصلاح فرمایید
Call asa.Characters.Load("Merlin", bj & "Merlin.acs")

[mazoolagh]

vb و vb.net و vba سه دنیای متفاوتن
در هر کدوم باید به روش همون دنیا عمل کنین و البته خیلی چیزها هم مشترک نیست

[azadich]

vb و vb.net و vba سه دنیای متفاوتن
در هر کدوم باید به روش همون دنیا عمل کنین و البته خیلی چیزها هم مشترک نیست
حالا این نمونه که گذاشتم تو اکسس با یه کد دیگه کار نمی کنه

[mazoolagh]

کد شما رو نمیدونم چی هست و چکار قرار هست که بکنه - باید گوگل کنین

[azadich]

کد شما رو نمیدونم چی هست و چکار قرار هست که بکنه - باید گوگل کنین
نمونه ویژوال گذاشتم ببینید نمیشه تو اکسس همین آدمک با باز شدن فرم بیاد

[azadich]

نمونه ویژوال گذاشتم ببینید نمیشه تو اکسس همین آدمک با باز شدن فرم بیاد
یهنی انجام شدنی نیست نمیشه کاری کرد همین ادمک جستجوی ویندوز تو فرم اکسس بیاد

[mazoolagh]

خب من بجای شما گوگل کردم و چون ویندوز 7 از ms agent پشتیبانی نمیکنه اول از آدرس زیر
http://www.microsoft.com/products/msagent/main.aspx
agent core components و merlin character file رو دانلود و نصب کردم و دست آخر هم install pack hotfix for win 7 رو از همون صفحه گرفتم و نصب کردم.

حالا در اکسس اگر tools-references رو ببینیم microsoft agent control 2 اضافه شده که خب اون رو تیک میزنیم
در فرم یک agent activex اضافه میکنیم (خودش پیشفرض اسمش رو agent1 میگذاره) و بصورت زیر کد مینویسیم:

Dim MyAgent As IAgentCtlCharacterEx
Agent1.Characters.Load CharacterID:="merlin", LoadKey:="merlin.acs"
Set MyAgent = Agent1.Characters("Merlin")

از اینجا به بعد هم که میتونین کدهای مربوط به انیمیشن و حرف زدن و ... رو بگذارین

With MyAgent
.Play Animation:="Greet"
.Play Animation:="Restpose"
.Speak Text:="Hello!"
.Play Animation:="Announce"
.Speak Text:="I am Merlin."
.Play Animation:="Pleased"
.Speak Text:="It is nice to meet you."
.MoveTo X:=250, Y:=500
.Speak Text:="I would like to show you"
.Play Animation:="Hide"
.Play Animation:="Show"
.Speak Text:="some of my animations."
End With

کدهای نمونه از آدرس زیر گرفته شده:
http://msdn.microsoft.com/en-us/library/aa163978(office.10).aspx

[azadich]

خب من بجای شما گوگل کردم و چون ویندوز 7 از ms agent پشتیبانی نمیکنه اول از آدرس زیر
http://www.microsoft.com/products/msagent/main.aspx
agent core components و merlin character file رو دانلود و نصب کردم و دست آخر هم install pack hotfix for win 7 رو از همون صفحه گرفتم و نصب کردم.

حالا در اکسس اگر tools-references رو ببینیم microsoft agent control 2 اضافه شده که خب اون رو تیک میزنیم
در فرم یک agent activex اضافه میکنیم (خودش پیشفرض اسمش رو agent1 میگذاره) و بصورت زیر کد مینویسیم:

Dim MyAgent As IAgentCtlCharacterEx
Agent1.Characters.Load CharacterID:="merlin", LoadKey:="merlin.acs"
Set MyAgent = Agent1.Characters("Merlin")

از اینجا به بعد هم که میتونین کدهای مربوط به انیمیشن و حرف زدن و ... رو بگذارین

With MyAgent
.Play Animation:="Greet"
.Play Animation:="Restpose"
.Speak Text:="Hello!"
.Play Animation:="Announce"
.Speak Text:="I am Merlin."
.Play Animation:="Pleased"
.Speak Text:="It is nice to meet you."
.MoveTo X:=250, Y:=500
.Speak Text:="I would like to show you"
.Play Animation:="Hide"
.Play Animation:="Show"
.Speak Text:="some of my animations."
End With

کدهای نمونه از آدرس زیر گرفته شده:
http://msdn.microsoft.com/en-us/library/aa163978(office.10).aspx
خیلی خیلی متشکر فقط کد بالایی و پایینی کجای فرم باید نوشت اگه یه نمونه می گذاشتید ممنون می شدم

[azadich]

خیلی خیلی متشکر فقط کد بالایی و پایینی کجای فرم باید نوشت اگه یه نمونه می گذاشتید ممنون می شدم
یه نمونه لطف نمی کنید

[azadich]

یه نمونه لطف نمی کنید
خودم نمونه را آماده کردم جهت استفاده دوستان گرامیم:تشویق:

[alirezabahrami]

خودم نمونه را آماده کردم جهت استفاده دوستان گرامیم:تشویق:
سلام
نمایش حالتهای دیگر را در فایل ضمیمه مشاهده بفرمائید:
موفق باشید

[azadich]

سلام
نمایش حالتهای دیگر را در فایل ضمیمه مشاهده بفرمائید:
موفق باشید
برنامه hotfix for win 7 را نتونستم دانلود کنم میشه لطف کنید بزارید ممنون میشم

[alirezabahrami]

برنامه hotfix for win 7 را نتونستم دانلود کنم میشه لطف کنید بزارید ممنون میشم
سلام
دو مورد برای ویندوز 32 و 64 بیتی در لینک زیر قابل دانلود است.
http://support.lenovo.com/en_US/downloads/detail.page?DocID=DS020753
موفق باشید