amirali_mj
Member
سلام یه چندتا مشکل دارم در حرکت دادن یه شئ تو برنامه ، انجمن رو گشتم ولی همچین چیزی پیدا نکردم .
میخوام وقتی روی یه Object کلیک چپ (Mouse Down ) میکنم ، اون Object همراه با موس حرکت کنه و وقتی کلیک چپ رها بشه Object همونجا بمونه ، دقیقا مثل آیکون های دسکتاپ . یه سوال دیگه هم اینکه میخوام Object از صفحه برنامه بیرون نره فقط داخل برنامه باشه... کدشو خودم تا یه جایی نوشتم . لطفا یکی راهنمایی کنه و کد رو اصلاح کنه خیلی لازم دارم . یه مثال هم گذاشتم.
میخوام وقتی روی یه Object کلیک چپ (Mouse Down ) میکنم ، اون Object همراه با موس حرکت کنه و وقتی کلیک چپ رها بشه Object همونجا بمونه ، دقیقا مثل آیکون های دسکتاپ . یه سوال دیگه هم اینکه میخوام Object از صفحه برنامه بیرون نره فقط داخل برنامه باشه... کدشو خودم تا یه جایی نوشتم . لطفا یکی راهنمایی کنه و کد رو اصلاح کنه خیلی لازم دارم . یه مثال هم گذاشتم.
کد:
Xm = Mou***()
Ym = MouseY()
MoveObject("Obj1","Xm,Ym")
If (Xm+128>=ClientWidth()) Then
Break()
End
If (Ym+128>=ClientHeight()) Then
Break()
End
ScriptTimer("Script","10")
MState=MouseLButton()
If (MState=0) Then
Break()
End