ممكن مساعدة من خبراء برمجة فيجوال بيسك؟؟؟؟؟

[أغصان الربيع]

هذا الكود لإضافة عروض الفلاش لبرنامجك
*كود برمجي*


--------------------------------------------------------------------------------


Private Sub Command1_Click()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
ShockwaveFlash1.Movie = s + "a4.swf"

end sub
السلام عليكم ورحمة الله وبركاته
أنا مبتدأه جداً في الفيجوال ...ممكن مساعدة؟
أبغى أعرف أيش اللي ممكن أغيره في الكود حتى يشتغل عندي الفلاش على حسب مايناسب الجهاز
و لو ممكن أغرف أيش و ظيفة هذا ؟
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
و لكم مني جزيل الشكر

[amro_ka]

السلام عليكم
app.path
بيجيب ال current program directorey
بمعنى إنه بيجيب عنوان المكان المحفوظ فيه برنامج الفيجوال بيسك بتاعك
وعلشان تشغلى الفلاش من مكان محدد جربى الكود
Private Sub Command1_Click()
Dim s As String
s = "c:\"
هنا تم تعريف إن الملف على الروت على السى فى المتغير إس
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
هنا يتأكذ إن كان أخر العنوان / أم لا وإن لم تكن فيضيفها
ShockwaveFlash1.Movie = s + "a4.swf"
هنا يقوم بتشغيل ملف الفلاش
يعنى العنوان النهائى للفلاش يكون
c:\a4.swf
أى على الروت
end sub

[أغصان الربيع]

و عليكم السلام
جزاك الله خيراً
ShockwaveFlash1 لكن هذا

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