اسلام الكبابى

الأخ/ أبو أحمد المبرمج كلامه صحيح 100% وعلى ذلك فهذا ليس لغز رياضى أو مسألة حسابية (كما قيل فى عنوانها وكما هو مفهوم من المنتدى الموضوعة فيه الرياضيات والخوارزميات ) انما هو فزورة تلاعب بالألفاظ تمامآ كما يسألك أحد (ثلاث خمسات يبقوا كام؟) تقول له 15 يقول لك لأ…

أليس هذا هو ما تريد؟ ان كان كذلك فليتك توضح طلبك أكثر

أريد أى طريقة لربط الفيجوال بيزك 6 بالاتوكاد ( أو أى برنامج رسم هندسي ) علمت سابقآ كيف لو تتم الادخالات بالفيجوال ومن ثم يتم الانتقال الى الاتوكاد و نجد انه قد قام بعملية الرسم ولكنى أتمنى الآن العكس أيضآ أى أتمتنى أيضآ أن يتم الرسم بالاتوكاد ( أو أى برنامج رس…

أليس لهذا الموضوع أى حل؟

وها هو مثال مرفق ليقوم أحدكم بتعديله وتوضيح الخطأ فى برنامجى تعديله بحيث يمكن تشغيله ولكن لايمكن نسخه ولكم ألف شكر ضرب رقمين.zip

أرجو تخزين هذه الفورم المرفقة تخزينها بأكملها داخل PictureBox لا يهم حجمه و لا مكانه لأنه لن يظهر أثناء التشغيل و لا أثناء الطباعة، و إنما سنستعمله كمخزن مؤقت من أجل طباعة الفورم على الورق وهذا هو الرابط http://www.mediafire.com/download/olm3d875mmbb3wz/%D8%B7…

وهذا كود آخر أفضل منه لأن السابق يسمح للمستخدم بالكتابة فى أى تكست اذا أعاد الضغط عليه Dim PRES(9) As Integer Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Print Index If PRES(Index) = 1 Then Text1(Index).Locked = True: GoTo 100 PRES(Index)…

ليت الجواب يكون مع مرفق وشكرآ

هل توجد أى طريقة أو كود معين أمنع بها أى شخص من نسخ برنامجى وهل توجد أى طريقة أو كود معين أمنع بها أى شخص أن يستخدم برنامجى أكثر من 4مرات مثلآ ولكم ألف شكر

هذا الكود باعتبار أن مجموعة التكست لديك هى (Text1(3) , Text1(2) , Text1(1) ,Text1(0 ,........... Private Sub Command1_GotFocus() For i = 0 To Text1.Count - 1 Text1(i).Locked = True Next i End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer…

طبعآ الأمر PrintForm يقوم بعملية طباعة الفورم كلها على الورق ولكنكم جميعآ تعلمون أنه يطبعها فى جزء صغير من الورقة لا بكامل مسطحها

لدى فورم تحتوى على عدة text وعدة Label وأريد معرفة كيفية تخزينها بأكملها داخل PictureBox من أجل طباعة الفورم على الورق أرجو ارفاق مرفق ولكم ألف شكر

شكرآ لك هكذا يكون الكود تم استبدال أربعة أسطر ب سطر واحد وليس استبدال كل كودى( 21 سطر ) ب ستة أسطر فقط أليست هذه هى التى يشترط لها ملف تعليمات التى تحدثت عنها سابقآ ؟ نحن فى انتظارها

بصراحة انت اللى ضحكتني يا لعقدة فين الأوامر اللى هينفذها كودك بعد الضغط على أى من الزرين( تعليمات , موافق) مطلوب كود ينفذ مجموعة أوامرفى الفورم الأصلية form1 فى حالة الضغط فى الmsgbox على (تعليمات) مثلآ ينفذ مجموعة الأوامر PP = 3267: Print PP وينفذ مجموعة أوام…

أجد الكود فى مرفقك هو نفس كودى بما فيه ال loop الذى اعترضت عليه نريد كودآ بدون هذا ال loop ودون أن تضع بدلآ منها جمل شرطية

وما الفرق بين هذه الجملة وهذه الجملة؟ كلاهما جملة واحدة لنفس الغرض وماذا تقصد باللوب ؟ هل تقصد الجمل الثلاثة DoDoEventsLoop Until Dialog.Visible = False هذه الجمل لاعلاقة لها باظهار الDialog أو اخفاؤه انما هى شرط لابد منه كى لا يكمل الكود الا اذا تم الضغط على …

عرفت الحل والحمد لله أن أكتب نفس الكود الذى كتبته فى البداية ولكن فى حدث الtxtFields_KeyPress وليس حدث الtxtFields_Change Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer) CMdCancle.Visible = True CMdUpdate.Visible = True End Sub

هذا ما فهمته بالفعل وفى مرفقى الاجابة على سؤالك أظنك لم تقم بعمل الRUN للبرنامج الذى أرسلته لك

ليت ذلك جزاك الله خيرآ

تفضل هذا طلبك MsgBox.zip