CObject調用VLC ocx控件播放mp4視頻,也可以播放流 VFB

yjgyjgg 10月前 6690

    dim ocx as CObject
    ocx.CreateObjectFromLib("axvlc.dll" ,"{9BE31822-FDAD-461B-AD51-BE1D1C159921}")創建VLC對象
    if ocx.IsErr Then Exit sub
    ocx.AttachControl Me.Custom1.hWnd'附加到任意窗口上
    Ocx.Put("AutoPlay" ,vbTrue)'設置自動播放為True
    if Ocx.IsErr Then Debug.Print Ocx.ErrDescription'查詢是否有錯誤
    dim o as CObject = Ocx.get("playlist")'獲得播放列表對象
    If Ocx.IsErr Then Debug.Print Ocx.ErrDescription
    o.Run("Add" ,"file:///" & App.Path &"\1600746019592311.mp4")'添加mp4文件到播放列表
    If o.IsErr Then Debug.Print o.ErrDescription
    o.Run("play")'播放

因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网