yasserstars

أخي الطائر الازرق هذا الكود لكي يفتح الملف من البرنامج نفسه Private Sub Command1_Click() dim a as string a=app.path if right(a,1) <> "\" then a=a & "\" else a=a end if OLE1.CreateLink a & "1.ppt" OLE1.Action = 7 End Sub بهذا الكود سيفتح الملف من مكان البرنامج …

طب واحنا هنعمله ايه ما يزور مكان مايزور واحنا ملنا ياجماعة كبروا دمغكم شوية يعني نقوله ماتزورش اسرائيل وهو احني لنا عنده حاجة

أخي ABnet تحية طيبة كان يجب عليك استخدام الادة ole لربط البوربوينت مع الفيجول طالما ان الاجهزة التي سيعمل عليه البرنامج سيكون مثبت عليها البوربوينت

أخي haking33 يمكنك عمل اجراء في مديول يقوم بما تريد واستدعيه من اي فورم عند النقر علي اي زر

هذا هو الكود Form1.Picture = LoadPicture("D:\صور \Euro2004.bmp")

اعتقد ان اخي المتميز قدملك الحل

هل البرنامج اشتغل بس لم يعرض البوربوينت ام ان البرنامج لم يعمل من الاساس ؟

هذا الكود يقوم بعمل ذلك Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 48 Then KeyAscii = 0 End Sub 28 ديسمبر 2005

أتمني من الله ان يكمل الاخ عبد الله فتحي باقي الدروس

أخي hassanco Dim dt2 As Date Dim dt1 As Date dt1 = "29-12-2005" dt2 = "01-01-2006" If CDate(dt1) < CDate(dt2) Then MsgBox "true" Else MsgBox "false" End If

ياريت تشرح اللي انت عايزة كويس لان انا مشفاهم حاجة من اللي انت تقصدة ياريت تشرح انت عايز البرنامج يسير ازاي

نزلت البرنامج ولكن بعد تثبيته يطلب رقم التسجيل فارجو ان تشرح اولا كيفية استخدام البرنامج اولا

أخي THE ART MAN لقد وجدت الكود الذي يقوم بعمل الفورم الدائري قم بكتابة الكود التالي في قسم التصريحات Option Explicit Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private…

بالطبع ممكن جعل الفورم علسي شكل دائرة واعتقد ان لدي الكود الذي يعمل ذلك وسأبحث عنه ان شاء الله وارفقه لك

ارجو الرد وجزاكم الله كل خير

لازلنا منتظرين باقية الدروس في تصميم الادواد وارجو منك الرد علي الاستفسار السابق

اكتب في حدث الوست فوكس للفورم الثاني Private Sub Form_LostFocus() Form1.WindowState = 1 End Sub

لازلنا في انتظار الدرس الثالث أخي شمس وتوضيح النقطة السابقة

ارجو ان يفيدك الرابط السابق والذي اضافة الاخ hazzoom وان ارد اي استفسار اخر فنحن في خدمتك ان شاء الله

هذا البرنامج يقوم بما تريد شاهدة واي استفسار انا تحت امرك data.rar