ViscomSoft Software

VB.NET - How to use video mixing display multi video in same time with VB.Net Sample

Step 1: Download Movie Player Pro ActiveX setup disk and installed it.

Step 2: Create New Visual Basic Project, select Windows Application.

Private Sub Command1_Click()

MoviePlayer1.AddLayer "C:\movie\yourvideo1.mpg", 0, 0, 0.5, 0.5, 1.0, True

MoviePlayer1.AddLayer "C:\movie\yourvideo2.mpg", 0.5, 0.5, 1, 1, 1.0, True

MoviePlayer1.Play

End Sub

If you want to transparent the video, change the iAlphaValue in AddLayer method, the value must 0.0 to 1. 0 , if change to 0. 5 mean 50% transparent.

Public Function AddLayer( _
  ByVal strVideo As String ,_
  ByVal iVideoLeft As Float ,_
  ByVal iVideoTop As Float ,_
  ByVal iVideoRight As Float ,_
  ByVal iVideoBottom As Float ,_
  ByVal iAlphaValue As Float ,_
  ByVal bHaveAudio As Bool
)

The following code will make the first video display 50% transparent.

Private Sub Command1_Click()

MoviePlayer1.AddLayer "C:\movie\yourvideo1.mpg", 0, 0, 0.5, 0.5, 0.5, True

MoviePlayer1.AddLayer "C:\movie\yourvideo2.mpg", 0.5, 0.5, 1, 1, 1, True

MoviePlayer1.Play

End Sub