تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مطلوب كود تحريك الادوات اثناء التشغيل
#1
السلام عليكم   اخوتي   وتقبل  الله صلاتكم  و  صيامكم 

ارجوا   كود  لتحريك  الادوات  على الفورم  اثناء التشغيل ......  وشكرا  مسبقا  ..
الرد }}}
#2
تفضل

PictureBox3.Top = PictureBox3.Top + 10
الرد }}}
#3
(06-05-20, 01:55 PM)nabil.1710 كتب : تفضل

PictureBox3.Top = PictureBox3.Top + 10

الف  الف شكر  اخي   لكن   هناك  طريقة  اخرة  للتحريك  بالماوس  بضغطة واحدة   واخذ الاداة  لاي  مكان  ......يعني  تحريك الاداة   بالماوس  بنقرة واحدة  وانا  ضاغط   اخذ  الاداة لاي  مكان في الفورم ...وشكرا
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , سعود , asemshahen5
#4
السلام عليكم ورحمة الله وبركاته
اخي الكريم يلزمك حدثين للاداة التي تريد تحريكها
1 حدث MouseDown
2- MouseMove
اولا نعرف متغير عبارة عن النقطة التي نضغط فيها بالماوس على الكونترول والباقي كما في الاكواد عمليات حسابية
هنا في هذه الاكواد ضع اداة pictureBox واستخدم الحدثين كالتالي
كود :
Private mouseDownLocation As Point
   Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           mouseDownLocation = e.Location
       End If
   End Sub

   Private Sub PictureBox1_MouseMove_1(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           PictureBox1.Left = e.X + PictureBox1.Left - mouseDownLocation.X
           PictureBox1.Top = e.Y + PictureBox1.Top - mouseDownLocation.Y
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري , سعود
#5
Smile 
(07-05-20, 03:25 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم يلزمك حدثين للاداة التي تريد تحريكها
1 حدث MouseDown
2- MouseMove
اولا نعرف متغير عبارة عن النقطة التي نضغط فيها بالماوس على الكونترول والباقي كما في الاكواد عمليات حسابية
هنا في هذه الاكواد ضع اداة pictureBox واستخدم الحدثين كالتالي
كود :
Private mouseDownLocation As Point
   Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           mouseDownLocation = e.Location
       End If
   End Sub

   Private Sub PictureBox1_MouseMove_1(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           PictureBox1.Left = e.X + PictureBox1.Left - mouseDownLocation.X
           PictureBox1.Top = e.Y + PictureBox1.Top - mouseDownLocation.Y
       End If
   End Sub

الف  شكر  يا غالي    نجح  الكود تمام  ....تحياتي لكم جميعا  وتقبل الله صيامكم وقيامكم .... 
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو , asemshahen5
#6

حبيت اشارك بالفكرة هذا فورم يحتوي 35 مربع صورة وكل مربع مربوط بصورة ضمن مجلد
والربط او الاسناد بالكود
PHP كود :
 Private Sub pics()
 
       Dim c As Control
        Dim i 
As Integer 1
        For Each c In Panel1
.Controls
            i 
c.Name.Replace("p""")
 
           If TypeOf c Is PictureBox Then
                CType
(cPictureBox).ImageLocation CurDir() & "\pics\forvb_" i.ToString("00") & ".png"
 
           End If
 
       Next
    End Sub 
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#7
(07-05-20, 07:16 AM)سعود كتب :

حبيت اشارك بالفكرة هذا فورم يحتوي 35 مربع صورة وكل مربع مربوط بصورة ضمن مجلد
والربط او الاسناد بالكود
PHP كود :
 Private Sub pics()
 
       Dim c As Control
        Dim i 
As Integer 1
        For Each c In Panel1
.Controls
            i 
c.Name.Replace("p""")
 
           If TypeOf c Is PictureBox Then
                CType
(cPictureBox).ImageLocation CurDir() & "\pics\forvb_" i.ToString("00") & ".png"
 
           End If
 
       Next
    End Sub 




ممكن  شرح  اكثر   يا غالي   لم افهم  ماذا  تقصد  
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مطلوب شرح لتقارير DevExpress بلغة vb.net Adel27213 3 322 03-01-24, 12:23 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] مطلوب سورس كود مبيعات h2551996 2 352 17-12-23, 08:03 PM
آخر رد: dr.programming
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  [VB.NET] مطلوب دمج جملتين لتحديث قاعدة بيانات فى جملة واحدة AmeenRashed 1 335 18-11-23, 01:32 AM
آخر رد: sniper2030
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 434 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري
  مطلوب كود جمع التاريخ Ahmed.vb 3 444 22-10-23, 08:32 AM
آخر رد: Ahmed5
  [كود] مطلوب تبسيط كود VB.NET ليتوافق مع أكواد VBScript AhmedEissa 0 210 20-10-23, 09:57 AM
آخر رد: AhmedEissa

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


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