ali2017 قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 كيف يمكن تغيير احداثيات العنصر داخل النموذج وتحريكه من اقصى اليمين ل اقصى اليسار والعكس ملف move_control.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 وعليكم السلام كلما ضغطت على زر الامر 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 1 رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 يا سلام عليك يا فنان تسلم ايدك ... استفسار جانبي بعد اذنك .... ماذا عن طريقة تحريك العنصر الى اي مكان بالنموذج عن طريق السحب والافلات وبقائه في نفس المكان بعد غلق النموذج وفتحه مرة اخري ؟؟؟ سواء كان هذا العنصر زر امر او صورة . مع كل الشكر والتقدير !!!! رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 منذ ساعه, wael_rafat said: ماذا عن طريقة تحريك العنصر الى اي مكان بالنموذج عن طريق السحب والافلات وبقائه في نفس المكان بعد غلق النموذج وفتحه مرة اخري ؟؟؟ هلا هلا هلا والله قصدك مثل هاي: 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 رابط هذا التعليق شارك More sharing options...
ali2017 قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 اخ جعفر بارك الله فيك وجزاك كل خير جاري التطبيق وساوافيك بالنتيجة رابط هذا التعليق شارك More sharing options...
ali2017 قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 هل يمكن تحويلها الى وحدة نمطية وتطبق على جميع العناصر عن النقر ؟ تفاديا لتكرار الكود مع كل عنصر لان عندي اكثر من 30 مربع نص جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 37 دقائق مضت, ali2017 said: هل يمكن تحويلها الى وحدة نمطية وتطبق على جميع العناصر عن النقر ؟ تفاديا لتكرار الكود مع كل عنصر لان عندي اكثر من 30 مربع نص تحويل ماذا؟ رجاء توضيح طلبك. جعفر رابط هذا التعليق شارك More sharing options...
ali2017 قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 الان, 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 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 أخي علي والله ماني فاهم شو اللي تريده!! ياريت توضح طلبك ، وبالتفصيل. جعفر رابط هذا التعليق شارك More sharing options...
ali2017 قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 حبيبي اخ جعفر عندي اكثر من 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 هذا الكود ساكررره مع كل زر امر هل مكن بدل التكرار ان اضعه في وحدة نمطية واستدعيها عند الضغط على كل زر ؟؟ وكيف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 بعد عمل الوحدة النمطية ، عندك طريقتين لمناداتها: 1. . 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 رابط هذا التعليق شارك More sharing options...
ali2017 قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 تسلم ايدك اخي الكريم رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 (معدل) 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 تم تعديل يناير 17, 2017 بواسطه wael_rafat رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 حياالله أخوي وائل ما فهمت شو اللي تريده ، وكيف تريده جعفر رابط هذا التعليق شارك More sharing options...
wael_rafat قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 (معدل) نفس الفكرة استاذنا الفاضل تحريك العناصر ( الطاولات) باي مكان داخل النموذج وثباته علي المكان الجديد وذلك عن طريق السحب والافلات . اي حرية تغيير اماكن الطاولات داخل النموذج علي سبيل المثال اريد ان انقل الطاولة رقم "1" مكان اخر داخل النموذج وليكن مكان الطاولة رقم "8" . بمعني اوضح .... عند الضغط علي الطاوله استطيع ان اقوم بسحبها الي المكان الذي اريدة . وطبعا ثباتها بهذا المكان المختار . وبارك الله فيك وزادك الله من فضله كل الشكر والتقدير استاذنا !!!!! تم تعديل يناير 18, 2017 بواسطه wael_rafat رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.