¹ØÓÚactivex Óëjavascript ½»»¥ÇóÖú - VB / ¿Ø¼þ
ÍøÉÏÕÒµ½ÒÔÏÂ×ÊÁÏ
activexÀ´²Ù×÷javascriptº¯Êý¡£
ÎÒÃÇÔÚÍøÒ³ÖмÓÈëÒ»¶Îjavascript´úÂ룺
function Test(){
alert("test")
}
ÔÚactivexÎÒÃÇ¿ÉÒÔͨ¹ýÈçÏ´úÂëÀ´µ÷Óá£
UserControl.Parent.Script.Test()
ͬʱÎÒÃÇ¿ÉÒÔʹÓÃ
UserControl.Parent.Script.window.CloseÀ´¹Ø±Õµ±Ç°ÍøÒ³¡£
UserControl.Parent.Script.document.location.href="aa.html" À´¸ü»»Á¬½Ó¡£
ÎÒµÄVB¿Ø¼þÖÐ
Private Sub Command1_Click()
UserControl.Parent.Script.Test()
End Sub
ÌáʾUserControl.Parent.Script.Test()Õâ¾äÓï·¨´íÎó£¬ÇëÎÊUserControlÊÇ×Ô¼ºµÄ¿Ø¼þÃû³ÆÂð£¿ÎҵĿؼþÃû³ÆÊÇMyControl£¬ÎÒ¸ÄΪMyControl.Parent.Script.Test()Ò²²»ÐÐ
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÔÚJSPÒ³ÃæÓÐÒ»¸ö<input type="hidden" name="index" value="0">/>¿Ø¼þ
µ±ÎÒÓÃÏÂÃæµÄJavaScriptº¯Êý¸Ä±äÆävalueµÄÖµµÄʱºò Èç¹ûÂú×ãÌõ¼þ£¨¼´i>=3µÄʱºò£©ÎªÊ²Ã´valueµÄ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......