موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:16 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll

كود:
Here's how to play an .AVI file via API ' Declare this API: Declare Function mciSendString& Lib "MMSYSTEM" (ByVal pstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal CallBack%) 'Add this code to the appropriate event: Dim CmdStr$ Dim ReturnVal& ' Modify path and filename as necessary CmdStr$ = "play G:\VFW_CINE\AK1.AVI" ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&) ' To play the AVI 'fullscreen' append to CmdStr$: CmdStr$ = "play G:\VFW_CINE\AK1.AVI fullscreen"
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع