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

أرجو  تحميل برنامج vb6 مع شرح كيفية تستيبه لأنى حاولت أكثر من مرة وفى كل مرة يقول فى نهايتها "setup was not completed successfully" ولكم ألف شكر

أفتح برنامج الvb6 فأجد الأوامر الموجودة بأعلى الصفحة مكتوبة باللغة العربية(ملف تحرير عرض) فكيف يمكن تحويلها للغة الانجليزية(file edit view) ولكم ألف شكر

لم أجد أى رد حتى الآن ولكم ألف شكر

كيف يمكن تحويل برنامج الVB6 الى EXE بحيث يظهر المكتوب باللغة العربية كما يظهر تمامآ فى برنامج الVB6 نفسه If Not IsNumeric(X) Then MsgBox "من فضلك أدخل رقم ", vbCritical, " ما هذا ؟" حين أردت التحويل ضغطت فى برنامج الVB6 على FILE ثم على MAKE Project1.EXE وشغلت برنامج الEXE اشتغل تمام ولكن كتب الرسالات المكتوبة باللغة العربية معكوسة فمثلآ الجملة "ما هذا ؟" كتبها "؟ اذه ام" فما حل هذه المشكلة ولكم ألف شكر

هل معنى هذا أنه لاينفعك أى كود يقوم بتحليل أى عدد الى عوامله الأولية؟

ألا يوجد أى عضو يعرف اجابة هذا السؤال؟  

أريد اذا كتبنا الكود X = AA X = X + 10 Y = 5 * X Print Y يعتبر الكود المكتوب هو AA = AA + 10 Y = 5 * AA Print Y و اذا كتبنا الكود X = BB X = X + 10 Y = 5 * X Print Y يعتبر الكود المكتوب هو BB = BB + 10 Y = 5 * BB Print Y و اذا كتبنا الكود X = CC X = X + 10 Y = 5 * X Print Y يعتبر الكود المكتوب هو CC = CC + 10 Y = 5 * CC Print Y وطبعآ الأكواد أطول من ذلك بكثير والمتغيرات ليست 3 فقط(AA , BB , CC) ولكنها كثييرة فكيف يتم ذلك؟ ولكم ألف شكر

سمعت قبل ذلك  فى نفس لغة الVB6 التى أعمل بها عن دالة تسمى CallByName وعن أداة تسمى ScriptControl فهل يمكن لأى منهما حل هذا الموضوع ولكم ألف شكر

لدى عدة متغيرات رقمية (AA ,BB ,CC) وأريد عمل متغير( X مثلآ) تكون قيمته هى أحد أسماء هذه المتغيرات أى تكون قيمته =AA  أو  =BB  أو =CC يحيث اذا كتبنا الكود   X = "BB" X = X + 10 Y = 5 * X Print Y يعتبر الكود المكتوب هو BB = BB + 10 Y = 5 * BB Print Y فكيف يتم ذلك؟ ولكم ألف شكر

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

كيف يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟ أنا أستطيع عملها كمصفوفة فردية كالآتى كود 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) واستخدامها فى كود مثل السابق ولكم ألف شكر

لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك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 فما هو الكود اللازم لمعرفة احداثيات نقطة بداية هذا المستقيم (الذى أشار اليه المستخدم فى صفحة الأوتوكاد) ونقطة نهايته ولكم ألف شكر  

هذا كود منقول من أحد المواضيع 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 ولكنه لا يقوم بتلوين جميع العناصر المرسومة باللون الأخض انما يطلب منى أن أختار بعض العناصر فيقوم بتلوينها أرجو تعديل هذا الكود ليقوم بتلوين جميع العناصر المرسومة ولكم ألف شكر

لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6 ما هو الكود اللازم بعد رسم المستخدم أى عناصر فى صفحة الأوتوكاد ثم ضغطه على زر معين فى صفحة الفيجوال بيسك كى يتم تلوين جميع العناصر المرسومة باللون الأخضر مثلآ ولكم ألف شكر

لم أجد أى رد حتى الآن