مربع تحرير وسرد

[bumb]

السلام عليكم

 

ممكن كود او طريق تخليني اضغط على مربع التحرير والسرد على اي جزأ منه بدلا من الضغط على السهم الخاص به

 

تحياتي لكم

[د.كاف يار]

تفضل هذا المثال

 

List.mdb

[bumb]

منذ ساعه, د.كاف يار said:

تفضل هذا المثال

هذا حل لكن حل غير كامل لأن شكل المؤشر لم يحصل عليه بقي على شكله مؤشر كتابه وليس مؤشر اختيار 

هل من طريقة ليصبح شكل المؤشر مثل مؤشر الاختيار

List.mdb 304 kB · 2 downloads

 

[د.كاف يار]

هل تقصد بهذا الشكل

List.mdb

[bumb]

منذ ساعه, د.كاف يار said:

هل تقصد بهذا الشكل

List.mdb 564 kB · 5 downloads

هذا فيه عيوب 

اولا لازم تضغط على السهم علشان تنفتح القائمه والمطلوب هو انك تضغط على اي جزأ في المربع وتفتح القائمه

ثانيا ان اتجاه السهم يتغير والمطلوب هو ان السهم يظل على نفس الإتجاه

ثالثا ان المربع اذا عملت كليك على السهم يرجع مؤشر الماوس الى مؤشر كتابه والمطلوب انه يظل مؤشر ماوس

رابعا اذا عملت كليك وانفتحت القائمة لا يمكنك اغلاقها الا من خلال السهم والمطلوب هو كليك يفتح وكليك يغلق والكليك يكون على اي جزأ في الكنترول والمؤشر لا يتغير شكله يظل مؤشر ماوس مش مؤشر كتابه

[طلب اكسس]

3 دقائق مضت, bumb said:

هذا فيه عيوب 

اولا لازم تضغط على السهم علشان تنفتح القائمه والمطلوب هو انك تضغط على اي جزأ في المربع وتفتح القائمه

ثانيا ان اتجاه السهم يتغير والمطلوب هو ان السهم يظل على نفس الإتجاه

ثالثا ان المربع اذا عملت كليك على السهم يرجع مؤشر الماوس الى مؤشر كتابه والمطلوب انه يظل مؤشر ماوس

رابعا اذا عملت كليك وانفتحت القائمة لا يمكنك اغلاقها الا من خلال السهم والمطلوب هو كليك يفتح وكليك يغلق والكليك يكون على اي جزأ في الكنترول والمؤشر لا يتغير شكله يظل مؤشر ماوس مش مؤشر كتابه

ليس كل ما يتمناه المرء يدركه ...

نطاق طلبات تتخطى سقف امكانيات الاكسس

ما يلوح لك في الافق مجرد خيالات لا تجعلها تسيطر عليك

اديان و طوائف و مذاهب و كذلك الالحاد و الكفر

قائمة على الإيمان و القناعه بالأسس

نصيحتي لك عيني لا تتمعط في طلباتك و ارضى بالمنطق لا بالخيال

[bumb]

منذ ساعه, طلب اكسس said:

ليس كل ما يتمناه المرء يدركه ...

نطاق طلبات تتخطى سقف امكانيات الاكسس

ما يلوح لك في الافق مجرد خيالات لا تجعلها تسيطر عليك

اديان و طوائف و مذاهب و كذلك الالحاد و الكفر

قائمة على الإيمان و القناعه بالأسس

نصيحتي لك عيني لا تتمعط في طلباتك و ارضى بالمنطق لا بالخيال

هههههههههههه اعتقد انك بالغت كثيرا في النقد

[ابو البشر]

جرب المرفق لعله هو المطلوب ....

 

List.mdb

[طلب اكسس]

1 دقيقه مضت, bumb said:

هههههههههههه اعتقد انك بالغت كثيرا في النقد

بما انك رجل حكيم و تتقبل النقد بعقلانيه

فآنت من الآن صديقي الصدوق

فروح الحكمة ضالة كل مؤمن و من فقد الحكمة فقد الحياة و من اوتيها فقد اوتي خيرا كثيرا

 

و بما انك شخص حيكم فمجاورة السعيد تجلب السعد و تفتح الحظ

شكرا لك ،،، ،

[bumb]

32 دقائق مضت, طلب اكسس said:

بما انك رجل حكيم و تتقبل النقد بعقلانيه

فآنت من الآن صديقي الصدوق

فروح الحكمة ضالة كل مؤمن و من فقد الحكمة فقد الحياة و من اوتيها فقد اوتي خيرا كثيرا

 

و بما انك شخص حيكم فمجاورة السعيد تجلب السعد و تفتح الحظ

شكرا لك ،،، ،

لي الشرف تحياتي لك

[ابو البشر]

44 دقائق مضت, ابو البشر said:

جرب المرفق لعله هو المطلوب ....

 

List.mdb 544 kB · 1 download

هل جربت المرفق

[bumb]

29 دقائق مضت, ابو البشر said:

هل جربت المرفق

حلو بدأت تقرب من الحل الكامل

اول كليك تمام بس كليك مره ثانيه ما يستجيب

الكود اللي في الموديول يخص 32 بت عدلت عليه بحيث يعمل مع النواتين

#If VBA7 Then
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare PtrSafe Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
#Else
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias _
  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _
  (ByVal hCursor As Long) As Long
#End If

 

[ابو البشر]

15 دقائق مضت, bumb said:

حلو بدأت تقرب من الحل الكامل

اول كليك تمام بس كليك مره ثانيه ما يستجيب

ضع في حدث عند التغيير هذا الكود ....

Me.TextBox1.SetFocus