تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اضع فديو داخل فورم ؟ ... التفاصيل في الداخل
#1
السلام لكم
كيف اضع فديو داخل فورم ذي الكود ده ... بدل ما صوره تبقي فديو .

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.ImageLocation = Application.StartupPath & "\Photo\S.3gp"
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
الرد
تم الشكر بواسطة:
#2
الفيديو استخدم الأداة MediaPlayer

شاهد هذا الموضوع
مكتبة لتشغيل ملفات mp3;wav;mid;wma;asf;avi
الرد
تم الشكر بواسطة: عبد العزيز البسكري , DanyGhost2010
#3
انشاء فورم جديد
اضف للفورم زر + بانل
Button1
+
Panel1


ثم الصق الكود التالي
لا تنسى تعدل مسار الفيديو بالأسفل
PHP كود :
   Dim Player As New MediaPlayer
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click

        Player
.ScreenHandel Panel1.Handle

        Player
.FileName "C:\Users\xxxxxxxx\Documents\Video\AVI\Untitled1.avi"
 
       Player.Play()

 
   End Sub 




ثم أنشاء كلاس جديد
أمسح اي كود مكتوب والصق الكود التالي ( على فكرة هذا الكود أنا قمت بكتابته منذ أكثر من 10 سنوات على أيام المنتدى القديم ) مكتبة لتشغيل ملفات mp3;wav;mid;wma;asf;avi
PHP كود :
Public Class MediaPlayer
    Private 
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As StringByVal lpstrReturnString As StringByVal uReturnLength As IntegerByVal hwndCallback As Integer) As Integer
    Private 
Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As IntegerByVal lpstrBuffer As StringByVal uLength As Integer) As Integer

    Public Event MediaOpened
(ByVal sender As System.ObjectByVal e As System.EventArgs)
 
   Public Event MediaClosed(ByVal sender As System.ObjectByVal e As System.EventArgs)

 
   Private Shared ObjectCount As Integer 0
    Private retVal 
As Integer 0
    Private returnData 
As String Space(128)
 
   Private errorString As String Space(128)
 
   Private errorSuccess As Boolean
    
'
    Sub New()
        ObjectCount = ObjectCount + 1
        mFileAlias = "SND" & Hex(Now.Ticks) & Hex(ObjectCount)
    End Sub

    Sub New(ByVal pFileName As String)
        Me.New()
        Me.FileName = pFileName
    End Sub


    Private mFileAlias As String
    ReadOnly Property FileAlias() As String
        Get
            Return mFileAlias
        End Get
    End Property

    Private mFileName As String
    Property FileName() As String
        Get
            Return mFileName
        End Get
        Set(ByVal value As String)
            Me.Stop()
            Me.close()
            mFileName = value
        End Set
    End Property

    Private mLength As Long = 0
    Public ReadOnly Property Length() As Long
        Get
            Return mLength
        End Get
    End Property

    Public Property Position() As Long
        Get
            retVal = mciSendString("status " & Me.FileAlias & " position", returnData, 128, 0)
            Return Val(returnData)
        End Get
        Set(ByVal value As Long)
            If Me.IsPlaying() Then
                retVal = mciSendString("play " & Me.FileAlias & " from " & value.ToString, 0, 0, 0)
            Else
                retVal = mciSendString("seek " & Me.FileAlias & " to " & value.ToString, 0, 0, 0)
            End If
        End Set
    End Property


    Public ReadOnly Property IsPlaying() As Boolean
        Get
            retVal = mciSendString("status " & Me.FileAlias & " mode", returnData, 128, 0)
            Return returnData.StartsWith("playing")
        End Get
    End Property


    Private mVolume As Byte = 100
    Public Property volume() As Byte
        Get
            Return mVolume
        End Get
        Set(ByVal value As Byte)
            If value > 100 Then
                value = 100
            End If
            mVolume = value

            Dim vol As Integer = (Me.volume * 10)
            retVal = mciSendString("setaudio " & Me.FileAlias & " volume to " & vol.ToString, 0, 0, 0)

        End Set
    End Property

    Private mIsOpen As Boolean = False
    Sub open(ByVal sFileName As String)
        Me.FileName = sFileName
        Me.open()
    End Sub

    Public ScreenHandel As Int32 = 0

    Sub open()
        Me.close()
        If ScreenHandel <= 0 Then
            retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias, 0, 0, 0)
        Else
            retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias & " parent " & ScreenHandel.ToString & " style " & "child" & " ", 0, 0, 0)
        End If

        retVal = mciSendString("set " & Me.FileAlias & " time format ms", 0, 0, 0)

        retVal = mciSendString("status " & Me.FileAlias & " length", returnData, 128, 0)
        mLength = Val(returnData)
        mIsOpen = True
        Me.volume = Me.volume
        RaiseEvent MediaOpened(Me, New System.EventArgs)
    End Sub

    Sub Play(Optional ByVal repate As Boolean = False)
        If repate = True Then
            Me.Play("repeat")
        Else
            Play("")
        End If
    End Sub


    Sub Play(ByVal pFileName As String, ByVal pRepate As Boolean)
        Me.FileName = pFileName
        Me.Play(pRepate)
    End Sub

    Sub Play(ByVal pCommand As String)
        Dim Cmd As String = "play " & Me.FileAlias & " " & pCommand
        If mIsOpen = False Then
            Me.close()
            Me.open()
        End If
        retVal = mciSendString(Cmd, 0, 0, 0)
    End Sub


    Sub Pause()
        retVal = mciSendString("pause " & Me.FileAlias, 0, 0, 0)
    End Sub


    Sub [resume]()
        retVal = mciSendString("resume " & Me.FileAlias, 0, 0, 0)
    End Sub

    Sub [Stop]()
        retVal = mciSendString("stop " & Me.FileAlias, 0, 0, 0)
    End Sub


    Sub close()
        Me.Stop()
        retVal = mciSendString("close " & Me.FileAlias, 0, 0, 0)
        '
----------------------------------
 
       If mIsOpen True Then
            RaiseEvent MediaClosed
(Me, New System.EventArgs)
 
       End If
 
       '----------------------------------
        mIsOpen = False
        mLength = 0
        '
--------------------------------------

 
   End Sub

End 
Class 




تذكر ان الكود يقوم بتشغيل هذة الملفات فقط
mp3;wav;mid;wma;asf;avi

هذا الكود من نواة النظام لذلك لا يدعم الكثير من أنواع الفيديو
الرد
تم الشكر بواسطة: عبد العزيز البسكري , DanyGhost2010 , tryold
#4
شكراً لكم ... [طالب برمجة] - [عبد الله الدوسري]
أنا عملت كلاس جديد ووضعت فيه الكود الي مكتوب

بالنسبة للكود الي ادتهوني يا استاذ عبد الله بتاجي علامة Error = خط أحمر علي كلمة Player


        Player.ScreenHandel = Panel1.Handle


        Player.FileName = "C:\Users\xxxxxxxx\Documents\Video\AVI\Untitled1.avi"
        Player.Play()
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم