اريد عرض صورة قبل مقطع فيديو من على الأسطوانة .
هذا الكود لعرض مقطع فيديو بتحديد مسارة ويوجد صورة اريد اظهارها عند فتح الفورم ثم عند تشغيل الفيديو تختفى ....
----------------------------------------------------
وضعت اداة mmcontrol6 وزر للتشغيل ... واداة PICTURE لعرض الفديو ا فيها .. و TIMER
------------------------------------
Private Declare Function TransparentBlt Lib "Msimg32" ( _
ByVal hdcDest As Long, ByVal nXOriginDest As Long, _
ByVal nYOriginDest As Long, ByVal nWidthDest As Long, _
ByVal hHeightDest As Long, ByVal hdcSrc As Long, _
ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, _
ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, _
ByVal crTransparent As Long) As Long
-----------
Private Sub Command1_Click()
With MMControl1
.Command = "close"
.DeviceType = "AVIVideo"
.hWndDisplay = Picture1.hwnd
.FileName = (App.Path & "\a.avi")
.Command = "open"
.Command = "play"
End With
Timer1.Interval = 300
For f = 1 To 10000000: Next
End Sub
-------------------------------
Private Sub Form_Load()
Picture1.ScaleMode = 3:
End Sub
-----------------------------------
Private Sub Timer1_Timer()
TransparentBlt Picture1.hdc, 1, 1, Picture1.Width, _
Picture1.Height, Picture1.hdc, 1, 1, Picture1.Width, _
Picture1.Height, RGB(255, 0, 255)
End Sub
-----------------------
والسلام عليكم