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

اهلا وسهلا بكم في منتدى مصر التقني
--------------------------------------
هذا الكود لتشغيل فيديو بصيغة 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

مع تمنياتي بالتوفيق

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

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

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#عقارات
7	#استثمار
8	#الامارات
9	#الشارقة
10	#سكن

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

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

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

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