VBÈçºÎʵÏÖ·¢³öµã»÷FLASH°´Å¥µÄÃüÁî?
VBÓÃÁËShockwaveFlash¿Ø¼þ£¬ÔØÈëÁËÒ»¸öÁªÍø²éÌìÆøµÄFlash£¬¾ÍÊÇÕâ¸öFLASH£º "http://flash.weather.com.cn/sk2/shikuang.swf?id=101050101"Õâ¸öFlashÓм¸¸öÑ¡ÏÓÐζȣ¬Êª¶È£¬Æøѹ£¬·çÏòµÈ£¬ÕâЩÊÇ¿ÉÒÔÓÃÊó±êµã»÷ºó²é¿´µÄ£¬µ«ÎÒÏëÈÃVB×Ô¼ºÊµÏÖµã»÷ÕâЩѡÏîµÄÕâ¸ö¶¯×÷£¬¾ÍÊÇÏëʵÏÖÿ¸ô5Ãë×Ô¶¯»»Ò»¸öÌìÆøÏîÄ¿£¬ÎÒ֮ǰÓÃÖ¸¶¨×ø±êÄ£ÄâÊó±êµã»÷¶¯×÷£¬µ«Ð§¹û²»ÀíÏ룬Äܲ»ÄÜÓóÌÐòÖ±½ÓÏòShockwaveFlash¿Ø¼þдij¸öÖ¸ÁîÀ´ÊµÏÖÇл»ÏîÄ¿µÄ¶¯×÷£¿ÄÄλ¸ßÈË¿ÉÒÔ°ïÖúһϣ¬Íò·Ö¸Ðл£¡
¿Ø¼þ¿ÉÒÔ½ÓÊÕ¡¢·¢ËÍflashÃüÁîµÄ flash·¢ÃüÁî¸øvb: ÔÚflashÖУ¬ÓÃfscommand(²ÎÊý1£¬²ÎÊý2); vbµÄshockwaveflash¿Ø¼þ½ÓÊÕ, vb´«Öµ¸øFlash¡£ me.shockwaveflash.setVal...ʲôµÄ£¬Íü¼ÇÁË£¬Ã÷ÌìÔÙ¸øÄã¶ÎÀý×Ó°É¡£ ÈçÆÚ»ØÌû VB code: Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) ' ÕâÀïÊÇÓÃÀ´½ÓÊÕFlashÖз¢³öµÄÃüÁî ' FlashµÄÃüÁî¸ñʽΪ fscommand(command,args); End Sub ' VB·¢ËͲÎÊý¸øFlash Me.ShockwaveFlash1.SetVariable FlashÖеÄÔª¼þÃû, ²ÎÊýÖµ ' ÀýÈçFlashÖÐÓиöÎı¾¿òÔª¼þ,ʵÀýÃûΪtxt_Name£¬ Me.ShockwaveFlash1.SetVariable "_root.txt_Name.text", "ÏÔʾÎÒ°É"ÒýÓà ÈçÆÚ»ØÌû VB codePrivateSub ShockwaveFlash1_FSCommand(ByVal commandAsString, ByVal argsAsString)' ÕâÀïÊÇÓÃÀ´½ÓÊÕFlashÖз¢³öµÄÃüÁî ' FlashµÄÃüÁî¸ñʽΪ
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË.. Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html תΪVB.NETÔ´Âë. СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏ ÎÒµÄEMAILÊÇ:4452 ......
ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName) objExt.Visible = True ³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......