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就可以保 ......
ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言，默认的内置开发语言是VBScript，由于ASP和微软Windows系列操作系统的结合非常的好，使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。
他有着简单易学，方便快速开发的种种优点，但是他也有着致命的弱点，就是他是脚本语言解释执行的，速度会受到 ......
今天一个下午在和civet_Dr.M.进行讨论，讨论很多关于flash 性能方面的问题，这些讨论暂时看不到什么结果，也不能总结出一套很完整的方案。不过flash和内存之间的使用是一个很重要议题。其中我们讨论了一个对象池的问题。在java当中有线程池的概念，其中原理跟对象池是差不多的。我们知道当我们创建对象时候，就需要� ......
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()
......
