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就可以保 ......
学生时代专业是机械，但是参加工作后，机缘巧合从事了与软件相关的工作，就是对大型工程软件软件做一些二次开发，收获过快乐，收获过辛酸，在一次又一次的得与失中，想找一个地方，找一些人可以慢慢与之分享，与之交流，并期得到帮助或提供帮助！也许你是无意见路过，甚或漂过，但你的注目是我前进的动力，有幸驻足也会让我 ......
参加：http://gzxieyun.blog.163.com/blog/static/12122649200911237427572/
在Powerpoint 2007中插入此flash并在全屏时实时显示或者其它：
1 在幻灯片中嵌入.swf 格式Flash 动画
1.1 在功能区显示开发工具
（1）单击″Microsoft Office 按钮″，然后单击″PowerPoint 选项″；（2）单击″常� ......
1.打开
http://labs.adobe.com/downloads/flashplayer10_64bit.html
下载 Flash Player 10 for 64-bit Linux
2.解压后复制到/usr/lib64/mozilla/plugins
mv libflashplayer.so /usr/lib64/mozilla/plugins/libflashplayer.so
3.重启firefox，可以修改flash默认字体
vi /etc/fonts/conf.d/49-sansserif ......
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()
......
