利用API播放AVI

2016-02-19 17:52 21 1 收藏

get新技能是需要付出行动的，即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是利用API播放AVI，一起来学习了解下吧！

【 tulaoshi.com - 编程语言】

声明：
　　DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength
　　AsLong,ByValhwndCallbackAsLong)AsLong
　　代码：
　　DimreturnstringAsString
　　FileNameAsString
　　returnstring=Space(127)
　　FileName="C:A1.avi"
　　erg=mciSendString("open"&Chr$(34)&FileName&Chr$(34)&"typeavivideoaliasvideo",returnstring,127,0)
　　erg=mciSendString("setvideotimeformatms",returnstring,127,0)
　　erg=mciSendString("playvideofrom0",returnstring,127,0)
　　'记着关闭！
　　erg=mciSendString("closevideo",returnstring,127,0)->

来源:https://www.tulaoshi.com/n/20160219/1616261.html

上一篇： DataGrid连接Access的快速分页法（1）——需求与现状
下一篇：安全的Microsoft的ACCESS数据库加密方法

看过《利用API播放AVI》的人还看了以下文章更多>>

利用API创建文件目录

标签：编程语言网络编程

PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong PrivateTypeSECURITY_ATTRIBUTES nLengthAsLong lpSecurityDescriptorAsLong bInheritHandleAsLong EndType SubMain() '在C盘创建了"VB编程...

利用API检测文件是否存在

标签：编程语言网络编程

在某些场合，我们需要确定特定目录下特定文件是否存在。VB自带的DIR函数可以查找符合条件的文件(在VB编程乐园已经有过介绍)，但用起来略显复杂。这里介绍一种较为简单的方法。 API函数的SHFileExists的功能，从其名字来看，应该是SearchFileExists，亦即查找存在的文件。用它来检测文件存在与否是很容易的。试看下面的例子。在标...

如何在C#中播放AVI短片并使背景透明

标签：编程语言网络编程

在C#编程的时候,由于一个功能需要播放一小段的AVI格式的短片，结果找了半天也没有搞定如何来进行播放。于是本人在网上查呀查呀!找了半天终于找到了一个方法播放文件。他的方式是首先用下面的命令为媒体播放器控件：msdxm.ocx 生成 MediaPlayer.dll 和 AxMediaPlayer.dll。命令为:aximp c:\winnt\system32\msdxm.ocx 而通常msdxm.ocx...

用API函数Mcisendstring直接播放背景音乐

标签：编程语言网络编程

源代码： PrivateSubCommand1_Click() Dimback back=mciSendString&("CLOSENN",0,0,0) EndSub PrivateSubCommand2_Click() Dimback back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0) back=mciSendString&("PLAYNNFROM0",0&,0,0) R=mciSendString&...

VB利用API函数设定屏幕颜色数

标签：编程语言网络编程

原则上，只改这一次，下一次开机会还原，但假如需重开机，才会Update Registry中的设定，并重开机。 !-- frame contents -- !-- /frame contents -- 假如要永久设定其设定值，请将 b = ChangeDisplaySettings(DevM, 0) 改成 b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) 注： ...

查看更多精彩>>