0
以下は、ビデオの再生に使用するコードです。ビデオはパネル上で再生されますが、ビデオを開始するとビデオの一部のみが表示されます。どのようにビデオをパネル内に収めることができますか?また、アスペクト比を維持できるように、ビデオのデフォルトサイズ(高さと幅)を取得する方法もあります。mciSendStringを使用してビデオのサイズを変更する方法
Private Sub movieWindow_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles movieWindow.DragDrop
Dim file_names As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
Dim result As String
For Each file_name As String In file_names
result = file_name.Substring(file_name.LastIndexOf("\") + 1)
frmPlayList.playlist.Items.Add(result)
frmPlayList.playlist2.Items.Add(file_name)
Next file_name
frmPlayList.playlist2.SelectedIndex = frmPlayList.playlist2.Items.Count - 1
filename = frmPlayList.playlist2.SelectedIndex
retVal = mciSendString("play movie", 0, 0, 0)
End Sub