Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
VB2012でpictureboxを使って動画を再生する方法
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=27057#CommentId77006
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
もっちり太郎
 (学生)
投稿日時
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
よろしければ、どうやって動画を再生するのか、その仕組みも教えていただけると助かります。