تقييم الموضوع :
  • 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 
تحميل المثال
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] كيفية تحويل ملف تنفيذي vb6 إلى كود مصدري salahoskar1 1 226 11-03-18, 02:17 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 472 08-06-17, 05:16 AM
آخر رد: Amir_alzubidy
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 864 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  إصدار صوت للأزرار عند تمرير الماوس عبد الرحمن على 12 1,037 21-04-17, 01:19 AM
آخر رد: عبد الرحمن على
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 804 26-01-17, 03:37 PM
آخر رد: عمر سالم
  [vb6.0] كيفية تنفيذ كود مكتوب داخل اداة textbox ghost_programmer 6 2,068 03-06-15, 05:48 PM
آخر رد: ghost_programmer
  كيفية حذف سطور من msflexgrid ؟ gedo 0 780 18-11-14, 07:03 PM
آخر رد: gedo
  كيفية حساب الوقت المتبقى للاضافة والحذف فى msflexgrid ؟ gedo 1 1,049 17-11-14, 10:37 PM
آخر رد: gedo
  كيفية وضع سطور معينة من جريد الى جريد اخرى ؟ gedo 2 1,052 14-11-14, 03:12 AM
آخر رد: gedo
  كيفية انتهاء الاسئله عن طريق المصفوفات ودالثورة 10 1,786 24-08-13, 07:49 AM
آخر رد: VB_Coder

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


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