¹ØÓÚ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()Ò²²»ÐÐ
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
´úÂëÈçÏ£º
<table>
<tr>
<td>µÚÒ»ÐÐ
</td>
</tr>
<tr>
<td><a href="javascript:delete()">ɾ³ý</a>
</td>
< ......