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

原创 2001年05月06日 12:29:00
  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运行程序

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

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:24
  • 94

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

新建工程,增加一个bas模块加入一个MCI控件,一个command按钮和一个图片框,设置form的ScaleMode property为 Pixels (3). .BAS 文件代码: Type ...
  • techweb
  • techweb
  • 2008年01月03日 15:14
  • 185

Android 媒体开发:AVI视频格式解析

博客:http://blog.csdn.net/allenwells  Github:https://github.com/AllenWells AVI(Audio Video Interle...
  • u010164190
  • u010164190
  • 2016年10月01日 22:42
  • 784

VB6.0让图片自适应Picture图片框大小

Picture的AutoSize属性设为True的话可以让图片框自动适应图片大小,但是图片不能适应图片框大小;     Image的Stretch属性设为True的话可以让图片自动适应图像框大小。 ...
  • nicekwell
  • nicekwell
  • 2013年07月18日 15:17
  • 5163

支持wmv、mpg、mov、avi格式的网页视频播放代码

这2天一直在整金网奖的相关项目,比较头大的就是网页视频播放了,需要考虑各种不同格式的视频,然后找相应的视频播放器。这次使用了2种方法对这些视频进行处理:1、使用ckplayer网页视频播放器ckpla...
  • zenson_g
  • zenson_g
  • 2015年11月15日 19:42
  • 20568

简单的播放AVI方法:CAnimateCtrl类

CAnimateCtrl CAnimateCtrl是MFC中的类。它提供了Windows通用动画控件的功能。此控件只对运行在Windows 95和Windows NT 3.51版及其更高...
  • ccx_john
  • ccx_john
  • 2013年09月22日 17:33
  • 1077

解决ubuntu 15.04不能看avi格式的问题

可能很多人用ubuntu都没有遇到这样的问题,但是如果遇到了,的确让人难受。我用ubuntu 15.04一个月了,试了各种方法,都没有解决,很多学习视频都是avi格式的。 最开始我在网上找了...
  • Xs15073722800
  • Xs15073722800
  • 2015年11月29日 20:57
  • 776

网页嵌入WMP播放器播放avi视频

WMP是Windows Media Player的缩写。Windows Media Player 是 Windows 系统自带的播放器,可以播放MP3,WMA,WAV等音频文件,RM文件由于竞争关系微...
  • wocaonima123987
  • wocaonima123987
  • 2012年06月30日 08:46
  • 6630

Ubuntu 10.04 播放rm, rmvb, avi, wmv等视频格式

Ubuntu 10.04中可以不用安装w32codecs,轻松播放各种音频,视频文件。 sudo apt-get install ubuntu-restricted-extras sudo a...
  • dingwood
  • dingwood
  • 2012年04月28日 00:01
  • 3984

Web视频播放总结,avi、swf、兼容IE6/7/8

使用SWF完成兼容各个浏览器的WEB视频播放
  • msst1234
  • msst1234
  • 2016年03月17日 14:58
  • 5449
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:--==vb6中用图片框任意大小播放AVI电影(New)==--
举报原因:
原因补充:

(最多只允许输入30个字)