كيف يمكننى تصميم زر من صوره

لماذا تريد تصميم زر ocx من صوره هل لأضافة خصائص معينه

لكن لو أردت أستخدام الصورة كزر عادى يمكنك أضافة الصورة و أستخدام الأحداث العامه ك click , dbl click

أرجو التوضيح

أما لو كنت تريد شرح عمل ال ocx فهذا شئ آخر

اخي الكريم

يمكنك تنفيذ المثال المرفق في مشروع Active X control بدلا من standard exe مع اضافة الخصائص التي تريدها

تحياتي

button7.zip

السلام عليكم

انا اقصد تصميم زر على شكل هذه الصور

عندما يقف الماوس عليه تظهر صوره وعند الضغط عليه تظهر الصوره الأخرى

مثل الصوره الموجوده فى المرفقات

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

ستستخدم 3 صناديق صور وتضع فى كل صندوق صورة لحدث معين اى صورة لحدث MouseDown وصورة لحدث Click وصورة لحدث MouseMove علماً بأن صورة الحدث Click هى نفسها الصورة الرئيسية للزر

بفرض ان اسماء صناديق الصور هى

picClick , picMouseDown , picMouseMove

الكود بهذه الطريقة

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim Handle As Long, PT As POINTAPI

Private Sub picClick_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
picClick.Visible = False
picMouseMove.Visible = True
End Sub

Private Sub picMouseMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
picMouseMove.Visible = False
picMouseDown.Visible = True
End Sub

Private Sub picMouseMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
picMouseDown.Visible = False
picClick.Visible = True
End Sub

Private Sub Timer1_Timer()
GetCursorPos PT
Handle = WindowFromPoint(PT.X, PT.Y)
If Handle = Parent.hWnd Then
    picMouseMove.Visible = False
    picClick.Visible = True
End If
End Sub

يمكنك أيضا أن تستخدم PictureBox واحد بدلاً من ثلاثة و تقوم بتغيير الصورة داخلة مع كل حدث باستخدام LoadPicture و هذا سيوفر المزيد من الوقت

ولكن باستخدام LoadPicture سيحتاج لارفاق الصور مع الاداة تفادياً للاخطاء ولكن يمكن استخدام ملفات الموارد لتخزين الصور داخلها واستخدام صندوق صور واحد :rolleyes:

اشكركم على الرد وسوف اقوم بتنفيذه وان نجحت ساقوم بارفاقه للموضوع إن شاء الله

في الادوات Active x control

من الافضل استخدام ال image بدلا من ال picture box نظرا لانها اخف و لها خاصية

strech=true

بالطبع انت تصنع الاداة ليس لاستخدامها مرة واحدة لكن لمرات عديدة مع تغيير الصور

تحتاج للبحث في الانترنت عن اشكال ازرار في وضع mouse down و mouse up

او ان كنت تجيد الجرافيك يمكنك ان تصنع صورك الخاصة للوضعين

يفضل استخدام الصور بامتداد ال gif للحصول علي الاشكال الغير مستوية مثل زر دائرى مثلا

كل ما سبق ليس به مشاكل

المهم هو ال property page ل mouseDown pictur و mouseUp picture يجب ان تكون خاصية تغيير الصورة للاداة فعالة

هنا اعتقد انك سوف تحتاج لكتاب بسيط يشرح لك كيغية عمل ال property page

بالتوفيق باذن الله

لقد حاولت ولكنى لم انجح فأنا اريد عند توقف الماوس على الزر تظهر صوره وعنده تركه تعود الصوره الولى

اما بالنسبه للصور فانا عندى الكثير منها وارجو لو عند احد الأعضاء كتاب عن الproperty page

ان يقوم بارفاقه