ÈçºÎÈÃͼƬ»ò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(»áµ¥¶À×°¸ß°æ±¾µÄ²¥·ÅÆ÷¾Í¸üºÃÁË)
Ïà¹ØÎÊ´ð£º
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......