• 0
محمد مسافر

Move PictureBox: picture control with mouse

سؤال

بسم الله الرحمن الرحيم

اريد المساعدة في الحصول على كود تحريك الصورة كما هو موضح في الصورة حصلت على الكود الخاص بالتكبير بقي كودpost-277276-0-41127000-1416386389_thumb. تحريك الصورة 

كود التكبير ضعه في بوتون

PictureBox1.Width += 40% 
PictureBox1.Height += 40%

تم تعديل بواسطه محمد مسافر
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

السلام عليكم

 

جرب الكود التالي

 

 

 

 

Dim TemporaryMousePointerLocation As Point Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove Static UpdateMouseOnNextMove As Boolean = False If DirectCast(e, MouseEventArgs).Button = MouseButtons.Right Then If UpdateMouseOnNextMove Then PictureBox1.Left -= (Windows.Forms.Cursor.Position.X - TemporaryMousePointerLocation.X) PictureBox1.Top -= (Windows.Forms.Cursor.Position.Y - TemporaryMousePointerLocation.Y) Windows.Forms.Cursor.Position = TemporaryMousePointerLocation UpdateMouseOnNextMove = False Else UpdateMouseOnNextMove = True ' allow cursor to move a bit so we can update the position of the mouse End If Else TemporaryMousePointerLocation = Windows.Forms.Cursor.Position End If End Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اداة تنسيق الكود لا تعمل بالشكل المطلوب .. فعذراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل اخي مثال و لكن بكود مختلف

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وجدت الحل وشكراً للجميع ولمن ساعدني ولم يتجاهل موضوعي

 

 Private Sub PictureBox_MouseMove(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles PictureBox1.MouseMove
        Static mousePosX 
As SinglemousePosY As Single
        If e
.Button 0 Then
            mousePosX 
e.X
            mousePosY 
e.Y
        Else
            PictureBox1
.Left PictureBox1.Left + (e.mousePosX)
 
           PictureBox1.Top PictureBox1.Top + (e.mousePosY)
 
       End If
 
   End Sub

 

 

 

 

وهذاء مشروع ممكن الاستفادة منة

Manual PictureBox Zoom - 01.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .