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
今天一个下午在和civet_Dr.M.进行讨论，讨论很多关于flash 性能方面的问题，这些讨论暂时看不到什么结果，也不能总结出一套很完整的方案。不过flash和内存之间的使用是一个很重要议题。其中我们讨论了一个对象池的问题。在java当中有线程池的概念，其中原理跟对象池是差不多的。我们知道当我们创建对象时候，就需要� ......
flash
插入html页面<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="667" height="116">
<param name="movie" value=&quo ......
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()
......
利用as3，我们可以尝试制作一些有趣的组件，虽然现在已经有很多实用的组件，但是自己尝试写一下也是不错的。利用as3语法，借用了绘图Api我们尝试制作一下这个组件。因为我们不需要很强大的功能，对此我们只是需要选取其一部分就可以。
首先,我们所需的制作两个图形，一个是拖动的方块，一个是底图片。对于这� ......
