عرض ملف فيديو على أداة الصورة

يوجد خطا في التوقيع الخاص بك

If Power Girl in thare then run

والصحيح

If Power Girl is in there then run

وهذه للدعابة

If Power Girl is in there then

run

else

find her

end if

HHH :D HH...............

THANKS abu sabreen

شكرا يا power

معلومة جديدة ولذيذة :)

ولكنى لا أستعمل ال multimedia control بل استعمل ال media player control

مشكور

اقتباس

ولكنى لا أستعمل ال multimedia control بل استعمل ال media player control

انا ايضا افضل اداة MEDIA PLAYER لكن شكراً على المجهود :rolleyes:

طريقة حلوة بس المشكلة أنه ليس بإمكانك تعمل الفيلم Full Screen

تحياتي (h)

انا ايضا افضل media player contro

ولكن

العلم بالشيء ولا الجهل به

شكرا وجزاك الله خيرا

:)

Welcome :lol:All

:rolleyes: وسوف أنظر لهذا الأداة MEDIA PLAYER

ممكن اى مثال على اداةMEDIA PLAYER

'project ---->refrene ----> Add ActiveNovie Control type library
Dim strSound As String
Dim MediaEvent As IMediaEvent
Dim VideoWindow As IVideoWindow
Dim MediaControl As IMediaControl
Dim MediaPosition As IMediaPosition

Sub gaf()
On Error Resume Next
    Set MediaControl = New FilgraphManager
    Call MediaControl.RenderFile(cd1.FileName)

        Set VideoWindow = MediaControl
    VideoWindow.WindowStyle = &H10000000
    VideoWindow.Top = 0
    VideoWindow.Left = 0
    VideoWindow.Width = p1.ScaleWidth
    VideoWindow.Height = p1.ScaleHeight
    VideoWindow.Owner = p1.hWnd
    Set MediaEvent = MediaControl
    Set MediaPosition = MediaControl
End Sub

Sub picFit()

p1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

p1.ScaleMode = 3
p1.AutoRedraw = True
'p1.PaintPicture p1.Picture, 0, 0, p1.ScaleWidth, p1.ScaleHeight, 0, 0, p1.Picture.Width / 26.46, p1.Picture.Height / 26.46
p1.Picture = p1.Image

End Sub

Sub start()
If Dir(cd1.FileName) = "" Or cd1.FileName = "" Then
strSound = App.Path + "\Quran.wav"
Set MediaControl = New FilgraphManager
MediaControl.RenderFile strSound
MediaControl.Run
Else
strSound = cd1.FileName
Call MediaControl.Run
End If
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2
start
End Sub

Private Sub Command1_Click()
On Error Resume Next
cd1.Filter = "*.wav, *.mp2, *.mp3, *.bmp, *.jpg, *.mpg, *.avi, *.mid|*.wav;*.mp2;*.mp3;*.bmp;*.jpg;*.mpg;*.avi;*.mid;*.asf;*.wmv"
cd1.ShowOpen


gaf
start
End Sub

Private Sub Command3_Click()
MediaControl.Stop
End Sub

Private Sub Command4_Click()
start
End Sub

p1= picture box

cd1=common Dialog

اخواني الافاضل

مرفق المثال

Gaf_Player.zip

ملف الصوت

برحاء وضعه في نفس الفولدر السابق

Lacool.wav