ÈçºÎÈÃͼƬ»òflashµ±°´Å¥ - VB / »ù´¡Àà
ÔÚExcel-VBAÖУ¬ÓÃOnAction¿ÉÒÔ½«Shape,Image»òFlashµ±°´Å¥Ê¹Óá£
ÎÊ£ºÔÚVB6ÖУ¬ÈçºÎÈÃͼƬ»òflashµ±°´Å¥£¬Ð»Ð»¡£
ÈÃͼµ±°´Å¥ºÜÈÝÒ×
·ÅÒ»¸öImage¿Ø¼þÔÚ±íµ¥ÉÏ
ÉèÖÃËüµÄpictureÊôÐÔ(µãËüÅԱߵÄÊ¡ÂÔºÅС°´Å¥¾Í´ò¿ªÑ¡Í¼µÄ¶Ô»°¿ò)Ϊij¸öͼ
È»ºóͼ¾Í³öÏÖÁË
Ë«»÷±íµ¥ÉϵÄͼƬ,д´úÂë, ok
FlashµÄÒª·ÖÁ½²½:
ÔÚFLASHÀïµÄ¸ø°´Å¥Ð´ÉÏÈçÏ´úÂë:
on (release) {
fscommand("ok");
}
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
if command="ok" then msgbox "Äã°´ÁËÎÒ"
End Sub
okÒ²¿ÉÒÔд³É±ðµÄ, Ö»ÒªÁ½´¦ok¶¼¸Ä³É±ðµÄ¾ÍÐÐ
ÕâÑù¾Í½â¾öÁË,Ï£ÍûÄÜ°ïµ½Äã
ÔÚVBÀïÔ±¾Ã»ÓÐFlash¿Ø¼þ, Ҫѡ²Ëµ¥"¹¤³Ì">"²¿¼þ"
³öÒ»¶Ô»°¿ò, ÏòÏÂÕÒµ½"Shockwave Flash"¹´Ñ¡
¹¤¾ß³ÌÉÏ×îºó¶à³öÁËÒ»¸ö°´Å¥, ·ÅÒ»¸öÔÚ±íµ¥ÉÏ, ÉèÖÃËüµÄMovieÊôÐÔ, ±ÈÈçÉèΪc:\test.swf
Ò»ÔËÐÐFlash¾Í³öÏÖÔÚÄãµÄ±íµ¥ÉÏÁË, Èç¹ûswfµÄ°æ±¾¸ßÓÚÄãFlash²¥·ÅÆ÷µÄ°æ±¾,»á³ö²»À´, ¼òµ¥µÄ½â¾ö°ì·¨¾ÍÊÇÏÂÔØ°²×°¸ß°æ±¾µÄFlash(»áµ¥¶À×°¸ß°æ±¾µÄ²¥·ÅÆ÷¾Í¸üºÃÁË)
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......