تغیر فونت مرلین

[ebtekar]

سلام به تمام دوستان من الان چند سال میشه وی بی کار نمیکنم خواهشن در پروژه جدید باید از مرلین استفاده کنم که برای اینکه درست کار کنه باید فونتش رو به تا هما تغیر بدم و لی دستورش رو بلد نیست خود کد مرلین رو هم فکرکنم داشته باشید و لی من میزارم


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


مرسی منتظر جواب شما هستم

کد:

Agent1.Characters.Load "genie"
   Agent1.Characters.Item("genie").Show
   Agent1.Characters.Item("genie").GestureAt 150, 200
   Agent1.Characters.Item("genie").Balloon.Style = 1
   Agent1.Characters.Item("genie").Balloon.Visible = True
   Agent1.Characters.Item("genie").Listen True
   Agent1.Characters.Item("genie").Speak "Hello, Thank you for downloading this sample code!"
   Agent1.Characters.Item("genie").Think "Hmmm..."
   Agent1.Characters.Item("genie").Speak "I just thought of something, let me write it down."
   Agent1.Characters.Character("genie").MoveTo 880, 490
   Agent1.Characters.Character("genie").Play ("write")
   Agent1.Characters.Item("genie").Speak "Ok, got it! Bye-Bye!"

[ebtekar]

چرا جواب ندادید

[MOhammadPCLover]

سلام دوست گلم. من يه كد براي تغيير فونت مرلين نوشتم كه برات مي فرستم. اميدوارم مورد استفادت قرار بگيره. ولي يكمي با نوع نوشتن كد هاي شما فرق داره. من چند تا از حالت هاي پلي رو هم براتون فرستادم شايد بدرد بخوره.


Dim Merlin As IAgentCtlCharacter

Private Sub Form_Activate()
Set Merlin = Agent1.Characters("Merlin")
Call Merlin.Show
Merlin.Speak ("Hello, howe are U?")
Merlin.Balloon.FontName = "Times New Roman"
Merlin.Balloon.FontSize = 16
Merlin.Play ("DoMagic1") 'Wizard Khat bad ro ham Bad az in khat benevis. Dar gheir In sorat Merlin sabet mimoneh
Merlin.Play ("Domagic2")
Merlin.Play ("Announce") 'Sheipoor
Merlin.Play ("GestureRight") 'Eshare Be rast
Merlin.Play ("Gestureleft") 'eshare be chap
Merlin.Play ("GestureUP") 'eshare be bala
Merlin.Play ("GestureDown") 'eshare be paiin
Merlin.Play ("Wave") 'Bye Bye ebtekar
End Sub

Private Sub Form_Load()
Call Agent1.Characters.Load("Merlin")
End Sub



Mohammad PC Lover!

[ashkan]

کاربر گرامی ebtekar لطفا آواتارت رو کوچیکتر کن چون باعث بهم ریختگی سایت شده.

[EleRam]

آقا يكي بگه چطوري راست به چپ مي شه؟! خواهش مي كنم فوري

[Di Di]

از این استفاده کن ان شاالله تعالی فرجی بشه!!

Character.LanguageID = &H429