Mouse Cursor

[Loyal]

سلام.

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

کد php:

Command1.MousePointer = vbCross 


ولی اگر بخوام یه شکل دلخواه به ماؤسم بدم باید از این کد استفاده کنم:

کد php:

Command1.MousePointer = vbCustom 


حالا باید این Custom رو چطور تعریف کنم؟ یعنی چطور آدرس فایل cursor ماؤس رو بهش بدم؟

البته می دونم سؤال بسیار مبتدیانه ایه. ولی هرچی گشتم نتونستم حلش کنم.

[dreamvbfox]

سلام
بعد از اینکه رو custom یا 99 قرار دادید باید با استفاده از خاصیت mouseicon آیکون رو بهش بدید :

کد:

me.MouseIcon = LoadPicture("C:\setup.ico")

موفق باشید

[Payman62]

سلام.
لیست کرسرهای موس در مسیر C:\Windows\Cursors قرار داره. میتونی لیستشون رو بگیری و هر کدوم رو که خواستی انتخاب کنی.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\Windows\Cursors\lmove.cur")

میتونی از یه ایمیج رو فرمت هم آیکون موس رو ست کنی.

کد:

Command1.MousePointer = vbCustom
Set Command1.MouseIcon = Image1.Picture

یا از یه آیکون خارج از برنامه.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\a.ico")

[Loyal]

سلام
بعد از اینکه رو custom یا 99 قرار دادید باید با استفاده از خاصیت mouseicon آیکون رو بهش بدید :

کد:

me.MouseIcon = LoadPicture("C:\setup.ico")

موفق باشید

cursor ماؤس من پسوندش cur هست. قبلاً هم امتحانش کرده بودم. این کد برای پسوند ico درست کار می کنه.

[Loyal]

سلام.
لیست کرسرهای موس در مسیر C:\Windows\Cursors قرار داره. میتونی لیستشون رو بگیری و هر کدوم رو که خواستی انتخاب کنی.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\Windows\Cursors\lmove.cur")

میتونی از یه ایمیج رو فرمت هم آیکون موس رو ست کنی.

کد:

Command1.MousePointer = vbCustom
Set Command1.MouseIcon = Image1.Picture

یا از یه آیکون خارج از برنامه.

کد:

Command1.MousePointer = MousePointerConstants.vbCustom
Set Command1.MouseIcon = LoadPicture("C:\a.ico")

پسوند cur رو قبول نمی کنه. اگر هم قبول کنه سیاه و سفیدش می کنه. چرا؟

[Payman62]

سلام.

cursor ماؤس من پسوندش cur هست. قبلاً هم امتحانش کرده بودم. این کد برای پسوند ico درست کار می کنه.

صادق جان نهایتا آیکون های 24 بیت رو میتونی تو ویبی برای آبجکت هات ست کنی. نمونش رو برات آپ کردم.

پسوند cur رو قبول نمی کنه. اگر هم قبول کنه سیاه و سفیدش می کنه. چرا؟

چون ویبی تا 24 بیت رو ساپورت میکنه و اون کرسر ها 32 بیت هستن و شما نمیتونی برای کلیدت لودشون کنی.

کرسرهای خود ویندوز که جالب نیستن. خودت میتونی آیکون های قشنگ تر طراحی کنی که به کارت هم ربط داشته باشه. فقط باید حواست باشه 32 بیت نباشن و 256 کالر یا 24 بیت کار کنی. که تو حجم پایین کیفیت خوبی دارن.

البته آیکون های خود ویندوز رو هم میتونی با SetSystemCursor برای موس ست کنی. ولی در اون صورت به کلید شما اختصاص نداره.

[alih110]

من کدی دارم که میتونی پسوند CUR رو به فرمت اضافه کنی ولی فقط روی فرم و روی دکمه ها نمیشه اگه خواستی بگو برات بزارم چون باید بگردم . البته شاید با دستکاری کد بشه روی بقیه ی اشیا هم گذاشت .

[Loyal]

ممنون.
من خودم براش راهی پیدا کردم. ولی نمی دونم وقتی شکل ماؤس رو عوض می کنی دیگه نمی تونی به شکل اول برش گردونی.

این پست رو ببین و برنامشو دانلود کن. خودت می فهمی.

[alih110]

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

[Loyal]

این پست رو ببین و برنامشو دانلود کن. خودت می فهمی.