التحديد التلقائى لعناصر 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

end.sub
.....
.....

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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