access与Flash的结合应用(祥解)附源码
这是一个access较为豪华的包装范例,他调用了flash的流媒体控件,利用flash的交互与通信功能,借以达到了我们装扮软件的目的。
flash具有动感强、色彩艳丽、体积小巧、支持动画和交互性好等等一些access并不具备的特点,尤其它的“流”技术更是无可比拟,它可以边加载边播放,即使是一些较大的影片文件,我们也无须等待。可以想象,一个完美的flash动画加上我们的access核心技术应该是何等的惬意呀!
本例应该分为两个部分。一是flash制作:范例中的动感效果、声音效果、按钮事件等都是由flash中完成的。flash中有一个重要的通信函数“fscommand”它可以将一个字符串传递给承载它的windows程序,本例中它的承载程序是一个ActiveX 控件既flash.ocx,也就是说:当我们点击一个flash按钮时,如"进货管理",我们可以让fscommand函数为我们向flash.ocx控件传递一个具有特定标识意义的字符串,再由access加以识别处理就可以了.以"进货管理"为例:我在按钮的flash的单击动作中加入以下代码:
on (release) { fscomfscommand(); mand ("JHGL"); } |
Private Sub Flash_FSCommand(ByVal command As String, ByVal args As String) Select Case command Case "JHGL" MsgBox "您将进入“进货管理”模块" Case "CHGL" MsgBox "您将进入“出货管理”模块" Case "KCGL" MsgBox "您将进入“库存管理”模块" Case "CWGL" MsgBox "您将进入“财务管理”模块" Case "help" MsgBox "您将进入“使用帮助”模块" Case "help" MsgBox "您将进入“进货管理”模块" Case "close" MsgBox "再见!sanjian.5944.net" DoCmd.Close End Select End Sub |