درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل )

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

طبعا هذا اول درس لي في قسم البرمجة درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) Biggrin

وانا توي جديد في الفجوال بيسك درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) Biggrin

بس الحمدلله تعلمت عليه بسرعة بيومين درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) Smile

وهذا الشرح

افتح البرنامج

وارسم كل شي مثل الي بالصورة

درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) 1

بعد الانتهاء

سوي هذه النقطة لانها مهمة في عرض الصورة

درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) 2

وبعد ما تسويها حط هذا الكود بالفروووم

كود:

Dim Selectedfile
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()

If Right$(Dir1.Path, 1) = "\" Then
Selectedfile = Dir1.Path + File1.FileName
Else
Selectedfile = Dir1.Path + "\" + File1.FileName
End If
Image1.Picture = LoadPicture(Selectedfile)

End Sub

Private Sub Form_Load()

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

واحفظ البرنامج درس صنع عارض الصور بالفجوال بيسك ( درس ممتع وسهل ) Biggrin

واتمنى اشوف طبيقاتكم

وهذا تطبيقي في الشرح

project1.exe - 0.02MB

ملاحظة البرنامج ما يقبل غير صيغة gif وjpg

في امن الله

» حصريا شرح بالصور لطريقة عمل برنامج لاغلاق الجهاز بالفجوال بيسك+المشروع
» الدرس الثاني : عمل آلة حاسبة بواسطة الفيجول بيسك
» سلسلة دروس البرمجة بلغة بيسك الدرس الأول
» البرمجة بلغة بيسك الدرس الثالث :درس على أداة Listbox
» البرمجة بلغة بيسك: ربط البرنامج بالآكسس(قواعد البيانات )