ÈçºÎÈÃͼƬ»ò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£¬ÄÇôÔÚ´ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......