كود لتشغيل فيديو بصيغة avi

اذهب الى الأسفل

كود لتشغيل فيديو بصيغة avi  Empty كود لتشغيل فيديو بصيغة avi

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء فبراير 04, 2014 2:37 pm

اهلا وسهلا بكم في منتدى مصر التقني
--------------------------------------
هذا الكود لتشغيل فيديو بصيغة avi  وبدون الحاجة لادوات

' ضع هذا الكود في الفورم
الكود:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 10
y = 10
A$ = "c:\Filename.avi"
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub

مع تمنياتي بالتوفيق
أيمن الإبراهيم
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

كود لتشغيل فيديو بصيغة avi  Empty رد: كود لتشغيل فيديو بصيغة avi

مُساهمة من طرف أحمد مناع في الثلاثاء فبراير 04, 2014 2:54 pm


جزاكم الله خيرا اخى ايمن ....

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 949
النقاط : 201714
التقيم : 113
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى