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
相关文档：
本文来自http://blog.csdn.net/hellogv/ ，引用必须注明出处！
FLASH型的MSP430单片机都带有信息存储器SegmengA及SegmentB,SegmengA及SegmentB各有128字，SegmentB的地址是：0x01000h到0x107F，SegmentA的地址是：0x01080h到0x010FFh。程序被写入MSP430之后，程序通过SegmengA及SegmentB就可以保 ......
今天一个下午在和civet_Dr.M.进行讨论，讨论很多关于flash 性能方面的问题，这些讨论暂时看不到什么结果，也不能总结出一套很完整的方案。不过flash和内存之间的使用是一个很重要议题。其中我们讨论了一个对象池的问题。在java当中有线程池的概念，其中原理跟对象池是差不多的。我们知道当我们创建对象时候，就需要� ......
最近公司要做个拍卖行的项目，我被分配了“实时音视频直播及点播”的部分。我一直从事JAVA重来没研究过adobe的东西，虽然sun（现在是ORACLE了）也有JMF，但是这个东西早就暂停更新了，感觉已经与时代脱节。最后经过我们开发人员都有的刻苦专研，埋地苦干的精神终于在一个礼拜搞定了。
闲话少说，我们切入正题
� ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
以下是用datalist绑定了一些flash视频。客户端点击这个视频，则跳出一个网页。
<Script language="javascript">
function OpenAdvertPage(URL) {
win ......
