تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 4 از 4

نام تاپيک: چگونگی پخش فیلم بدون برنامه windows media player

  1. #1
    داره خودمونی میشه alishahbazi's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    پی سی پدیا
    پست ها
    192

    12 كمككككككككككككككككككك ففففففففففووووووووررررريي ييي

    با سلام
    لطفا مرا در مورد اینکه در ویژوال بیسک چگونه میتوان بدون کامپوننت ویندوز مدیا پلیر فایل تصویری را اجرا کرد راهنمايي كنيد.
    فوري فوري فوريييييييييييييييييييييي ييييييييييييييييييييييييي يي
    Last edited by alishahbazi; 12-09-2006 at 16:11.

  2. #2
    اگه نباشه جاش خالی می مونه black_storm's Avatar
    تاريخ عضويت
    Jul 2006
    محل سكونت
    Iran
    پست ها
    263

    پيش فرض

    با دستورات mci می توانی
    -------------------------------
    باید api نیاز داره !

  3. #3
    داره خودمونی میشه alishahbazi's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    پی سی پدیا
    پست ها
    192

    4 Api

    با تشكر از شما كه به سوال من پاسخ داديد ولي خواهش ميكنم كه api مورد نياز را به من معرفي كنيد.

  4. #4
    اگه نباشه جاش خالی می مونه Romina2006's Avatar
    تاريخ عضويت
    Jun 2006
    پست ها
    260

    پيش فرض

    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

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •