 VideoEdit Gold ActiveX Control
|
NoUISetVideoWndStyle Method
|
Description
Set the style of video window when converting video on server side or use CreateObject to instance the ActiveX.
Syntax
Public Function NoUISetVideoWndStyle ( _
ByVal iStyle as Integer
)
|
Parameters
iStyle
Specifies the style of video window.
0 - By Default
1 - Popup, it have not max and min button
2 - No Caption bar and No max and min button
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.NoUISetVideoWndStyle 2
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
|