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

VB显示透明FLASH效果相关推荐

使用Dreamweaver轻松实现网页中透明Flash效果
有时需要在一张漂亮的图片上加些文字动画,但 Flash 软件是没有透明背景属性设置的,其实无论 Flash 的背景是什么颜色,我们都可以通过 Dreamweaver 软件使它透明,制作出漂亮又动感的页 ...
python 三维图背景_Python利用matplotlib生成图片背景及图例透明的效果
前言最近工作中遇到一个需求,在使用matplotlib生成图片,想要背景透明,而且图例部分也显示透明效果,通过查找相关资料找到了大概的设置方法,特此记录,方便自己或者有需要的朋友们参考学习. 示例代 ...
138种QQ空间透明flash
138种QQ空间透明flash 要观看以下flash效果,请将以下地址复制到浏览器地址栏中,再按回车即可! http://imgfree.21cn.com/free/flash/1.swf 流星 ht ...
10000多个QQ空间透明flash素材大观园
以下素材全部来自中国flash在线:http://www.flashline.cn 分类清晰明了,方便大家找到您喜欢的素材 ·端午节专题透明flash素材:http://www.flashline.c ...
flash透明\flash置底无效\flash遮挡div的解决方法兼容Firefox ,IE，chrome浏览器
flash透明无效 \ flash置底无效 \ flash遮挡div 的解决方法兼容Firefox ,IE,chrome浏览器 flash透明 flash置底 lash遮挡div 基本思路为: ...
【STM32H7】第20章 ThreadX GUIX汉字显示(QSPI Flash全字库）
最新教程下载:http://www.armbbs.cn/forum.php?mod=viewthread&tid=98429 第20章 ThreadX GUIX汉字显示(QSPI ...
CSS中如何制作背景图片半透明但内容不透明的效果
CSS中如何制作背景半透明但内容不透明的效果一.利用伪元素:before添加一个半透明的背景,并利用position定位属性,设置z-index值为-1,显示在下层. css: <style& ...
在网页中添加透明Flash
在IE中显示透明: < object classid ="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase =&quo ...
jQuery动画的显示与隐藏效果
jQuery中用于控制元素显示和隐藏效果的方法如表1所示. 表1 控制元素的显示和隐藏在表1中,参数speed表示动画的速度,可设置为动画时长的毫秒值(如1000),或预定的3种速度(slow.fa ...
Android UI体验之全屏沉浸式透明状态栏效果
前言: Android 4.4之后谷歌提供了沉浸式全屏体验, 在沉浸式全屏模式下, 状态栏. 虚拟按键动态隐藏, 应用可以使用完整的屏幕空间, 按照 Google 的说法, 给用户一种身临其境的体 ...

VB显示透明FLASH效果

VB显示透明FLASH效果相关推荐

最新文章

热门文章