Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 


Ïà¹ØÎĵµ£º

ʹÓÃxml flashÓëASPͨÐŵļ¸ÖÖ·½·¨

FlashÖеÄXML¶ÔÏóÒ²Óз½·¨¿ÉÒÔ½«XMLÊý¾ÝÏò·þÎñÆ÷·¢ËÍ¡£¼´sendºÍsendAndLoad¡£send·½·¨Ïòij¸ö URL ´«µÝ XML ¶ÔÏ󣬷µ»ØµÄÐÅÏ¢¶¼±»·¢Ë͵½ÁíÍâÒ»¸öä¯ÀÀÆ÷´°¿Ú£»sendAndLoad ·½·¨Ïòij¸ö URL ·¢ËÍÒ»¸ö XML ¶ÔÏó¡£·µ»ØµÄÐÅÏ¢¶¼·ÅÔÚÒ»¸öXML¶ÔÏóÖС£
ÔÚijÖ̶ֳÈÉÏ£¬ XMLµÄsend·½·¨ºÍsendAndLoad·½·¨ÀàËÆÓÚloadVars¶ÔÏóµÄsend·½·¨ºÍ ......

PPT 2007»ÃµÆÆ¬ÖÐǶÈë.swf ¸ñʽFlash ¶¯»­

²Î¼Ó£ºhttp://gzxieyun.blog.163.com/blog/static/12122649200911237427572/
ÔÚPowerpoint 2007ÖвåÈë´Ëflash²¢ÔÚÈ«ÆÁʱʵʱÏÔʾ»òÕ߯äËü£º
1 ÔÚ»ÃµÆÆ¬ÖÐǶÈë.swf ¸ñʽFlash ¶¯»­
1.1 ÔÚ¹¦ÄÜÇøÏÔʾ¿ª·¢¹¤¾ß
£¨1£©µ¥»÷″Microsoft Office °´Å¥″£¬È»ºóµ¥»÷″PowerPoint Ñ¡Ïî″£»£¨2£©µ¥»÷″³£Ó ......

ÌṩFLASHÎļþ±£»¤

ÁªÏµQQ£º787135989
ÌṩFLASHÎļþ±£»¤.
¿ÉÒÔ×î´óÏ޶ȱ£»¤ÄãµÄFLASHµÄ°²È«!
·ÀÖ¹ÉÁ¿Í¾«Á黹ԭÄãµÄSWFÎļþ
ÖжÏAction Script Viewer²é¿´½Å±¾×ÊÔ´£¡
Ò²ÌṩÊÖ¹¤ÆÆ½âFLASH
·ÀÖ¹·Ç·¨·ÖÅäÄãµÄ¸öÈË×ÊÔ´.
                  ------- ......

vb×Ô¶¯¹Ø»ú³ÌÐò

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()
  ......

FlashÓë×é¼þ£ºÖÆ×÷Slider×é¼þ

   ÀûÓÃas3£¬ÎÒÃÇ¿ÉÒÔ³¢ÊÔÖÆ×÷һЩÓÐȤµÄ×é¼þ£¬ËäÈ»ÏÖÔÚÒѾ­ÓкܶàʵÓõÄ×é¼þ£¬µ«ÊÇ×Ô¼º³¢ÊÔдһÏÂÒ²ÊDz»´íµÄ¡£ÀûÓÃas3Óï·¨£¬½èÓÃÁË»æÍ¼ApiÎÒÃdz¢ÊÔÖÆ×÷Ò»ÏÂÕâ¸ö×é¼þ¡£ÒòΪÎÒÃDz»ÐèÒªºÜÇ¿´óµÄ¹¦ÄÜ£¬¶Ô´ËÎÒÃÇÖ»ÊÇÐèҪѡȡÆäÒ»²¿·Ö¾Í¿ÉÒÔ¡£
Ê×ÏÈ,ÎÒÃÇËùÐèµÄÖÆ×÷Á½¸öͼÐΣ¬Ò»¸öÊÇÍ϶¯µÄ·½¿é£¬Ò»¸öÊǵ×ͼƬ¡£¶ÔÓÚÕâÁ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ