تعلم كيفية انشاء نص تلميح 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد