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