التحديد التلقائى لعناصر listbox عند مرور الماوس عليها

إرسال مساهمة في موضوع

اذهب الى الأسفل

التحديد التلقائى لعناصر listbox عند مرور الماوس عليها

مُساهمة من طرف end.sub في الجمعة نوفمبر 29, 2013 4:37 pm

مساء الخير على الجميع

كود بيسط للغاية يوضح كيفية عمل تحديد تلقائى لعناصر listbox بمجرد مرور الماوس عليها و ذلك من خلال إنشاء طريقة و ليكن بإسم ItemUnderMouse كما يلى :

الكود:
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
وفى حدث MouseMove لمربع السرد و التحرير listbox يتم استدعاء الطريقة كما يلى
الكود:
Private Sub List1_MouseMove(Button As Integer, Shift As  Integer, X As Single, Y As Single)
    List1.ListIndex = ItemUnderMouse(List1.hwnd, X, Y)
End Sub
avatar
end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: التحديد التلقائى لعناصر listbox عند مرور الماوس عليها

مُساهمة من طرف م/موسي في الإثنين أكتوبر 29, 2018 8:40 am

أحسنت الاخ الفاضل 
avatar
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 152
النقاط : 305
التقيم : 11
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى