请问VB如何可以实现全屏播放一个avi文件，然后打开一个HTML文件呢？请指教，谢谢！

2004-05-07 04:05:18 111 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Agv、Rgv 车辆控制调度系统开发第一篇 Agv、Rgv 车辆控制调度系统第一篇为什么要做这个系统先看作品从头讲起算法讲解编程语言从哪里开始继续深入预告为什么要做这个系统说白了是为了赚钱，在一个项目中发现公司买别人家的调度系统要几十万，还只是一个项目的实施，从那天起我就决定自己写一套，用了一年的时间写出来后，才发现根本卖不掉，卖不掉就卖不掉吧，反正我现在已经吧写这套系统当成了一种乐趣，如果不让我写了我反而不适应，但是没有人欣赏我的成果我反而很难受，所以决定吧这个系统的创作过程，写下来，给后面的人一些建议，少走点弯路。先看作品从头讲起在阅读详情

...全文

别再为手机号验证发愁！手把手教你用QQ邮箱搞定谷歌账号，轻松注册GEE 本文详细介绍了如何通过QQ邮箱绕过手机验证，轻松注册谷歌账号并接入Google Earth Engine（GEE）。从注册前的准备工作到分步实操指南，再到GEE账号绑定与安全维护，提供了一套完整的解决方案，帮助遥感领域的研究者高效突破注册壁垒。阅读详情

qianghui

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

kmzs 2004-05-11

打赏
举报

就是这样吧

zlg8616 2004-05-11

打赏
举报

给你一个例子也许有用，但我自己也是新手！！！！！
如果实现了全屏也请给我发一份zlg8616@163.com 谢谢！！

我每当看一张多媒体光盘时，都会被其中的一些数字电影所折倒。现在有了MCI我们也可以播放AVI动画了，并且并不他们的差。其源程序如下：

VERSION 5.00

Begin VB.Form AVI

Appearance = 0 'Flat

BackColor = &H00FFFFFF&

Caption = "AVI播放器 "

ClientHeight = 2700

ClientLeft = 3105

ClientTop = 3405

ClientWidth = 4710

ForeColor = &H80000008&

LinkTopic = "Form1"

PaletteMode = 1 'UseZOrder

ScaleHeight = 180

ScaleMode = 3 'Pixel

ScaleWidth = 314

WindowState = 2 'Maximized

End

Attribute VB_Name = "AVI"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Click()

PlayVideo "f:\2.avi", AVI.hWnd

End

End Sub

Private Function Mcistring(commandstring As String) As String

Dim returnstring As String * 256

Dim dummy As Integer

dummy = mciSendString(commandstring, returnstring, 255, 0)

Mcistring = returnstring

End Function

Private Sub PlayVideo(FileName As String, ByVal hWindow As Integer)

Dim commandstring As String

Dim pstring As String * 255

'打开AVI设备

commandstring = "Open " & FileName & " alias AVI"

pstring = Mcistring(commandstring)

'设置输出窗口

commandstring = "Window AVI handle " & Str$(hWindow)

pstring = Mcistring(commandstring)

'定义全屏

commandstring = "Put AVI destination at 0 0 640 480"

'读者不妨试试改改字符串中0 0 648 480 几个字符,你会大吃一惊的!但要注意字符之间要有空格。(显示模式为:640*480)

pstring = Mcistring(commandstring)

'播放AVI

MousePointer = 11

commandstring = "Play AVI wait "

pstring = Mcistring(commandstring)

MousePointer = 0

'关闭AVI设备

commandstring = "Close AVI"

pstring = Mcistring(commandstring)

End Sub

goodname008 2004-05-09

打赏
举报

用mciSendString函数加上MCI指令集可以实现全屏播放avi文件。
打开html文件可以用ShellExecute函数。

请问VB如何可以实现全屏播放一个avi文件，然后打开一个HTML文件呢？请指教，谢谢！

相关推荐