السلام عليكم و رحمه الله وبركاته اهل المنتدي
خلال تصفحي وجدت هذا الموضع ..
http://vb4arb.com/vb/showthread.php?tid=3986
لكن هذا الموضوع بلغة ال C#
فكل ما احتاجه هو هذا الكود بلغة الفيجوال بيسك . نت
و يفضل شرح بالصور لتركيب الماوس
و جزاكم الله كل خير
وعليكم السلام
كود :
Me.Cursor = new cursor("X\\xxxx.cur")
كل كنترول يحتوي على الخاصية Cursor
إستخدمها بنفس الطريقة
كود :
Panel1.Cursor = new cursor("X\\xxxx.cur")
فقط حمل ملف الـ Cursor الذي يعجبك من الرابط في الموضوع
وهذا موقع آخر للتحميل أيضاً ...
http://www.rw-designer.com/cursor-library
بإمكانك وضع الملف في الـ My.Resources
كود :
Dim ms As New System.IO.MemoryStream(My.Resources.Cursor1)
Button1.Cursor = New Cursor(ms)
اضافة لما قدمه اخي عبدالله الدوسري
الكود التالى
كود :
Me.Cursor = New Cursor(Application.StartupPath & "MyCursor.cur")
لنقول ان شكل الموس اسمه MyCursor.cur
بهذا الكود سيكون الملف بجانب البرنامج اى بنفس مجلد البرنامج
طيب الكود الحالى يبداء بـ Me
وهنا يقصد الـ Form
اذا كنت تحتاج تخصص شكل معين على اداء
فقط استخدم الكود بالطريقة التالية
كود :
TextBox1.Cursor = New Cursor(Application.StartupPath & "MyCursor.cur")
أو
كود :
Button1.Cursor = New Cursor(Application.StartupPath & "MyCursor.cur")
... الخ
تحياتى لك
وتمنياتى لك التوفيق
شكرا لكم جميعا علي هذا الشرح الوافر !
