ビデオを再生するために mciSendString を使用していますが、ビデオの上にラベルやボタンなどのコントロールを配置できません。ビデオの上に別のコントロールを配置するにはどうすればよいですか?
以下はコードです:
パブリック クラス Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String、ByVal lpstrReturnString As String、ByVal uReturnLength As Integer、ByVal hwndCallback As Integer) As Integer
文字列としての薄暗いファイル名
Dim retVal As Integer
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click filename = Chr(34) & "D:\farm.wmv" & Chr(34) retVal = mciSendString("open " & filename & " type mpegvideo alias movie parent " & Panel1.Handle.ToInt32 & " style child", 0, 0, 0) retVal = mciSendString("put movie window at 0 0 201 127", 0, 0, 0) retVal = mciSendString("play movie", 0, 0, 0) End Sub End Class
前: (ボタン 1 が表示されます)
後 : (ボタン 1 が表示されなくなります)