منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام علكيم

ممكن كود لتحريك الرسوم الى الاسفل والى الاعلى او بتحريكه حركه عشوائيه

السلام عليكم

- توضيح أكثر لو سمحت .

لدينا شخصيه كارتونيه ااريدها ان تتحرك خارج الفورم بإيعازات عن طريق الكود الى اليمين والى اليسار وحركات اخرى عشوائيه

السلام عليكم

- هل الشخصية عباره عن صوره ثابته أم متحركه . وهل قصدك بخارج الفورم يعني على شاشة الكمبيوتر .

نعم هي خارج الفورم على شاشة الكومبيتر وهذا كود ظهورها فارجوا اضافة كود او التعديل على الكود لكي تتنقل علىالشاشه
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"

...............

السلام عليكم
Agent1.Characters.Item("j").Top = 100
Agent1.Characters.Item("j").Left = 150

وطبعا الارقام دي بتتغير وممكن يكونوا داخل تيمر وتتغير القيمه بمتغير

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

شكرا لك ولكنني لم اقصد الأنتقال الصامت هكذا
بل اردت عند انتقاله الى الأسفل يحرك يديه او رأسه او ماشابه ذلك

علما الشخصيه ليست شخصيه
ثابته بل متحركه