How I can show the video on the limit of PictureBox

How I can show the video on the limit of PictureBox this is my example in the link :

Video In PictureBox

Try this:

Code:

---

MMControl1.hWndDisplay = Picture1.hWnd

---

It will display the Video inside the Picturebox ...:wave:

My Picture/video Viewer will show you how to play videos.

Get The MMControl1 hWnd (Handle) Use SetParent Property With Picture Box hWnd (Handle)

Can't Fail.. It Can Even Put VB Inside You PictureBox :)
Also Use SetWindowPos With 0 Top And 0 Left For Positioning Inside PictureBox :)

Quote:

---

Originally Posted by akhileshbc

Try this:

Code:

---

MMControl1.hWndDisplay = Picture1.hWnd

---

It will display the Video inside the Picturebox ...:wave:

---

i know this but i want to show the vidio in the limit of Picturebox for example the width of Picturebox =4000 & the height of Picturebox i want to show video in this area that mean the heihgt of video=3000 & widith of video=4000

Quote:

---

Originally Posted by SNIPER.PS

i know this but i want to show the vidio in the limit of Picturebox for example the width of Picturebox =4000 & the height of Picturebox i want to show video in this area that mean the heihgt of video=3000 & widith of video=4000

---

Have you checked Marty's project...(post #3) .... ?

please repaire my project

I assume you are trying to play AVI movies. If so then add a Reference to the Microsoft Scripting Runtime and then...

Code:

---

Private Sub Command1_Click()

Dim FSO As New FileSystemObject

CommonDialog1.ShowOpen
MMControl1.Command = "stop"
    If UCase$(Right$(CommonDialog1.FileName, 4)) = ".AVI" Then
        On Error Resume Next
        ' Create a copy with an mpg file extension
        Kill App.Path & "\temp.mpg"
        On Error GoTo 0
        FSO.CopyFile CommonDialog1.FileName, App.Path & "\temp.mpg"
        MMControl1.FileName = App.Path & "\temp.mpg"
    Else
        MMControl1.FileName = CommonDialog1.FileName
    End If
MMControl1.Command = "open"
MMControl1.Command = "play"

End Sub

---

can you repair my project and upload it on link........pleas

You can easily do that yourself.

1. Replace your Command1_Click code with what I posted above.
2. Go to Project|References and select Microsoft Scripting Runtime.