السلام عليكم ورحمة الله وبركاته
خالص شكرى أستاذى الفاضل / الأستاذ خليل
يبدو أن مشكلة الأرقام خاصة بجهازى
شكر الله لك مجهودك معنا ...

أخى الفاضل / zine pef
قصدت بجملة "لأستفيد من الملفات المعروضة على النت" هو أن معظم الملفات تكون معروضة بهذه الطريقة والتى تجعل ملف مصنوع بواسطة برنامج الباوربوينت... يعمل تلقائيا بمجرد الضغط عليه ....
ولعمل مثل هذا النوع من الملفات :
1- افتح الملف الذي تريد كالمعتاد ..
2- اذهب الى قائمة ملف واختر الامر " حفظ بإسم "
3- من مربع الحوار الظاهر اختر نوع الملف من قائمة النوع " PowerPoint Show "


http://www.msa7ty.com/uploads/d887604e4b.gif


4- احفظ الملف بالإسم الذي تريد في المكان الذي تريد
سينتج عن هذه العملية ملف جديد ( نسخه من الملف السابق ) يختلف عن الأول في النوع فقط ... والرمز وعند النقر عليه نقرا مزدوجا... يتم فتح العرض مباشرة ..

تحياتى للجميع.

---

Private Sub CommandButton1_Click()
If TextBox1.Text = "ب أ" Or TextBox1.Text = "أ ب" Then
MsgBox "الاجابة صحيحة", vbOKOnly, "رسالة البرنامج"
End If

End Sub

---

---

Private Sub CommandButton1_Click()
If TextBox1.Text = "ب أ" Or TextBox1.Text = "أ ب" Or TextBox1.Text = "أب" Then
MsgBox "الاجابة صحيحة", vbOKOnly, "رسالة البرنامج"
End If

End Sub

---

المشاركة الأصلية كتبت بواسطة fadi9 السلام عليكم شكرا للاستاذ خليل على هذه الدورس المفيدة في الواقع فكرة جميلة جدا عمل دروس تعليمية تفاعلية هذا هو الواجب عن درس المسج http://www.m5zn.com/Download-7.php?name=e1ccb59a29.ppt عندي بعض الملاحظات : هناك مشكلة في تحريك العناصر وفي اخفائها واضهارها ايضا لايوجد في بور بوينت ما يوازي form load في لغة vb فعندما يكتب المستخدم في textbox تبقى المعلومات محفوظة للاستخدام اللاحق حيث من المفترض ان تكون خالية عند الاستعمال فهل هناك قصور في برنامج بور بوينت ام يوجد تعليمات لانزال نجهلها تحل هذه المشاكل

---

ActivePresentation.Slides(1).Shapes.Item(1).Visible = msoFalse

---