ÈçºÎÈÃͼƬ»ò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Îļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìøתºó£¬ÔõôȡµÃÌøתºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......