اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information