اسکرول بار

[IntelBoy]

سلام دوستان
من میخواهم یک اسکرول بار(vertical) برای یک تکست باکس بگذارم
اما اون اسکرول باری که در properties خود تکست باکس هست رو نمی خواهم بگذارم میشه راهنماییم کنید

[isaac23]

چرا نمیخای بذاری دلییلش ؟

[IntelBoy]

سلام و درود دلیلش اینه که من mouse icon خود textbox را تغییر دادم و mouse pointer را روی 99 قرار دادم چون کد نویسی این قسمت را بلد نبودم این کار را از طریق properties خود textbox
انجام دادم و حالا وقتی موس روی textbox هست همون ایکونی که انتخاب کرده ام نمایش میدهد و مشکلی نیس اما وقتی روی اسکرول بار آن می ایم باز هم همان ایکونی که روی textbox می آید روی اسکرول بار هم می آید.
همانند این فیلم

[www.pc3enter.tk]

ببین عزیز ۲ چیز میخوام بهت بگم
اول اینکه معما چون حل کشت اسان شود
دوم خداییش، خداییش نوع پرسیدن سوال اولت را با دومت برسی کنی. ببین چی نوشتی
(جون من برسی کن)

اگر این ویدیو کلیپ را نگذاشتی بودی،! عمرا نمی تونستم ببینم چی میخواهی.



ببین عزیزم یک چیزی نوشتم که بتونی کارتو راه به اندازی
ببین اگر روی تکس باکس دوبار کلیک کنی و اکشن کار کردن کد ات را روی 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

درضمن راستی، روی دکمه تشکر کردن کلیک کردی ببینی چی میشه.؟؟؟؟

[IntelBoy]

خیلی ممنون دوست عزیز من از شما عذر خواهی میکنم به خاطر نحوه بیان سوالم و متشکرم از پیگیری و راهنماییتون بازم مرسی

[www.pc3enter.tk]

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