موفي ميكر وفجوال

أختي الكريمة :

السلام عليكم ورحمة الله وبعد :

استخدمي الـ Component الخاصة بتشغيل الفيديو مثل Windows Media Player ............

وشكرا .........

تحياتي

أبو تالا .....

أولا اضغطي ctrl + t و اختاري الاتي:

ثم أسميها mp بعد أن تضعيها علي الفورم و اكتبي الكود الاتي:

Private Sub Form_Load()
Dim x As String
x = InputBox("enter the path of the movie")
mp.URL = x
End Sub

Private Sub Form_Resize()
On Error GoTo ahmed
mp.Width = Me.Width
mp.Height = Me.Height - 500
ahmed:
Exit Sub
End Sub

Private Sub mp_DoubleClick(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
If mp.fullScreen = True Then
mp.fullScreen = False
Else
mp.fullScreen = True
End If
End Sub

وأي خدمة

الف افل شكر

جزاكم الله خير

Dim m, L, A

Dim x As Integer

Dim idword As Long

Dim c As New cRegistry

Dim m, L, A
Dim x As Integer
Dim idword As Long
Dim c As New cRegistry
Dim CAP As String