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开发的首选语言和环境。
他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到 ......
最近公司要做个拍卖行的项目，我被分配了“实时音视频直播及点播”的部分。我一直从事JAVA重来没研究过adobe的东西，虽然sun（现在是ORACLE了）也有JMF，但是这个东西早就暂停更新了，感觉已经与时代脱节。最后经过我们开发人员都有的刻苦专研，埋地苦干的精神终于在一个礼拜搞定了。
闲话少说，我们切入正题
� ......
文章来源:vb大世界 作者：王国荣
「VB 没有提供这样的功能， 必须呼叫 Windows API」， 当笔者这样回答读者之後，有些读者会要求笔者介绍 Windows API 方面的书籍， 尤其是中文书， 但实际上，目前市面上只看到一本原文书(ZD Press 出版的 Visual Basic 5.0 Programming Guide to Win32 API)， 中文书则未见过， 为什麽没� ......
