اذهب الي المحتوي
أوفيسنا

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

قام بنشر

وعليكم السلام: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 مربع نص  

 

تحويل ماذا؟

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

 

جعفر

قام بنشر
الان, jjafferr said:

 

تحويل ماذا؟

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

 

جعفر


    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

 

قام بنشر

حبيبي اخ جعفر

عندي اكثر من 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

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