投稿者 もっちり太郎  (学生) 投稿日時 2016/4/2 11:44:33
私は、vbのことについてただいま勉強中です。そこで今回皆様に教えていただきたいのが題名にも書いてある通り、VB2012でpictureboxを使って動画を再生する方法です。コードは以下のものです(dobon.net様のものを使わせていただきました)
 <System.Runtime.InteropServices.DllImport("winmm.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function mciSendString(ByVal command As String, _
    ByVal buffer As System.Text.StringBuilder, _
    ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function

    Private aliasName As String = "MediaFile"

    'Button1のClickイベントハンドラ
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        '再生するファイル名
        Dim fileName As String = "Wildlife.wmv"

        Dim cmd As String
        'ファイルを開く
        cmd = "open """ + fileName + """ alias " + aliasName
        If mciSendString(cmd, Nothing, 0, IntPtr.Zero) <> 0 Then
            Return
        End If '再生する
        cmd = "play " + aliasName
        mciSendString(cmd, Nothing, 0, IntPtr.Zero)
        Me.Left = 0
        Me.Top = 0
        Me.StartPosition = FormStartPosition.Manual
        Me.Show()
        Me.TopMost = True
    End Sub

よろしければ、どうやって動画を再生するのか、その仕組みも教えていただけると助かります。