 VideoEdit Gold ActiveX Control
|
NoUISetVideoWndPos Method
|
Description
Set the position of video window when converting video on server side or use CreateObject to instance the ActiveX.
Syntax
Public Function NoUISetVideoWndPos ( _
ByVal iLeft as Integer ,_
ByVal iTop as Integer ,_
ByVal iWidth as Integer ,_
ByVal iHeight as Integer
)
|
Parameters
iLeft
Specifies the logical left-coordinate of the starting point of the video window.
iTop
Specifies the logical top-coordinate of the starting point of the video window.
iWidth
The width of video window.
iHeight
The height of video window.
No Return Value
Example
[Visual Basic Script Syntax]
Set obj=CreateObject("VIDEOEDIT.VideoEditCtrl.1")
obj.InitSingleServerLicense "demo"
strVideoFile= InputBox("Please input the file path of video e.g. c:\video.mpg")
if obj.IsFileExisting (strVideoFile) = false then
Msgbox "Make sure the video file is existing"
WScript.Quit
end if
iDur=obj.GetFileDuration(strVideoFile)
if iDur=0 then
msgbox "Video File not found, please input correct path"
WScript.Quit
end if
obj.NoUIPreviewWhenConvert True
obj.NoUIVideoWndCaption "Converting"
obj.NoUISetVideoWndPos 0,0,120,100
obj.OutputType=0
obj.VideoSampleSize = 24
obj.InitControl
obj.AddVideo strVideoFile, 0, iDur, 0
obj.AddAudio strVideoFile, 0, iDur
result = obj.Save ("c:\mytest1.mpg")
If result= true Then
MsgBox "Save c:\mytest1.mpg completed"
else
MsgBox "Failed"
End If
|