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

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

قام بنشر

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

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

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

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

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

قام بنشر
  في 17‏/1‏/2017 at 10:55, wael_rafat said:

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

Expand  

هلا هلا هلا والله :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 ثم تغلق البرنامج وتفتحه ، كل شئ يكون محفوظ بالطريقة والمكان اللي كانوا فيه   :)

Expand  

جعفر

PCTW_4.zipFetching info...

قام بنشر

اخ جعفر بارك الله فيك  وجزاك كل خير  جاري  التطبيق وساوافيك بالنتيجة

 

قام بنشر

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

 

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

قام بنشر
  في 17‏/1‏/2017 at 19:19, ali2017 said:

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

Expand  

 

تحويل ماذا؟

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

 

جعفر

قام بنشر
  في 17‏/1‏/2017 at 19:58, jjafferr said:

 

تحويل ماذا؟

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

 

جعفر

Expand  

    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

قام بنشر (معدل)
  في 17‏/1‏/2017 at 11:52, 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 ثم تغلق البرنامج وتفتحه ، كل شئ يكون محفوظ بالطريقة والمكان اللي كانوا فيه   :)

Expand  

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

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

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

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

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

 

 

 

Tables.rarFetching info...

1.JPG

تم تعديل بواسطه wael_rafat
قام بنشر (معدل)

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

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

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

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

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

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

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

تم تعديل بواسطه wael_rafat
  • 7 years later...
قام بنشر
  في 17‏/1‏/2017 at 11:52, jjafferr said:
Expand  

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

 

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

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

قام بنشر (معدل)

32bit (X!)

للمساعدة 

  في 4‏/7‏/2024 at 22:05, شريف كونكت said:

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

Expand  

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

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

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

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

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

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

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

Bit 64 و Bit 32! X NO $ 

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

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

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

Hotmail

بالتوفيق

8.PNG

7.PNG

moveButton_IN_Form.rarFetching info...

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