التحديد التلقائى لعناصر 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
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

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

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


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