كيف يمكن عمل سكرول بالماوس

انت جرب وش وراك هي يا

button 1

button 2

button 3

بس

ازرار الماوس هى

1=LeftButton

2=RightButton

4=MiddleButton

ولايوجد زر يساوى 3.

بعد اذن عم محمد و professional VB99

ارجع للأصل ال (((MSDN)))

صح ياعم حازم وآدى وصلة الـMSDN :rolleyes:

الاخوة الافاضل

شكرا جزيلا علي اهتمامكم

انا ذهيت ل msdn

http://support.microsoft.com/default.aspx?...kb;en-us;837910

وحملت الباكج و فكيت الضغط و حاولت اعمل ريجيستريشن لل dll و مانفعش

انا كنت فاكر ان الموضع سهل لكن يبدو انه غير ذللك علي الاقل في vb6

يبدو اني سوف اصرف النظر عن الفكرة برمتها

اكرر شكرى لكل من حاول مساعدتي

تحياتي

بالنسبه لتسجيل الملف ال DLL B)

اكتب التالي في ملف باتش وضعه في المجلد الذي يحوي الملف,

regsvr32 VB6IDEMouseWheelAddin.dll

ثم شغل ملف الباتش B)

اقتباس

انا كنت فاكر ان الموضع سهل لكن يبدو انه غير ذللك علي الاقل في vb6

يبدو اني سوف اصرف النظر عن الفكرة برمتها

مفيش في الدنيا حاجه سهله ولو كل مره قابلتك حاجه صعبه هتتوقف يبقي مش هتعمل حاجه في حياتك ,

لازم شوية مثابره وتعب , وشويه شويه هتلاقي العمليه سهله ,

السلام عليكم ورحمة الله وبركاته

أخى العزيز

كنت أريد أن أسألك عن الأداة التى تريد استخدام العجلة معها؟

عموما أنا أستخدمها مع أداة الفليكس جريد بهذا المديول المرفق

وأكتب سطرين فى الأوكواد

فى حدث تحميل النموذج أكتب الكود التالى:

HookControl FlexGrid1.hwnd

وفى حدث Form_UnLoad

أكتب الكود التالى:

UnHookControl FlexGrid1.hwnd

mdlMouseWheel.zip

هل نستطيع التحكم فى عجلة الماوس بالـ directX

hazzoom كتب:

بالنسبه لتسجيل الملف ال DLL  B)

اكتب التالي في ملف باتش وضعه في المجلد الذي يحوي الملف,

regsvr32 VB6IDEMouseWheelAddin.dll

ثم شغل ملف الباتش B)

مفيش في الدنيا حاجه سهله ولو كل مره قابلتك حاجه صعبه هتتوقف يبقي مش هتعمل حاجه في حياتك ,

لازم شوية مثابره وتعب , وشويه شويه هتلاقي العمليه سهله ,

←

عذرا اخي الفاضل

كيف اعمل ملف الباتش ؟؟

سامحني

تحياتي

abulyaman كتب:

السلام عليكم ورحمة الله وبركاته

أخى العزيز

كنت أريد أن أسألك عن الأداة التى تريد استخدام العجلة معها؟

عموما أنا أستخدمها مع أداة الفليكس جريد بهذا المديول المرفق

وأكتب سطرين فى الأوكواد

فى حدث تحميل النموذج أكتب الكود التالى:

HookControl FlexGrid1.hwnd

وفى حدث Form_UnLoad

أكتب الكود التالى:

UnHookControl FlexGrid1.hwnd

←

اخي الفاضل abulyaman

لقد جربت الموديول و الكود المرفق بالنسبة للتكست وهو يعمل بصورة ممتازة بس ليه عيب ان لو الماوس خارج التكست برضه بيعمل سكرول للتكست !!!!!!!!!!!!!!!!!!

ثانيا هذا الكود للادوات التي لها خاصية ال hwnd فماذ عن الادوات الاخري التي ليس لها هذه الخاصية

فانا اريد عمل سكرول ل image داخل picture box

شكرا جزيلا اخي العزيز

تحياتي

اقتباس

كيف اعمل ملف الباتش

طريقة عمل ملف الباتش هى فتح برنامج المفكرة NotePad ثم كتابة الامر داخل البرنامج ثم حفظ الملف بالامتداد BAT. :rolleyes:

شكرا جزيلا اخي الكريمGHOST2010

لقد تم تسجيل ملف ال VB6IDEMouseWheelAddin.dll بنجاح و الحمد لله

اقتباس

4. Click Add-Ins, and then click Add-in Manager.

5. In the Add-in Manager list, click MouseWheel Fix.

6. Click to select the Loaded/Unloaded check box, and then click to select the Load on Startup check box.

7. Click OK.

عندما دخلت ال Add-in Manager لم اجد MouseWheel Fix ؟؟

الاخوة الاعزاء

السلام عليكم

انا عندى image داخل picture box

اقوم بعمل سكول لل image يطريقتين

1- باستخدام ال vScroll bar

2- drag image vertically with mouseDown event

ثم واتتني الجنونة لاضافة الطريقة الثالثة وهي استخدام عجلة الماوس كما في برنامج ال ACD See

اقتباس

Method 2

Return to an earlier version of Microsoft IntelliPoint software. To do this, follow these steps: 1. If the IntelliPoint software that is installed on your computer is version 4.9 or a later version, remove the IntelliPoint software from your computer.

2. Install IntelliPoint software version 4.12. The following file is available for download from the Microsoft Download Center:

Download the IntelliPoint 4.12 package now.

عند استخدام الطريقة الثانية بموقع ال msdn بعمل installation of IP4_12EngALLMsi.exe وجدت السكرول للايمج اشتغل بدون اى تدخل مني بس طبعا ده علي جهازى فقط ولا يمكن تضمين هذه الاداة بالبرنامج لان حجمها حوالي 9 ميجا

اقتباس

اكرر سؤالي السابق لاخونا محمد و لجميع الاخوة

. Click Add-Ins, and then click Add-in Manager.

5. In the Add-in Manager list, click MouseWheel Fix.

6. Click to select the Loaded/Unloaded check box, and then click to select the Load on Startup check box.

7. Click OK.

عندما دخلت ال Add-in Manager لم اجد MouseWheel Fix ؟؟

تحياتي

الاخوة الافاضل

ارفق لكم الكود جايز الموضوع يثير الخيال اكثر

يجدر بي الاشارة ان كود الداتابيز لاخونا الفاضل ARAFA

لقد قمت فقط بتحويله ليعمل باستخدام ال ADO

----------

في الموديول

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset

'Function To Files List

Sub ListRecord()
    With Form1
        '
        '
        'combo4
        .List1.Clear

        Do While Not rs.EOF

            .List1.AddItem rs!Img_name


            rs.MoveNext

        Loop

        ' rs.Close -----> if data from separet table
    End With
End Sub

في الفورم

'Option Explicit

' for drag image
Private m_Dragging As Boolean
Private m_StartX As Single
Private m_StartY As Single
'=================================

Dim FileBinary As String
Dim FN As String

Function GetAllFiles()
    On Error Resume Next
    List1.Clear

    rs.MoveFirst
    Do Until rs.EOF

        List1.AddItem rs!Img_name

        rs.MoveNext
        DoEvents
    Loop


End Function
Function ViewPic(FName As String)
    'View Pic From DB
    Dim OutFile As String
    Dim strSql As String
    Dim rsSearchResults As ADODB.Recordset

    strSql = ""
    strSql = "select * from Pic where Img_name = '" & FName & "'"


    'Open a recordset to hold the search results.
    Set rsSearchResults = New ADODB.Recordset
    rsSearchResults.Open strSql, db, adOpenStatic, adLockPessimistic

    If rsSearchResults.EOF Then
        MsgBox "No records were found which match that phone number."
        'Don't change rs, since no match was found we'll stay on whatever
        'record was previously selected.
    Else

        'Set the form's current recordset to hold only the search results.
        Set rs = rsSearchResults

        If Dir(App.Path & "\Temp.bmp") <> "" Then Kill App.Path & "\Temp.bmp"

        OutFile = rs!Image
        'Write File
        Open App.Path & "\Temp.bmp" For Binary Access Write As #1
        Put #1, , OutFile
        Close #1

        im1.Picture = LoadPicture(App.Path & "\Temp.bmp")

    End If



End Function

Private Sub Command2_Click()
    Dim idx As Integer
    Dim cdx As Integer
    idx = List1.ListIndex
    cdx = List1.ListCount - 1
    If idx >= cdx Then Exit Sub

    List1.ListIndex = List1.ListIndex + 1

End Sub

Private Sub Command3_Click()
    Dim idx As Integer
    idx = List1.ListIndex
    If idx <= 0 Then Exit Sub
    List1.ListIndex = List1.ListIndex - 1

End Sub

Private Sub Form_Load()
    db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path + "\db2.mdb"
    rs.Open "[pic]", db, adOpenStatic, adLockPessimistic
    '
    '
    ListRecord
    On Error Resume Next
    im1.Picture = LoadPicture(App.Path & "\Temp.bmp")

End Sub
Private Sub Command1_Click()
    With Dlgs

        .Filter = "(*.bmp;*.jpg;*.gif;*.dat;*.pcx)| *.bmp;*.jpg;*.gif;*.dat;*.pcx|(*.psd)|*.psd|(*.All files)|*.*"
        .ShowOpen

        If .FileName = "" Then Exit Sub

        FN = .FileTitle
        'Open File And Read as Binary
        Open .FileName For Binary Access Read As #1
        FileBinary = Space(LOF(1))
        Get #1, , FileBinary
        Close #1

        'Add File To DB
        rs.AddNew

        rs!Img_name = FN
        rs!Image = FileBinary
        rs.Update
        'Refill List
        GetAllFiles


    End With



End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If m_Dragging Then m_Dragging = False

End Sub

Private Sub im1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Start dragging.
    If Button = vbLeftButton Then
        m_Dragging = True
        ' m_StartX = X
        m_StartY = Y
    End If


End Sub

Private Sub im1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Continue dragging.
    If m_Dragging Then
        im1.Move _
                im1.Left, _
                im1.Top + (Y - m_StartY)
    End If


    If im1.Top >= 0 Then
        im1.Top = 0
        m_Dragging = False
    End If
    If im1.Top < p1.ScaleHeight - im1.Height Then
        im1.Top = p1.ScaleHeight - im1.Height
        m_Dragging = False
    End If
    imScrol
End Sub

Private Sub im1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' End dragging.

    If m_Dragging Then m_Dragging = False


End Sub

Private Sub List1_Click()
    ViewPic List1.List(List1.ListIndex)
    vbar.Value = 0
End Sub

Sub PicScrol()
    If im1.Height > p1.ScaleHeight Then
        vbar.Min = 0
        vbar.Max = p1.ScaleHeight - im1.Height
        vbar.LargeChange = p1.ScaleHeight
        vbar.SmallChange = p1.ScaleHeight / 20
        im1.Top = vbar.Value
    Else
        vbar.Visible = False
    End If

End Sub
Sub imScrol()
    If im1.Height > p1.ScaleHeight Then
        vbar.Min = 0
        vbar.Max = p1.ScaleHeight - im1.Height
        vbar.Value = im1.Top
    End If
End Sub
Private Sub Form_Resize()
    p1.Move (Me.ScaleWidth - p1.ScaleWidth) / 3, _
            (Me.ScaleHeight - p1.ScaleHeight) / 2

    p1.Width = im1.Width
    vbar.Move p1.Left + p1.Width, p1.Top, 200, p1.Height
    Dim W As Integer

    List1.Move vbar.Left + 210, p1.Top, 1600, p1.ScaleHeight
    Command1.Move List1.Left, List1.Top + (List1.Height + 50), List1.Width, 400
    Command3.Move p1.Left + (p1.Width / 3.5), p1.Top + p1.Height
    Command2.Move Command3.Left + Command2.Width, p1.Top + p1.Height


End Sub

Private Sub vbar_Change()
    PicScrol
End Sub

Private Sub vbar_Scroll()
    PicScrol

End Sub

تحياتي

Quran.zip

السلام عليكم ورحمة الله وبركاته

الموضوع فعلا رائع والفكرة أروع كثيرا ما فكرت فيها ولكنها كانت صعبة جدا لدرجة أنني أبتعدت عن التفكير فيها ..

لكني بعد قراءة هذا الموضوع وردود الأخوة الأعضاء

تصوروا ....

لم أفهم شئ

والله ما فهمت شئ , والمكتبة التي ذكرتموها بحثت عنها ولم أجدها وكما بعد ما نزلت الباكدج إلي بتكلموا عليه ...

فهل أنا مخطئ

أرجو أن تبينوا لي ما في الأمر لأني أود إستخدام هذه المميزة

والسلام عليكم ورحمة الله وبركاته

اخي الفاضل

ارجع لمشاركة الاخ الغاضل abulyaman

مرفق موديول وكود ممتاز للادوات التي لها خاصية hwnd

السلام عليكم

لقد قمت بوضع مثال سهل وبسيط علي التحكم بال Mouse Wheel أو عجلة الماوس ..

تجدونه علي الرابط التالي

/index.ph...topic=66146&hl=

أتمني أن يكون هذا ما تريده...

Pharaonic_Guy كتب:

السلام عليكم

لقد قمت بوضع مثال سهل وبسيط علي التحكم بال Mouse Wheel أو عجلة الماوس ..

تجدونه علي الرابط التالي

/index.ph...topic=66146&hl=

أتمني أن يكون هذا ما تريده...

←

شكرا جزيلا اخي الفاضل Pharaonic_Guy

المثال حلو جدا وسهل الفهم

مع مراعاة تعديل

gHW = Me.hwnd

الي

gHW = Command1.hwnd

لانه بالصيغة الاولي يعمل سكرول حتي لو مؤشر الماوس خارج الفورم

بعد التعديل لن يقوم بعمل السكرول الا عندما يكون مؤشر الماوس فوق ال Command1

عند تشغيل المثال علي الويندوز 98 الجهاز بيهنج و اضطر لاعادة فتح الجهاز

تبقي المشكللة الخاصة بي فانا اريد تغيير immage1.Top بواسطة عجلة الماوس

ال immage Control ليس لها خاصية ال hwnd !!!!!!!!!!!!!

بوركت اخي الفاضل

السلام عليكم..

لقد قمت بعمل هذا المثال لأنني وجدت في برنامج ميديا بيستخدم ال سكرول لرفع وخفض الصوت بطريقة جميله..

ولا أعلم ما المانع في عمل hook باستخدام مقبض الفورم وإستقبال أحداث الماوس إذا لم يكن هناك مقبض Hwnd لل Image ؟؟؟؟؟؟؟

لم أجرب المشروع علي 98 ولكن أعتقد أن الجهاز بيهنج نتيجة لعدم عمل Unhook قبل إغلاق المشروع..

وأرجو ذكر سبب عدم إستخدام مقبض الفورم ؟

وتقبل تحياتي ....

السلام عليكم ورحمة الله وبركاته

يا أخواني أنا قمت بتجربة الأمثلة

لكن ما هذه المكتبة VB6IDEMouseWheelAddin.dll

وأين أجدها ومن أين حصلتم عليها أنا لم أجدها

ولكن المشاكل التي تواجهني في إلتقاط رسائل النظام هي

1- جرب أن تعمل Hook مرتين يعني أضغط علي زر Hook مرتين سوف يغلق البرنامج والفيجوال بيسك هههههههههه ولو في حاجة كمان شغال تبعهم هاتتقفل أه والله ألا يوجد حل لهذه المشكلة

2- هناك أدوات ليس لها مقبض ويبدوا أن كل مقابض الأدوات تابعة للفورم يعني لو الماوس علي ليست سوف يحرك اللليست وكمان تنفيذ حدث إلتقاط الرسائل فكيف يمكن الفصل بين هاتين العملتين

أسف

السلام عليكم و رحمة الله و بركاته

عملت مشروع فيه طريقة استخدام الاسكرول و ارفقت الملف و يا ريت يفي بالغرض ان شاء الله

MouseMessage.zip

شكر الله لك اخي الكريم محمد صادق

جارى التجربة

هل يوجد طريقه باستخدام API?