اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود لتحريك العنصر داخل النموذج وتغيير احداثياته


ali2017

الردود الموصى بها

وعليكم السلام:smile:

 

كلما ضغطت على زر الامر a2 ، سيتحرك الحقل a2 يمينا ويسارا 

Private Sub Command3_Click()

    If Me.a2.Left = 0 Then
        Me.a2.Left = 6 * 1440
    Else
        Me.a2.Left = 0
    End If
    
    
'Me.a2.Visible = True
'Me.a1.Visible = False
'Me.a2.SetFocus
End Sub

 

جعفر

537.move_control.accdb.zip

  • Like 1
رابط هذا التعليق
شارك

يا سلام عليك يا فنان تسلم ايدك ...:fff:

استفسار جانبي بعد اذنك ....

ماذا عن طريقة تحريك العنصر الى اي مكان بالنموذج عن طريق السحب والافلات وبقائه في نفس المكان بعد غلق النموذج وفتحه مرة اخري ؟؟؟

سواء كان هذا العنصر زر امر او صورة .

مع كل الشكر والتقدير !!!!

رابط هذا التعليق
شارك

منذ ساعه, wael_rafat said:

ماذا عن طريقة تحريك العنصر الى اي مكان بالنموذج عن طريق السحب والافلات وبقائه في نفس المكان بعد غلق النموذج وفتحه مرة اخري ؟؟؟

هلا هلا هلا والله :smile:

 

قصدك مثل هاي:

http://arabteam2000-forum.com/index.php?/topic/291933-امسك-الحقل-بالفأرة-اليسار-،-وخليه-المكان-اللي-يعجبك-3/

 

اقتباس

الجزء الاول:    http://arabteam2000-...المكان-اللي-يع/

الجزء الثاني:  http://arabteam2000-forum.com/index.php/topic/291881-%D8%A7%D9%85%D8%B3%D9%83-%D8%A7%D9%84%D8%AD%D9%82%D9%84-%D8%A8%D8%A7%D9%84%D9%81%D8%A3%D8%B1%D8%A9-%D8%A7%D9%84%D9%8A%D8%B3%D8%A7%D8%B1-%D8%8C-%D9%88%D8%AE%D9%84%D9%8A%D9%87-%D8%A7%D9%84%D9%85%D9%83%D8%A7%D9%86-%D8%A7%D9%84%D9%84%D9%8A-%D9%8A%D8%B9/

 

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

 

فكرة ، واردت مشاركتها   :)

اجعل الملفين المرفقين في نفس المجلد ،

 

طريقة العمل:

1. امسك الحقل بالفأرة اليسار ، وخليه المكان اللي يعجبك ، وادخل فيه الكلام اللي يعجبك   :)

2. اضغط على Shift واستعمل السهم (يمين ، يسار ، اعلى ، اسفل) لتكبير وتصغير الحقل  :)

3. اضغط على Ctrl واستعمل السهم (يمين ، يسار ، اعلى ، اسفل) لتجعل الحقل في حجم الكلمات التي بداخله  :)

4. اضغط على الحقل مرتين لتغيير اسم الخط ، لون الخط ، حجم الخط ، ونوع الخط (ثخين ، عادي ، مائل ، تحته خط) :)

5. لما تضغط على الزر close ثم تغلق البرنامج وتفتحه ، كل شئ يكون محفوظ بالطريقة والمكان اللي كانوا فيه   :)

جعفر

PCTW_4.zip

رابط هذا التعليق
شارك

هل يمكن تحويلها الى وحدة نمطية وتطبق على جميع العناصر عن النقر ؟  تفاديا لتكرار الكود  مع كل عنصر لان عندي اكثر من  30 مربع نص  

 

جزاك الله  كل خير

رابط هذا التعليق
شارك

37 دقائق مضت, ali2017 said:

هل يمكن تحويلها الى وحدة نمطية وتطبق على جميع العناصر عن النقر ؟  تفاديا لتكرار الكود  مع كل عنصر لان عندي اكثر من  30 مربع نص  

 

تحويل ماذا؟

رجاء توضيح طلبك.

 

جعفر

رابط هذا التعليق
شارك

حبيبي اخ جعفر

عندي اكثر من 35 زر امر  و مثلهم عنصر  داخل النموذح    واريد عند الضغط على الزر   الخاص ب كل عنصر  ان اعطي له خصائص  


    If Me.a2.Left = 0 Then
        Me.a2.Left = 6 * 1440
    Else
        Me.a2.Left = 0
    End If
    
    
'Me.a2.Visible = True
'Me.a1.Visible = False
'Me.a2.SetFocus


  هذا الكود  ساكررره  مع كل زر امر      هل مكن  بدل التكرار  ان اضعه في وحدة نمطية واستدعيها عند الضغط على كل زر  ؟؟  وكيف

رابط هذا التعليق
شارك

بعد عمل الوحدة النمطية ، عندك طريقتين لمناداتها:

1.

537.Clipboard01.jpg

.

2. او في الكود:

Private Sub Command3_Click()

    Call Move_Around(Me.a2)
End Sub

Function Move_Around(ctl As Control)
    
	ctl.SetFocus
    If ctl.Left = 0 Then
        ctl.Left = 6 * 1440
    Else
        ctl.Left = 0
    End If
    
End Function

.

جعفر

537.move_control.accdb.zip

رابط هذا التعليق
شارك

9 ساعات مضت, jjafferr said:
اقتباس

الجزء الاول:    http://arabteam2000-...المكان-اللي-يع/

الجزء الثاني:  http://arabteam2000-forum.com/index.php/topic/291881-%D8%A7%D9%85%D8%B3%D9%83-%D8%A7%D9%84%D8%AD%D9%82%D9%84-%D8%A8%D8%A7%D9%84%D9%81%D8%A3%D8%B1%D8%A9-%D8%A7%D9%84%D9%8A%D8%B3%D8%A7%D8%B1-%D8%8C-%D9%88%D8%AE%D9%84%D9%8A%D9%87-%D8%A7%D9%84%D9%85%D9%83%D8%A7%D9%86-%D8%A7%D9%84%D9%84%D9%8A-%D9%8A%D8%B9/

 

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

 

فكرة ، واردت مشاركتها   :)

اجعل الملفين المرفقين في نفس المجلد ،

 

طريقة العمل:

1. امسك الحقل بالفأرة اليسار ، وخليه المكان اللي يعجبك ، وادخل فيه الكلام اللي يعجبك   :)

2. اضغط على Shift واستعمل السهم (يمين ، يسار ، اعلى ، اسفل) لتكبير وتصغير الحقل  :)

3. اضغط على Ctrl واستعمل السهم (يمين ، يسار ، اعلى ، اسفل) لتجعل الحقل في حجم الكلمات التي بداخله  :)

4. اضغط على الحقل مرتين لتغيير اسم الخط ، لون الخط ، حجم الخط ، ونوع الخط (ثخين ، عادي ، مائل ، تحته خط) :)

5. لما تضغط على الزر close ثم تغلق البرنامج وتفتحه ، كل شئ يكون محفوظ بالطريقة والمكان اللي كانوا فيه   :)

يا سلام عليك يا فنان  شغل رائع حقيقي  ربنا يزيدك من نعمه .

ولكن طلبي استاذنا الغالي يختلف قليلا  .... ولكن نفس الفكرة تقريبا

مرفق صورة توضيحية ..... وعند رؤيتها سيتضح المطلوب

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

مع كل الاحترام والتقدير ،،،،،

 

 

 

Tables.rar

1.JPG

تم تعديل بواسطه wael_rafat
رابط هذا التعليق
شارك

نفس الفكرة استاذنا الفاضل

تحريك العناصر ( الطاولات)  باي مكان داخل النموذج وثباته علي المكان الجديد وذلك عن طريق السحب والافلات .

اي حرية تغيير اماكن الطاولات داخل النموذج

علي سبيل المثال اريد ان انقل الطاولة رقم "1" مكان اخر داخل النموذج وليكن مكان الطاولة رقم "8" .

بمعني اوضح .... عند الضغط علي الطاوله استطيع ان اقوم بسحبها الي المكان الذي اريدة . وطبعا ثباتها بهذا المكان المختار .

وبارك الله فيك وزادك الله من فضله

كل الشكر والتقدير استاذنا !!!!!

تم تعديل بواسطه wael_rafat
رابط هذا التعليق
شارك

  • 7 years later...
في 17‏/1‏/2017 at 13:52, jjafferr said:

بعد اذنك استاذ جعفر ممكن الملف ده مفتوح المصدر لانى محتاج كود زى كده وشكرا جزيلا

 

في 17‏/1‏/2017 at 13:52, jjafferr said:

بعد اذنك استاذ جعفر ممكن الملف ده مفتوح المصدر لانى محتاج كود زى كده وشكرا جزيلا

رابط هذا التعليق
شارك

32bit (X!)

للمساعدة 

3 hours ago, شريف كونكت said:

بعد اذنك استاذ جعفر ممكن الملف ده مفتوح المصدر لانى محتاج كود زى كده وشكرا جزيلا

اظن انك كنت فاتح نفس الموضوع وغلق 

❤️ ليش صورة شيك بنك برقان داخل الملف 

الطريقة خلي حدث عند الضغط المزدوج تساوي الحقل وفي اربع ازرة صورة 

PNG فارغة (شفاف)

+ كود تحصل موقع  منتدى المبرمجين العرب لتغير شكل الماوس وخله شكل مؤشر الماوس يمسك

اي جهه تحرك الماوس يتحرك العنصر معاك 

=0 وعند الضغط مزدوج يلغي التحريك ويغير شكل الماوس الى الطبيعي

Bit 64 و Bit 32! X NO $ 

================================ (مثال للتطبيق والتجربة)

 صوره من التحديث لبرنامج آخر بس بيرفعة بموقع ثاني

واعتذرة لشخص على

Hotmail

بالتوفيق

8.PNG

7.PNG

moveButton_IN_Form.rar

vmv 00_00_02-.gif

تم تعديل بواسطه hanan_ms
  • Like 1
رابط هذا التعليق
شارك

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information