-
ممكن مساعدة من خبراء برمجة فيجوال بيسك؟؟؟؟؟
هذا الكود لإضافة عروض الفلاش لبرنامجك
*كود برمجي*
--------------------------------------------------------------------------------
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 + "\"
و لكم مني جزيل الشكر
-
السلام عليكم
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
Eng. Amro
-
و عليكم السلام
جزاك الله خيراً
ShockwaveFlash1 لكن هذا
الشوك ويف مو محمل عندي يمكن ما تحمل الفيجوال بيسك كامل
ممكن تعطيني الرابط اللي أحمل منه الشوك ويف ؟؟؟
و بأي كتاب تنصحني أقرأ الفيجوال بيسك؟ يكون كتاب مرجع
ضوابط المشاركة
- لا تستطيع إضافة مواضيع جديدة
- لا تستطيع الرد على المواضيع
- لا تستطيع إرفاق ملفات
- لا تستطيع تعديل مشاركاتك
-
قوانين المنتدى