• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

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

اعضاء
  • عدد المشاركات

    302
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة اسلام الكبابى

  1. مصفوفة مزدوجة للأدوات

    ألا يمكن عمل مثل هذه الأدوات ليس بشرط أداة الtextbox . المهم أى أداة يكتب فيها المستخدم أى بيانات وأستطيع عمل كود لأى حدث فى أى منها(حدث الchang مثلآ) ولكم ألف شكر
  2. مصفوفة مزدوجة للأدوات

    كيف يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟ أنا أستطيع عملها كمصفوفة فردية كالآتى كود PHP: Private Sub Text1_Change(Index As Integer) I = Index Text1(I).FontSize = 16 End Sub  وتم عمل هذا الكود بعد أن وضعت على الفورم أداة TEXT1 ثم عملت لها COPY و PEAST عشر مرات مثلآ فصار على الفورم الأدوات TEXT1(10) , .................., TEXT1(3) , TEXT1(2) , TEXT1(1) فكيف يمكن عمل الأدوات TEXT1(10,10) , .................., TEXT1(1,3) , TEXT1(1,2) , TEXT1(1,1) واستخدامها فى كود مثل السابق ولكم ألف شكر
  3. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6 ما هو الكود اللازم لمعرفة احداثيات نقطة بداية مستقيم مرسوم ونقطة نهايته هذا الكود نقلته من أحد مواضيع الأستاذة/ سميرة عبد الله أو الأستاذة samira2009 لمعرفة بعض خصائص مستقيم مرسوم  Private Sub Command4_Click() Dim acadapp As AcadApplication Dim newssett As AcadSelectionSet Dim obj3 As AcadEntity Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk") newssett.SelectOnScreen For Each obj3 In newssett If obj3.ObjectName = "AcDbLine" Then Print " طول المستقيم "; obj3.Length Print "زاوية ميله بالتقدير الدائرى "; obj3.angle End If Next obj3 acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete End Sub ولما حاولت اضافة الجملتين التاليتين فى هذا الكود لمعرفة احداثيات نقطة بداية المستقيم ونقطة نهايته مع طوله وزاوية ميله اعترض البرنامج Print "نقطة بدايته"; obj3.STARTX; obj3.STARTY Print "نقطة نهايته"; obj3.ENDX; obj3.ENDY فما هو الكود اللازم لمعرفة احداثيات نقطة بداية هذا المستقيم (الذى أشار اليه المستخدم فى صفحة الأوتوكاد) ونقطة نهايته ولكم ألف شكر  
  4. هذا كود منقول من أحد المواضيع Private Sub Command1_Click() Dim newssett As AcadSelectionSet Dim obj3 As AcadEntity Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk") newssett.SelectOnScreen For Each obj3 In newssett obj3.Color = acGreen Print "  obj3.Color= "; obj3.Color Next obj3   acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete  Rem"الجملةالسابقة حتى لا يحدث خطأ واعتراض من البرنامج اذا ضغط المستخدم على هذا الزر مرة أخرى ليعرف خصائص مجموعةأخرى من العناصر" 300 End Sub ولكنه لا يقوم بتلوين جميع العناصر المرسومة باللون الأخض انما يطلب منى أن أختار بعض العناصر فيقوم بتلوينها أرجو تعديل هذا الكود ليقوم بتلوين جميع العناصر المرسومة ولكم ألف شكر
  5. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6 ما هو الكود اللازم بعد رسم المستخدم أى عناصر فى صفحة الأوتوكاد ثم ضغطه على زر معين فى صفحة الفيجوال بيسك كى يتم تلوين جميع العناصر المرسومة باللون الأخضر مثلآ ولكم ألف شكر
  6. انشاء حساب جديد

    لم أجد أى رد حتى الآن
  7. حاولت الاشتراك فى منتدى نصرة رسول الله ففتح لى نموذج التسجيل  وفى نهاية البيانات المطوب ادخالها وجدت هذه الرسالة الغريبة " من فضلك أدخل كود الأمان الظاهر أمامك * " فأين هو هذا الكود ؟ وأين أكتبه ؟ كان أى بيان قبل ذلك اجابته معلومة عندى  وأمامه تكست لأكتبه فيه ولكن أين كود الأمان الذى تطلبونه ؟ وأين أكتبه ؟  
  8. لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6 كيف يمكن بعد رسم شبكة المحاور الأفقية والرأسية فى صفحة الأوتوكاد عمل أى كود يحدث عند ضغط المستخدم على نقطة من نقط تقاطعات المحاور كلنا نعلم أن الكود اللازم لكتابة الجملة "علم الهندسة واسع" داخل الTEXT1 عندما يضغط المستخدم على الزرCOMMAND1 يكون كالتالى PHP كود : Private Sub Command1_Click() Text1.Text = "علم الهندسة واسع" End Sub   فما هو الكود اللازم لكتابة الجملة "علم الهندسة واسع" داخل ال TEXT1 عندما يضغط المستخدم على نقطة من نقط تقاطعات المحاور نقطة من نقط تقاطعات المحاور  وليس أى نقطة فى الصفحة ولكم ألف شكر  
  9. كيف يمكننى تغيير اللغة فى الأوتوكاد لأنى أجد الدروس المشروحة مشروحة بالفرنسية بينما اللغة فى الأوتوكاد عندى بالانجليزية (أوتوكاد 2007 ) فلا أستطيع تطبيق الشرح ولكم ألف شكر
  10. هل يمكن ربط ال vb6 ببرنامج autocad architecture2019 أو ما آخر نسخة أوتوكاد يمكن ربطها  بال vb6 ولكم ألف شكر
  11. الفرق بين AbsolutePosition , Bookmark

    لم يرد أحد حتى الآن
  12. ما الفرق بين الجملتين XXX = Adodc1.Recordset.AbsolutePosition XXX = Adodc1.Recordset.Bookmark         أرى أن هذه تحسب موقع السجل الحالى           وهذه تحسب موقع السجل الحالى ولكن بالتأكيد هناك فرق والا ما جعلت ميكروسوفت هذه خاصية وهذه خاصية أخرى أرجو الرد مع  شرح بأى مثال ولكم ألف شكر
  13. قيمة حقل معين فى سجل معين

    عرفت الحل والحمد لله الحل هو أن يكون تعاملى مع RS وليس مع الADODC نفسه أى أن يكون الكود هكذا If RS.State = adStateOpen Then RS.Close RS.Open "SELECT * FROM table1", db, adOpenStatic, adLockPessimistic RS.MoveFirst: RS.Move (9) XXX = RS.Fields(3)  
  14. لدى adodc مرتبط بأحد جداول قاعدة بيانات كيف يمكن معرفة قيمة حقل معين فى سجل معين (مثلآ قيمة حقل رقم 3 فى السجل العاشر) كل ما أعلمه من أجل ذلك أن أتوجه للسجل العاشر ثم أكتب الجملة XXX = Adodc1.Recordset.Fields(3) فكيف يمكن معرفة ذلك دون التوجه للسجل العاشر أى كيف يمكن معرفة ذلك مع ترك الADODC فى مكانه عند السجل الواقف عنده ولكم ألف شكر
  15. قيمة حقل معين فى سجل معين

    طبعآ التوجه للسجل العاشر يكون يالكود Adodc1.Recordset.MoveFirst Adodc1.Recordset.Move (9)  
  16. لا أستطيع فتح النت https://www.sombes.com/sub/68fb46e220c23278f191a7315f7c9990 كيف أتخلص من هذا الموقع لا أستطيع فتح أى موقع على النت بسببه هذه الكلمات التى تقرءونها الآن اضطررت لكى أضعها لكم فى المنتدى الى كتابتها أولآ فى ملف وورد ثم نسخها ثم لصقها هنا بسرعة حتى لا تطير صفحة المنتدى ويظهر بدلآ منها صفحة هذا الموقع فكيف أتخلص من هذا الموقع ولكم ألف شكر
  17. حدث تغيير خلية الDATAGRID

    وجدت الحل والحمد لله انه فى الحدث AfterColEdit أى أن الكود يكون هكذا Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer) Z = MsgBox(" ", vbYesNo, "       هل أنت متأكد؟ ") If Z = 6 Then Adodc1.Recordset.UpdateBatch adAffectCurrent: GoTo 100 Adodc1.Recordset.CancelBatch adAffectCurrent  100End Sub  
  18. أريد تنفيذ كود معين كلما تغيرت خلية الDATAGRID بحيث اذا قام المستخدم بعمل تعديل فى احدى الخلايا ثم انتقل الى خلية أخرى يقوم البرنامج بتنفيذ هذا الكود مع العلم أن حدث الDataGrid_Change لم يصلح فى ذلك لأنه يجعل البرنامج ينفذ هذا الكود بمجرد كتابة المستخدم حرف واحد أو رقم واحد فى هذه الخلية التى يريد تعديل ما فيها ولكنى لا أريد تنفيذ هذا الكود الا بعد أن ينتهى المستحدم من كتابته ويخرج من هذه الخلية الى غيرها ولكم ألف شكر
  19. الاشارة الى حقل معين

    لدى DataGrid متصلة بAdodc متصل بأحد جداول قاعدة بيانات ما هو الكود الللازم لتوجيه الماوس الى حقل معين فى سجل معين ؟ مثلآ توجيهه الى الحفل رقم 2 فى السجل رقم 34 ولكم ألف شكر
  20. حدث تغيير خلية الDATAGRID

    لم أجد أى اجابة حتى الآن
  21. هل ممكن كود يسأل المستخدم عن نوعية الخط و حجم الخط الذى يريده ثم كتابة الكلام فى الفورم والتكست وباقى الأدوات بنفس هذا الخط ولكم ألف شكر
  22. عمل مجموعة أرقام

    ألا يمكن الاستغناء عن هذه الجملة الطويييييييلة .......... OR...OR...OR...OR...OR...OR ولكم ألف شكر
  23. لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول كود : X = Val(Text1.Text) Y = 200 If X = 7 Or X = 20 Or X = 23 Or X = 38 Or X = 69 Or X = 188 Or X = 213 Or X = 239 Or X = 246 Then Y = 100 Print Y ألا يمكن عمل مجموعة تحتوى هذه الأرقام بحيث تكون صيغة هذه الجملة الشرطية الطويييييييلة هكذا THEN Y=100    ضمن أرقام المجموعة     IF X ولكم ألف شكر
  24. عمل مجموعة أرقام

    أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات ووضع هذه الأرقام فيه كسجلات وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟ ولكم ألف شكر