--==vb6中用图片框任意大小播放AVI电影(New)==--

  1. 新建工程,增加一个bas模块
  2. 加入一个MCI控件,一个command按钮和一个图片框,设置form的
    ScaleMode property为 Pixels (3).
  3. .BAS 文件代码:
    
       Type RECT
          Left As Long
          Top As Long
          Right As Long
          Bottom As Long
       End Type
    
       Type MCI_OVLY_RECT_PARMS
          dwCallback As Long
          rc As RECT
       End Type
    
       Global Const MCI_OVLY_WHERE_SOURCE = &H20000
       Global Const MCI_OVLY_WHERE_DESTINATION = &H40000
       Global Const MCI_WHERE = &H843
    
       
       Declare Function mciSendCommand Lib "winmm.dll" _
          Alias "mciSendCommandA" ( _
             ByVal wDeviceID As Long, _
             ByVal uMessage As Long, _
             ByVal dwParam1 As Long,
             dwParam2 As Any) As Long
    
       Declare Function mciGetErrorString Lib "winmm.dll" _
          Alias "mciGetErrorStringA" ( _
             ByVal dwError As Long, _
             ByVal lpstrBuffer As String, _
             ByVal uLength As Long) As Long
     


 Command1_Click()事件:


   Sub Command1_Click ()
      Const MB_OK = 0
      Const MB_ICONSTOP = 16

      Dim Retval&, Buffer$
      Dim dwParam2 As MCI_OVLY_RECT_PARMS

      MMControl1.Command = "Close"
      MMControl1.Filename = "WndSurf1.avi"  '
      
      MMControl1.hWndDisplay = Picture1.hWnd

      MMControl1.Command = "Open"

      '初始化
      dwParam2.dwCallback = MMControl1.hWnd
      dwParam2.rc.Left = 0
      dwParam2.rc.Top = 0
      dwParam2.rc.Right = 0
      dwParam2.rc.Bottom = 0

      '发送消息
            Retval& = mciSendCommand(MMControl1.DeviceID, MCI_WHERE,
                MCI_OVLY_WHERE_SOURCE, dwParam2)

      If Retval& <> 0 Then  '错误发生.
         Buffer$ = Space$(100)
         'Get a description of the error:
         Retval& = mciGetErrorString(Retval&, Buffer$, Len(Buffer$))
         MsgBox Trim$(Buffer$), MB_OK + MB_ICONSTOP, "ERROR"
      Else
         '改变picture box大小:
         Picture1.Width = dwParam2.rc.right - dwParam2.rc.left
         Picture1.Height = dwParam2.rc.bottom - dwParam2.rc.top

         '播放电影
         MMControl1.Wait = True ' Wait for the next command to complete
         MMControl1.Command = "play" 'Play the video clip
         MMControl1.Command = "close"
      End If
   End Sub
 



  1. 按f5运行程序
阅读终点,创作起航,您可以撰写心得或摘录文章要点写篇博文。去创作
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

coolstar

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值