ببین عزیز ۲ چیز میخوام بهت بگم
اول اینکه معما چون حل کشت اسان شود
دوم خداییش، خداییش نوع پرسیدن سوال اولت را با دومت برسی کنی. ببین چی نوشتی
(جون من برسی کن)
اگر این ویدیو کلیپ را نگذاشتی بودی،! عمرا نمی تونستم ببینم چی میخواهی.
ببین عزیزم یک چیزی نوشتم که بتونی کارتو راه به اندازی
ببین اگر روی تکس باکس دوبار کلیک کنی و اکشن کار کردن کد ات را روی MouseMove بیاری، و بعد داخل کد یک قطعه کد کوچکی
داخل پرانتز میبینی به این نام
X As Singln
کار این چیه
کارش اینکه زاویه و مکان موس شما را، بر حسب طول بهت میده
حالا ما میام چکار میکنیم، میام طول خود تکس باکس را در میاوریم و به مقدار ۴۵۰ پیکسل که اون اندازه طول اسکرول را شامل میشه
کم میکنیم.
حالا این کد چی میگه، میگه اقا جون هر وقت جایگاه مکانی موس بیشتر از طول اندازه تکس باکس رفت قطعه کد اول را اجرا کن و در غیر اینصورت نخواستیم ، قطعه کد دوم را اجرا کن
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Print "X="; X
Print "Y="; Y
With Text1: If .Width - 450 > X Then .MousePointer = 99 Else .MousePointer = 8
End With
End Sub
درضمن راستی، روی دکمه تشکر کردن کلیک کردی ببینی چی میشه.؟؟؟؟