使用Flash对象的另类思路-创建绚丽图表+播放FLV视频 超简单!
本帖最后由 ashfinal 于 2012-7-10 14:52 编辑原理其实一样的,就不开新帖了。感觉这帖子越来越像软件推介了,囧~
这个方向应该还有可深挖的地方,希望高手们能分享Flash的更多用法。
额 首先说呢 帖子本身没啥技术含量。有些东西说穿了其实特简单,这里只是分享个小小技巧。
FusionCharts效果如下:
FLV播放效果如下:
我简单写了个FusionCharts的代码演示:
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("FusionCharts", 640, 480, -1, -1)
$Obj1 = ObjCreate("ShockwaveFlash.ShockwaveFlash.11")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 640, 400)
$Button1 = GUICtrlCreateButton("change",30,430,80,30)
GUISetState(@SW_SHOW)
Dim $swfarray=[["Bubble","CandleStick","MSCombi3D","SelectScatter","HeatMap","MultiAxisLine","Radar","ZoomLine"], _
["Bubble3","Candlestick","MSCol3D4","SelectScatter2","HeatMap1","MALine2","Radar1","Zoomline"]]
Dim $i =0
With $Obj1
$randvar =Random(0,7,1)
.movie=@ScriptDir&"\"&$swfarray[$randvar]&".swf"
.flashvars="dataURL="&$swfarray[$randvar]&".xml"
EndWith
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $i<=7 Then
With $Obj1
.movie=@ScriptDir&"\"&$swfarray[$i]&".swf";代码其实就这两行
.flashvars="dataURL="&$swfarray[$i]&".xml";代码其实就这两行
EndWith
$i=$i +1
Else
MsgBox(0,"","Well,this is the end.")
EndIf
EndSwitch
WEnd
播放FLV视频原理一样的,也是借用了特定的外部flash文件。不过调用方法不同:
.movie=@ScriptDir&"\vcastr2.swf?vcastr_file=whodidit.flv"
回复查看完整打包下载和获取最新官方flash“破解版”的方法(包含chart-44、map-316、widget-23、powerchart-30等四大套件)
**** Hidden Message ***** 学习下, 谢谢分享! 技术贴啊 围观下 看看,学习一下 很强大,很漂亮的画图啊! 回复 1# ashfinal
学习中 很少接触绘图 回复 1# ashfinal
貌似不错。。。这个是不是包含柱状图,饼图。。等等。。
就是编写XML麻烦点。。
楼主要做成一个成品。。从excle复制数据就能成生成XML和图。。 回复 1# ashfinal
不错。 绘制的啊。不错啊。。回复一下。 确实挺漂亮,能实现这样子,算很不错了。。赞。。。有前途。。。 学习下, 谢谢分享! 学习下, 谢谢分享! 我来围观。。。。。。。。。。。。。 技术贴啊 围观下 测试后感觉很强大,很漂亮