تعلم كيفية انشاء نص تلميح ToolTipText لكل عنصر من عناصر listbox
صفحة 1 من اصل 1 • شاطر
تعلم كيفية انشاء نص تلميح ToolTipText لكل عنصر من عناصر listbox
بسم الله الرحمن الرحيم
نص التلميح ToolTip هو النص الذى يظهر عند وقوفك بالماوس على عنصر ما ويمكنك أنشاءة من خلال الخاصية ToolTipText لاى عنصر تحكم .....لكن اذا استخدمت تلك الطريقة مع عنصر التحكم listbox فسوف يظهر النص لعنصر التحكم ككل ....أما اذا اردت أن يظهر نص التليمح لكل عنصر من عناصر listbox فانك بحاجة الى متابعة الخطوات التالية :
_ فى قسم التصريحات العامة نكتب الكود التالى :
- الكود:
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function LBItemFromPt Lib "COMCTL32.DLL" (ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, ByVal bAutoScroll As Long) As Long
Private m_TooltipText() As String
- الكود:
Public Function ItemUnderMouse(ByVal list_hWnd As Long, ByVal X As Single, ByVal Y As Single)
Dim pt As POINTAPI
pt.X = X \ Screen.TwipsPerPixelX
pt.Y = Y \ Screen.TwipsPerPixelY
ClientToScreen list_hWnd, pt
ItemUnderMouse = LBItemFromPt(list_hWnd, pt.X, pt.Y, False)
End Function
- الكود:
Private Sub Form_Load()
ReDim m_TooltipText(-1 To List1.ListCount - 1)
m_TooltipText(-1) = "Select an item"
m_TooltipText(0) = "Apple fritters"
m_TooltipText(1) = "Banana pie"
m_TooltipText(2) = "Cherriers jubilee"
m_TooltipText(3) = Date
m_TooltipText(4) = "Ribbet"
m_TooltipText(5) = ""
m_TooltipText(6) = "Sorry, no help for you!"
End Sub
- الكود:
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ToolTipText = m_TooltipText(ItemUnderMouse(List1.hwnd, X, Y))
End Sub
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: تعلم كيفية انشاء نص تلميح ToolTipText لكل عنصر من عناصر listbox
أشكرك أخى الكريم على مقالاتك القيمة
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: تعلم كيفية انشاء نص تلميح ToolTipText لكل عنصر من عناصر listbox
الاخوه الاعضاء سؤال لو سمحتو كثيرا ما يراودنى
اولا انا مبتدا كما قولت من قبل
والسؤال
هل المبرمج عليه ان يعلم كل هذه الاكواد ويفهمها ويحفظها عن ظهر قلب
ام ان هناك عمليات كامله تتم بنسخ الكود ولصقه فى المكان الصحيح فى المشروع كمثل هذه الاكواد الخاصه بالتلميح
لانى كمبدا يحدث لى رهبه من كثرة هذه الاكواد مما يشعرنى بالهزيمه امامها حيث انى لا افهمها
فهل هذا الاحساس طبيعى ولا اهتم به واركز فقط على الاكواد المباشرة لعملى وهدفى اما ماذا
ارجو الرد - فكثيرا ما يصيبنى الاحباط امام هذا الكم من الاكواد والتى اجد انه من المناسب تجاهلها وأأخذها نسخ ولصق
ارجو الرد
اولا انا مبتدا كما قولت من قبل
والسؤال
هل المبرمج عليه ان يعلم كل هذه الاكواد ويفهمها ويحفظها عن ظهر قلب
ام ان هناك عمليات كامله تتم بنسخ الكود ولصقه فى المكان الصحيح فى المشروع كمثل هذه الاكواد الخاصه بالتلميح
لانى كمبدا يحدث لى رهبه من كثرة هذه الاكواد مما يشعرنى بالهزيمه امامها حيث انى لا افهمها
فهل هذا الاحساس طبيعى ولا اهتم به واركز فقط على الاكواد المباشرة لعملى وهدفى اما ماذا
ارجو الرد - فكثيرا ما يصيبنى الاحباط امام هذا الكم من الاكواد والتى اجد انه من المناسب تجاهلها وأأخذها نسخ ولصق
ارجو الرد
ahmedismayl- ..
- تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة :
الجنس :
رد: تعلم كيفية انشاء نص تلميح ToolTipText لكل عنصر من عناصر listbox
ahmedismayl كتب:الاخوه الاعضاء سؤال لو سمحتو كثيرا ما يراودنى
اولا انا مبتدا كما قولت من قبل
والسؤال
هل المبرمج عليه ان يعلم كل هذه الاكواد ويفهمها ويحفظها عن ظهر قلب
ام ان هناك عمليات كامله تتم بنسخ الكود ولصقه فى المكان الصحيح فى المشروع كمثل هذه الاكواد الخاصه بالتلميح
لانى كمبدا يحدث لى رهبه من كثرة هذه الاكواد مما يشعرنى بالهزيمه امامها حيث انى لا افهمها
فهل هذا الاحساس طبيعى ولا اهتم به واركز فقط على الاكواد المباشرة لعملى وهدفى اما ماذا
ارجو الرد - فكثيرا ما يصيبنى الاحباط امام هذا الكم من الاكواد والتى اجد انه من المناسب تجاهلها وأأخذها نسخ ولصق
ارجو الرد
الموضوع ليس حفظ الاكواد وانمها فهمها ....و طالما انت فهمت الكود يمكنك استخدمة باى طريقة لتؤدى نفس الغرض ....فمثلا من المعروف أنه لمسح قيمة مربع النص يتم استخدام الكود التالى :
- الكود:
Text1.Text = ""
وتخيل لو لديك أكثر من 5 مربعات نص فإن كنت حافظ الكود ستقوم بكتابة على النحو التالى :
- الكود:
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
وهنا افترض ان عدد مربعات النصوص 6 فقط تخيل لو كانت 20 مربع نص مثلا ....لكنك يمكنك استخدام سطرين أو ثلاثة على الاكثر لمسح جميع مربعات النص اللى موجودة على النموذج على النحو التالى :
- الكود:
Dim obj As Control
For Each obj In Me
If TypeOf obj Is TextBox Then
obj.Text = ""
End If
Next obj
اذن المطلوب فهم الكود ومن ثم تقوم بتنفيذة بالطريقة التى تعجبك
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft