السماح للمستخدم بتغيير حجم الصورة باستخدام الماوس

اذهب الى الأسفل

السماح للمستخدم بتغيير حجم الصورة باستخدام الماوس Empty السماح للمستخدم بتغيير حجم الصورة باستخدام الماوس

مُساهمة من طرف جورج صبحى في الخميس نوفمبر 01, 2018 8:25 am

كود بسيط وجميل لجعل المستخدم قادرا على تغيير حجم الصورة باستخدام الماوس فى عنصر التحكم Image وذلك من خلال تعيين الخاصية Stretch لعنصر التحكم Image إلى True. 

ثم استخدم معالجات الأحداث MouseDown و MouseMove و MouseUp لعنصر التحكم للسماح للمستخدم بسحب ركن عنصر التحكم.....عن طريق الشفرة التالية :

الكود:

Private m_Dragging As Boolean

Private Sub Form_Load()
    Image1.Stretch = True
End Sub


الكود:

Private Sub Image1_MouseDown(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    m_Dragging = True
End Sub

الكود:

Private Sub Image1_MouseMove(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    If Not m_Dragging Then Exit Sub

    Image1.Move 0, 0, X, Y
End Sub


الكود:

Private Sub Image1_MouseUp(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    m_Dragging = False
End Sub




بس كدة خلاص  Very Happy
جورج صبحى
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 123
النقاط : 254
التقيم : 5
الجنس : ذكر

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

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

ََ

مواضيع ذات صلة


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