使用Flash对象的另类思路-创建绚丽图表+播放FLV视频 超简单！

ashfinal

原理其实一样的，就不开新帖了。感觉这帖子越来越像软件推介了，囧~
这个方向应该还有可深挖的地方，希望高手们能分享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[2][8]=[["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[0][$randvar]&".swf"
        .flashvars="dataURL="&$swfarray[1][$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[0][$i]&".swf";代码其实就这两行
                                        .flashvars="dataURL="&$swfarray[1][$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等四大套件）

游客，如果您要查看本帖隐藏内容请回复

user3000

学习下, 谢谢分享!

ooxxgod

技术贴啊 围观下

lpxx

看看，学习一下

xms77

很强大，很漂亮的画图啊！

zhuangrui911

回复 1# ashfinal

学习中 很少接触绘图

auto

回复 1# ashfinal


   貌似不错。。。这个是不是包含柱状图，饼图。。等等。。
就是编写XML麻烦点。。
楼主要做成一个成品。。从excle复制数据就能成生成XML和图。。

itljl

回复 1# ashfinal


    不错。

xx44t10

绘制的啊。不错啊。。回复一下。

半芯竹

确实挺漂亮，能实现这样子，算很不错了。。赞。。。有前途。。。

seeking

学习下, 谢谢分享!

jkq920

学习下, 谢谢分享!

liuxuchun1985

我来围观。。。。。。。。。。。。。

jy010

技术贴啊 围观下

jy010

测试后感觉很强大，很漂亮