اريد تغيير ايقونة مؤشر الكتابة

او حتى معرفة مكانه

اقصد اضع picture box وعند الضغط على حرف تذهب الصورة مع المؤشر

يمكنك تغيير شكل مؤشر الكتابة في صندوق النص تيكست بوكس عن طريق الخاصيتان Mousepointer و MouseIcon

تقوم باختيار Custom من الخاصية Mousepointer وتقون بعد ذلك باختيار الايقونة المناسبة او الشكل المناسب لمؤشر الكتابة عن طريق الخاصية MouseIcon

اخي ميدو شكرا على المحاولة لكن يبدو بانك لم تفهم ما اقصده اريد ان اغير مؤشر الكتابة وليس مؤشر الماوس مؤشر الكتابة الذي يختفي ويظهرللتوضيح انظر الى توقيعي انظر الى مؤشر الكتابة :ايضا اذهب الى run واكتب cmd سترى ان cmd له مؤشر كتابة مختلف

fffff

اقتباس

وعندما قال لك اذهب الى TextBox وغير المأشر الموس من الخصائص التي تسهل عليك المهمة

والطريقة التي ذكرها لك الاخ هي فعلا التي توريد ها انت و لي علمك ان المأشر الموس لا يتأثر بالتغير الا

اذا لمس TextBox و حسب ما اضن انه هاذا هو طلبك

و في الاخر اني اشكر الاخ الطيب على الافادة و كذلك اني اشكرك و اطلب من الله التوفيق للجميع

و ارجوا تقبل تدخلي هو مجرد طيبة خاطر و حب لي اخوتي

اخوكم الجديد Star yes

اخي لم افهم ما تقصد

ولكن اقرا :

اقتباس

شر الكتابة وليس مؤشر الماوس مؤشر الكتابة الذي يختفي ويظهرللتوضيح انظر الى توقيعي انظر الى مؤشر الكتابة :ايضا اذهب الى run واكتب cmd سترى ان cmd له مؤشر كتابة مختلف

اخي ليس لدي psc هل لا سمحت باعطائي الوصلة مرة اخرى :rolleyes:

شكرا اخي محمد السيد :

لافادة اي عضو :

في موديول :

Public Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function ShowCaret Lib "user32" (ByVal e As Long) As Long

في text1_gotfocas

في text1_getfocus

creatcaret text1.hwnd . #,#,#,#
showcaret text1.hwnd