كود لتحريك الرسوم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم أسئلة واستفسارات الأعضاء - المنتدى القديم قسم Visual Basic 6 وما قبله كود لتحريك الرسوم

تقييم الموضوع :

0 أصوات - بمعدل 0
1
2
3
4
5

ادوات الموضوع

كود لتحريك الرسوم

New VB6 Developer غير متصل

عضو جديد

المشاركات : 2
المواضيع 0
الإنتساب : Sep 2013
السمعة : 0

الشكر: 0
تم شكره 0 مرات في 0 مشاركات

30-04-13, 02:45 AM

Private Sub Command1_Click()
Agent1.Characters.Load "j", App.Path & "\merlin.acs"
Agent1.Characters.Item("j").Show
Agent1.Characters.Item("j").Think "Hi "
Agent1.Characters.Item("j").Speak "im al asela"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Agent1.Characters.Item("j").Top = 100 * Rnd(10000)
Agent1.Characters.Item("j").Left = 150 * Rnd(10000)
End Sub

البحث

الرد }}}

« السابق | التالي »

الردود في هذا الموضوع

كود لتحريك الرسوم - بواسطة الاصيله - 14-04-13, 02:19 AM

كود لتحريك الرسوم - بواسطة VB_Coder - 14-04-13, 03:00 PM

كود لتحريك الرسوم - بواسطة الاصيله - 15-04-13, 10:22 PM

كود لتحريك الرسوم - بواسطة VB_Coder - 15-04-13, 11:28 PM

كود لتحريك الرسوم - بواسطة الاصيله - 16-04-13, 11:22 PM

كود لتحريك الرسوم - بواسطة الاصيله - 30-04-13, 02:10 AM

كود لتحريك الرسوم - بواسطة New VB6 Developer - 30-04-13, 02:42 AM

كود لتحريك الرسوم - بواسطة New VB6 Developer - 30-04-13, 02:45 AM