--==vb6中用图片框任意大小播放AVI电影(New)==--
来源:互联网 发布:猴子seo 编辑:程序博客网 时间:2024/05/29 17:02
- 新建工程,增加一个bas模块
- 加入一个MCI控件,一个command按钮和一个图片框,设置form的
ScaleMode property为 Pixels (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
- 按f5运行程序
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=5690
- --==vb6中用图片框任意大小播放AVI电影(New)==--
- --==vb6中用图片框任意大小播放AVI电影(New)==--
- --==vb6中用图片框任意大小播放AVI电影(New)==--
- Matlab 处理avi视频文件为单帧任意大小图片
- VB6.0让图片自适应Picture图片框大小
- 将matlab中用plot绘制的图片保存为任意大小的jpg图片
- 任意大小缩放图片
- vb6中用new创建的对象是否要delete呀?
- js 判断上传图片尺寸大小(var img =new Image())
- String s = new String("hello world")中用到的反射
- 【EMGU】读取视频AVI文件+保存任意帧为图片
- AVI电影合并
- PSP播放AVI/PMP高清电影及视频转换指南
- opencv第二章-显示一张图片和播放avi视频
- 基于opencv的任意大小的图片的双线性缩放(每次缩放大小一样)
- OpenCV实现任意大小图片的合并
- Delphi播放声音文件类(包括调整其中任意一个声音的大小)
- MPMoviePlayerViewController或MPMoviePlayerController播放本地视频报错:_itemFailedToPlayToEnd: {kind = 1;new =
- 根据排序定义表排序数据
- 触发器维护已经用编号/未用编号
- 安全是谁的责任?应用程序还是操作系统? 再谈Google输入法的安全漏洞
- 数据汇总加排序
- JSP高级编程 3
- --==vb6中用图片框任意大小播放AVI电影(New)==--
- 索引对查询条件顺序的影响
- 数据汇总加排序
- 金额合计求值问题
- 报表统计
- ADODB.Recordset对象在分页处理中的问题
- SQL Server 2005 中的树形数据处理示例-2
- 触发器维护已经用编号/未用编号
- JSP高级编程 4