VB显示透明FLASH效果
来源:互联网 发布:男士美图软件 编辑:程序博客网 时间:2024/05/18 02:19
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效果
- FLASH透明效果代码
- FLASH透明效果代码
- 设置flash透明的效果
- VC实现flash透明显示
- flex flash 显示效果
- vb 窗体透明效果(控件不透明)
- 用dreamweaver来做flash透明效果
- VB用Bitblt实现透明位图显示
- VB用Bitblt实现透明位图显示
- VC++实现位图显示透明效果
- VC++实现位图显示透明效果
- VC++实现位图显示透明效果
- VC++实现位图显示透明效果
- Win32 使HBITMAP显示成透明效果
- VC++实现位图显示透明效果
- flash透明
- flash透明
- js控制控件的disable
- 编程和游戏软件序列号
- 通过配置spring.xml实现通用Webservice调用
- win2008 备份激活文件
- SQL server2005中文件备份与恢复
- VB显示透明FLASH效果
- 解决让你崩溃的 GCJ,GCJ for windows 搭建详解
- 网站规划预算
- Makefile中变量的使用
- TDD与VTDD系列(二):CppUnit的改进与使用(2)
- html页面表格导出到excel总结
- CrossTools交叉编绎工具!
- http消息头
- trjtyrtj