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

½«excelÎĵµÖеÄflash±£´æ³öÀ´

¾ßÌå·½·¨ÈçÏ£º
1. µã»÷¹¤¾ß——>ºê——>ºê
2. µ¯³öÒ»¸öºê´´½¨´°Ìå,ÔÚ´°¿ÚÖÐÊäÈëºêÃû£¨ÀýÈ磺ºêÃû£ºExtractFlash£©µã»÷´´½¨°´Å¥¡£
3. µ¯³öÒ»¸ö±à³Ì½çÃæ£¬ÔÚ½çÃæµÄÖмäÓÐÒ»¸öС´°¿Ú£¬ÔÚ´°¿ÚÖÐÊäÈëÏÂÃæµÄ³ÌÐò¶Î¡£
Sub ExtractFlash()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "È·¶¨Òª·ÖÎöµÄ Office µµ")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
If myArr(i) = &H46 Then
If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
ReDim swfArr(swfFileLen - 1)
For myIndex = 0 To swfFileLen - 1
swfArr(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId
MsgBox "ÒÔ" & tmpFileName & "Ãû×Ö±£´æ"
End Sub
4. °´F5ÔËÐкꡣ
5. µ¯³öÒ»¸öÑ¡ÔñÎļþµÄ´°¿Ú£¬Ñ¡ÔñÄãÏëÒªÌáÈ¡flashµÄexcelÎļþ£¬µã»÷´ò¿ª°´Å¥¡£
6. Õâʱ»áµ¯³öÒ»¸öÌáʾ´°¿Ú“ÒÔ¡£¡£¡£¡£Ãû×Ö±£´æ”£¬µã»÷È·¶¨¡£
7. ÔÚexcelËùÔÚµÄλÖûá²úÉúÒ»¸öͬÃûµÄflashÎļþ¡£µ½´ËflashÎļþÒѾ­µ¼³öÁË¡£
ÌØ±ð˵Ã÷£ºÒ»°ãµÄ²Ù×÷ºÜÄѵ¼³ö£¬Ö»ÄܲÉÈ¡·ÖÎöÎļþµÄ°ì·¨µ¼³ö£¬ÒòΪSWFÊÇÓÐÊý¾Ý¸ñʽµÄ£¬Óв»Ò»ÑùµÄPEÍ·£¬ËùÓÐÄܹ»·ÖÎöµ¼È룬˵ԶÁË£¬·´ÕýÄã¿ÉÊÔÊÔÕâÑùµ¼³ö¡£
Áí£ºÄÇÔõÑù½«flash¼ÓÈëexcelÀ
µÚ1²½Ê×ÏÈ¿ªÆôÒ»¸ö¿Õ°×ExcelÎļþ£¬ÔÚÉÏ·½¹¦ÄܱíµÄ¿Õ°×´¦°´Ò»ÏÂÊó±êÓÒ¼ü£¬È»ºóµãÑ¡¡¾¿ØÖƹ¤¾ßÏä¡¿£¬ÆôÓḿØÖƹ¤¾ßÏ䡹¹¤¾ßÁС£
µÚ2²½ ³öÏÖ¡


Ïà¹ØÎĵµ£º

½â¾öVSÖÐShockwave Flash Object²»ÄÜÒýÈ룬δע²áÎÊÌâ

½«FlashÈںϵ½WinFormÖÐÄܹ»ÔöÇ¿³ÌÐòµÄ¶àýÌåЧ¹ûºÍìÅÀöµÄÍâ¹Û¡£ÏÖÔÚÎÒÃǾÍÀ´¿´¿´ÔÚC#×ÀÃæ³ÌÐòÖÐÈçºÎ²åÈëFlashÊÓÆµ£¬¶øÇÒÈ¥µô·³È˵ÄÓÒ¼ü²Ëµ¥¡£
Ê×ÏÈÒª²åÈëFlash¾Í±ØÐëʹÓÃFlash¿Ø¼þ£¬ÔÚ¹¤¾ßÀ¸ÓÒ¼üÑ¡Ôñ“Ñ¡ÔñÏî…”£¬È»ºóÔÚ“COM×é¼þ”Ãæ°åϵã»÷“ä¯ÀÀ”°´Å¥£¬ÔÚ±¾»úµçÄÔC:\WINDOWS\s ......

androidÉϰγösd¿¨µ¼ÖÂflashÉÏýÌåÒ²ÏûʧÎÊÌâ½â¾ö·½·¨

»úÆ÷ÄÚ²¿ÓÐÒ»²¿·Öflash¹©¿Í»§Ê¹Óã¬Í¬Ê±»úÆ÷Ö§³Ösd¿¨¡£µ±²åÈësd¿¨Ê±ºòflashÄÚ²¿ºÍsd¿¨ÄÚ²¿µÄ¶àýÌå¶¼¿ÉÒÔ±»²¥·ÅÆ÷ʶ±ð£¬Ò»µ©°Îµôsd¿¨£¬ÔòflashÄÚµÄýÌå¶Ô²¥·ÅÆ÷Ò²²»¼ûÁË¡£
½â¾ö·½·¨£º
ÐÞ¸Äframeworks/base/services/java/com/android/server/MountService.javaÎļþµÄº¯Êý£ºnotifyMediaBadRemovalÈçÏ£¬ºìɫΪÌí¼Ó¡£
mCon ......

Flash ÓëÎïÀí±Ê¼Ç£ºÉÏÅ×Ô˶¯

 Ñ§Ï°Flash ѧһµãÎïÀí¶ÔflashÓкܴó°ïÖú£¬¹ØÓÚflashÓëÔ˶¯Ñ§µÄһЩ֪ʶÔÚmake thing move×÷ÕßÀïÃæÒѾ­ºÜÏêϸÌṩÁË¡£ÎïÀíÀ´½²£¬¸öÈËѧµÃ±È½Ï²î£¬ÖÐѧʱ´ú»ù±¾ÉÏÊÇÎïÀí°×³Õ£¬ºÁÎÞÎïÀíµÄ˼ά¡£²»µÃ²»ÖØÐÂÈ¥ÍøÕ¾ËÑË÷һЩ¸ÅÄîȥѧ»ØÕâÖÖÔ˶¯Ñ§¡£¶ÔÓÚÎïÀíµÄ½éÉÜ£¬²»ÄÜÈ¥Å×Êé°ü£¬Ö»ÄܼǼһϱʼÇÓÃ×÷ÈÕºóʹÓá£
  ÉÏ ......

Æ»¹ûÕýÔÚ¿ª·¢FlashµÄÌæ´úÆ·Gianduia


¡¡¡¡ÓÉÓÚÓëAdobeÔÚFlashÎÊÌâÉϲ»Ô¸×öÈκÎÍËÈã¬Ä¿Ç°Æ»¹û¹«Ë¾ÕýÔÚ¿ª·¢FlashµÄÌæ´úÐͲúÆ·£¬Ä¿Ç°ÔÝʱÃüÃûΪGianduia£¬ÎÒÃÇÔڿɿɹûwww.kekeguo.comÆ»¹ûÂÛ̳×ÉѯÖÐÒ²¿ÉÁ˽⵽ƻ¹û¹«Ë¾½«»áÔÚ6Ô·ݾÙÐеÄWWDC´ó»áÉ϶ÔGianduia½øÐÐÏêϸµÄ˵Ã÷¡£
¡¡¡¡¾ÝϤ£¬GianduiaÆäʵÔÚÈ¥ÄêµÄWebObjects¿ª·¢Õß´ó»áÉϾÍÒѾ­·¢²¼ÁË£¬¶øÆ»¹ûµÄ²¿· ......

Scribd¼ÄÏ£ÍûÓÚHTML5£¬·ÅÆúFlash£¬

    ´¦¾³¿°ÓǵÄAdobe Flash½«ÃæÁÙÁíÒ»´Î´ò»÷£¬ÔÚÏßÎĵµ×îÖÕÒ²¿ªÊ¼±íÃ÷Á¢³¡¡£Ä¿Ç°ÍøÉϴ󲿷ÖÎĵµ£¨PDF¡¢WordÎĵµ¡¢»ÃµÆÆ¬£©Ö»ÄÜÔÚFlash²¥·ÅÆ÷ÄÚ²¿²¥·Å£¬ÎÞ·¨ÏÔ Ê¾ÎªÍêÕûµÄÍøÒ³¡£Ã÷ÌìÔÚÏßÎĵµ·ÖÏíÍøÕ¾ScribdÉϵÄÊý°ÙÍò·ÝÎĵµ²»ÔÙʹ ÓÃFlash²¥·Å£¬¶øÊǽ«×ª»¯Îª±¾µØHTML5ÍøÒ³¡£ÕâЩÎĵµ²»½ö¿ÉÒÔÔÚiPadÉÏÍêÃÀÏÔʾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ