Public Class Form1
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim fileop As String
Dim ConvName As String
'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)
ConvName = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
If CheckBox1.Checked = True Then
fileop = "cws2fws_bat.bat " + TextBox1.Text + " " + ConvName + TextBox2.Text + ".flv" 'デバック用
Else
fileop = "cws2fws " + TextBox1.Text + " " + ConvName + TextBox2.Text + ".flv"
End If
Shell(fileop, 1)
End Sub
Private Sub TextBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
'ドラッグされている内容が文字列型に変換可能な場合
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'コピーを許可するようにドラッグ元に通知する
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub CWS2FWS変換君についてToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CWS2FWS変換君についてToolStripMenuItem.Click
AboutBox1.Show()
End Sub
End Class
Microsoft Visual Basic 2005 Express Edition を落として、googleでググって出来たようなものなので
ソースファイルは突っ込みどころ満載です。動いたので良しとしました(^^;
