Hi guys
I hope you guys can help me on something, hopefully simple, im a newb on vb but i managed to make an input and output box
but cant get my head over how to add a watermark with VB, ive got the arguments to add when in dos, but doesnt work when in vb
The visual basic code is below
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
sourceBox.Text = OpenFileDialog1.FileName()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
destinationBox.Text = SaveFileDialog1.FileName()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim inFile As String
Dim outFile As String
Dim watermark As String
inFile = sourceBox.Text
outFile = destinationBox.Text
watermark = watermarkBox.Text
Dim commandLine As String
commandLine = "cmd.exe /c""C:\Watermark\bin\ffmpeg.exe -i """ & inFile & """ " & watermark & " """ & outFile & """"""
Call Shell(commandLine)
End Sub
End Class
The extra argument I need to add is below…. The text in red is what should be in the watermark.box text above,
–vf drawtext=”fontsize=50:fontcolor=white@0.5:fontfile=arial.ttf:text=’watermark variable’:x=330:y=0”
thanks in advance
I hope you guys can help me on something, hopefully simple, im a newb on vb but i managed to make an input and output box
but cant get my head over how to add a watermark with VB, ive got the arguments to add when in dos, but doesnt work when in vb
The visual basic code is below
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
sourceBox.Text = OpenFileDialog1.FileName()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
destinationBox.Text = SaveFileDialog1.FileName()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim inFile As String
Dim outFile As String
Dim watermark As String
inFile = sourceBox.Text
outFile = destinationBox.Text
watermark = watermarkBox.Text
Dim commandLine As String
commandLine = "cmd.exe /c""C:\Watermark\bin\ffmpeg.exe -i """ & inFile & """ " & watermark & " """ & outFile & """"""
Call Shell(commandLine)
End Sub
End Class
The extra argument I need to add is below…. The text in red is what should be in the watermark.box text above,
–vf drawtext=”fontsize=50:fontcolor=white@0.5:fontfile=arial.ttf:text=’watermark variable’:x=330:y=0”
thanks in advance