Return()
从执行脚本返回。你可以把它用于IF - THEN语句。
AGifPlay("ANIGIF OBJECT") AGifStop("ANIGIF OBJECT") AGifReset("ANIGIF OBJECT")
GIF动画命令。play将从现在的祯开始播放动画,stop就停止动画。
reset就设置现在的祯到第一祯。动画如何动作依赖于GIF动画属性。
RunScript("OBJECT")
运行其它脚本对象。
你要建立一些各种通用的功能,最好是运行Script Object脚本。你能从任何对象上运行脚本-Mouse Up脚本就会运行。
你可以运行同样的脚本-建一个循环调用。除非你能确定你不使用循环。
ScriptTimer("OBJECT","MILISEC")
运行对象上的脚本或多少毫秒之后对象上的脚本。(参见RunScript)这对于在一段时间后隐藏一些信息框等是很好的。
MCICommand("MCI STRING")
MCI命令。
给一个设备发送一个字符串。这个字符串告述设备去做什么。
用这个命令可以控制播放MPEG、VCD、录音、播放动画等等设备。
你可以在字符串里使用、或。
同样,使用带目录命令的去告述多媒体建立者窗口成为子目录窗口。
这是一个在MBD项目的(100,50,100,100)位置上播放MPG电影的小例子:
MCICommand("打开\sample.mpg别名为MPEG样式的子目录") MCICommand("把MPEG放入100 50 200 200的窗口中") MCICommand("窗口MPEG的状态为隐藏") MCICommand("播放MPEG")
例如:打开和关闭光驱的门
MCICommand("设置光驱门打开")
MCICommand("设置光驱门关闭")
一些MCI命令函数可以返回一个值(例如在CD上的轨道号)
变量MCIResult会有一个结果数字。
例如:返回CD上的轨道数 MCICommand("光盘轨道数情况") DisplayValue("Text","MCIResult")
例2“返回轨道1的长度(秒) MCICommand(“光盘轨道1长度情况”"status cdaudio length track 1") DisplayValue("Text_totalsec","MCIResult")
例3:返回CD音频的状态 MCICommand(“光盘模式情况”"status cdaudio mode") if (MCIResult==-2) then Show("Playing") end if (MCIResult==-1) then Show("Stopped") end
要完全理解和掌握语法,请查阅微软的文档。
这样就可以直接访问设备-如果你要试验的话,彻底地准备一下。
OpenFile(" filter", "default")
打开File Open对话框。选择的文件修改快捷方式和OpenFile$字符串变量的筛选。
例子:
MPEG文件(*.mpg)|*.mpg|All Files|*.*||
这样就在打开文件对话框建立了两个选项MPEG文件和所有的文件。
注意:“|”字符在条目之间,“||”在最后。
格式是:文字被显示在小的框中“|”连接扩展名“||”
其它的参数是缺省扩展名。例如 *.mpg
使用这个命令后,你可以使用甚至
例如:
OpenFile("Text Files (*.txt)|*.txt|All Files|*.*||","*.txt")
Message("你选择的文件是","OpenFile$")
LoadText("Paragraph","")
这个例子载入了一个文本文件,把它显示在段落文本中(带标签的段落),并显示一个带路径的信息对话框。
FileString("substring","variable")
打开文件以后搜索与第一个子字符串相匹配的字符串。
放入子字符串(例如): .wav
如果有一个子字符串 '.wav' ,变量(第二个参数)就变成1
OpenFile("All Files|*.*||","*.*")
FileString(".wav","result(结果)")
if (result(结果) = 1) then
WavePlay("")
end
安装字体
如果你使用了一些在用户的系统上可能没有的字体-它就会用其它字体来代替-不是你喜欢的效果。
使用InstallTTF你可以在用户的计算机上临时安装你的字体。退出应用程序之后,字体就被反安装了。例如:把你的funny.ttf字体放在发布的光盘上,在应用程序开始时调用:InstallFont("\funny.ttf")
|