VB显示透明FLASH效果
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_COLORKEY = &H1
Dim rtn&
Private Sub Form_Load()
ShockwaveFlash1.BackgroundColor = RGB(255, 255, 255)
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(255, 255, 255), 0, LWA_COLORKEY
ShockwaveFlash1.Movie = App.Path & "\1.swf"
End Sub
相关文档：
这是一篇讲解如何使用XML实现Flash与通信的入门级实例教程。通过本例的学习，我们将了解使用XML开发Flash RIAs的基本流程。
从Flash Player 5开始，就可以使用XML对象来实现Flash与后台通信。Flash浏览器与XML数据之间的直接进行数据交换，并且同LoadVars函数一样，都是以字符串形式传递的。后台语言作为XML数据和数据库 ......
ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言，默认的内置开发语言是VBScript，由于ASP和微软Windows系列操作系统的结合非常的好，使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。
他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到 ......
div的图层由div的style中的z-index来决定，z-index是层垂直屏幕的坐标，0最小，越大的话位置越靠上。
由于FusionCharts的图表都放在div中，如果页面还有其他的div，将被FusionCharts的图层挡住。不过设置z-index并不起作用，其他的div仍然被挡住。经过网络上查找，发现原来是这样的：
flash的图默认情况下总是位于最上� ......
经daquan提醒，发现听雨对于上传的flash文件的脚本没有处理，用户能够利用上传的flash的脚本功能（比如带有geturl动作的flash）实现自动跳转到某个站点。
到北邮人论坛参考了一下，发现他们有对flash脚本的禁用，于是借鉴北邮人的做法，对听雨的flash附件脚本动作进行了处理，具体做法如下：
改动之前的代码：
<objec ......
