تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية ربط VScroll1 بعجلة الماوس
#1
أريد كود لربط VScroll1 بعجلة الماوس
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Option Explicit

Private Type LONG_JOINED
    Value 
As Long
End Type

Private Type LONG_SPLIT
    LowValue 
As Integer
    HighValue 
As Integer
End Type

Private LONG_JOINED As LONG_JOINED
Private LONG_SPLIT As LONG_SPLIT

Public Function SubclassProc_
    ByRef hWnd 
As Long_
    ByRef uMsg 
As Long_
    ByRef wParam 
As Long_
    ByRef lParam 
As Long_
    ByVal dwRefData 
As Long) As Long

    Const WM_MOUSEWHEEL 
As Long = &H20A&
 
   Const WM_MOUSEHWHEEL As Long = &H20E'Requires Vista or later.
    Dim Sum As Integer

    LONG_JOINED.Value = wParam
    LSet LONG_SPLIT = LONG_JOINED

    Select Case uMsg
        Case WM_MOUSEWHEEL
            With VScroll1
                If .Enabled Then
                    Sum = .Value - LONG_SPLIT.HighValue \ 12
                    If 0 <= Sum And Sum <= .Max Then .Value = Sum
                End If
            End With

        Case WM_MOUSEHWHEEL
            With HScroll1
                If .Enabled Then
                    Sum = .Value + LONG_SPLIT.HighValue \ 12
                    If 0 <= Sum And Sum <= .Max Then .Value = Sum
                End If
            End With

        Case Else
            SubclassProc = DefSubclassProc(hWnd, uMsg, wParam, lParam)
    End Select
End Function 
تحميل المثال
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 1,161 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  كيفية حذف سطور من msflexgrid ؟ gedo 0 469 18-11-14, 07:03 PM
آخر رد: gedo
  كيفية حساب الوقت المتبقى للاضافة والحذف فى msflexgrid ؟ gedo 1 558 17-11-14, 10:37 PM
آخر رد: gedo
  كيفية وضع سطور معينة من جريد الى جريد اخرى ؟ gedo 2 543 14-11-14, 03:12 AM
آخر رد: gedo
  كيفية انتهاء الاسئله عن طريق المصفوفات ودالثورة 10 1,191 24-08-13, 07:49 AM
آخر رد: VB_Coder
  أسئلة عن كيفية صنع الكثير من البرامج أرجو من كل من لديه جواب أن يتفضل بالمشاركة ليفيد جميع الأعضاء طارق 3 736 20-08-13, 02:09 PM
آخر رد: AGASHE
  دورة الفيجوال بيسك::: الدرس الأول ] كيفية عمـل بـرنـامـج راديـو (مصور) derbaliammar 3 1,289 31-07-13, 11:45 AM
آخر رد: samee119485r
  كيفية التحكم بمكونات موقع ما , من خلال مشروع في الفيجوال بيسك 6 MR:HACK 1 437 04-07-13, 10:12 PM
آخر رد: 3amo
  كيفية استخدام جملة if الشرطية asto 10 1,675 07-06-13, 11:29 PM
آخر رد: VB_Coder
  كيفية صنع برنامج بوربوينت بسيط ارجو الرد والشرح طارق 2 587 27-05-13, 12:30 PM
آخر رد: Hassan Khamees

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم