با سلام
لطفا مرا در مورد اینکه در ویژوال بیسک چگونه میتوان بدون کامپوننت ویندوز مدیا پلیر فایل تصویری را اجرا کرد راهنمايي كنيد.
فوري فوري فوريييييييييييييييييييييي ييييييييييييييييييييييييي يي
با سلام
لطفا مرا در مورد اینکه در ویژوال بیسک چگونه میتوان بدون کامپوننت ویندوز مدیا پلیر فایل تصویری را اجرا کرد راهنمايي كنيد.
فوري فوري فوريييييييييييييييييييييي ييييييييييييييييييييييييي يي
Last edited by alishahbazi; 12-09-2006 at 16:11.
با دستورات mci می توانی
-------------------------------
باید api نیاز داره !
با تشكر از شما كه به سوال من پاسخ داديد ولي خواهش ميكنم كه api مورد نياز را به من معرفي كنيد.
Private 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 = 0
y = 0
A$ = "C:\Windows\Movie.avi" 'Change the path and filename
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_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)