1

ビデオを再生するために 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 が表示されなくなります)

ここに画像の説明を入力

4

1 に答える 1

0

コレクション内の指定された子コントロールのインデックスを、指定されたインデックス値に設定します。

Control.ControlCollection.SetChildIndex方法

たとえば、ボタンがピクチャ ボックス コントロール内にある場合は、次のように設定します。

PictureBox.Controls.Setchildindex(control,newIndex)

これは仕事をします。

于 2013-11-19T07:16:24.537 に答える