How I can show the video on the limit of PictureBox

[SNIPER.PS]

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

Video In PictureBox

[akhileshbc]

Try this:

MMControl1.hWndDisplay = Picture1.hWnd

It will display the Video inside the Picturebox ...

[MartinLiss]

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

[SamCasper]

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

[SNIPER.PS]

Try this:

MMControl1.hWndDisplay = Picture1.hWnd

It will display the Video inside the Picturebox ...

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

[akhileshbc]

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) .... ?

[SNIPER.PS]

please repaire my project

[MartinLiss]

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

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

[SNIPER.PS]

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

[MartinLiss]

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.